Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: alle Dateien aus einem Ordner zusammenfügen in eine Datei
Autor: lastyle
Datum: 29.04.12 13:12
Hat sich erledigt, ich habs nun so wie es soll. Danke trotzdem für den Denkanstoss Private Function joinfiles() ' Verzeichnis, dessen Dateien ermittelt werden sollen Dim sPath As String ' ggf. abschließenden Backslash entfernen sPath = TextBox1.Text If sPath.EndsWith("\") And sPath.Length > 3 Then sPath = sPath.Substring(0, sPath.Length - 1) End If ' Directory-Object erstellen Dim oDir As New System.IO.DirectoryInfo(sPath) If My.Computer.FileSystem.FileExists(sPath & "\" & txtprojectname.Text + ".bin") Then My.Computer.FileSystem.DeleteFile(sPath & "\" & txtprojectname.Text + ".bin") Else MsgBox(txtprojectname.Text + ".bin" & vbCrLf & "not found, building new File!") End If ' alle Dateien des Ordners Dim oFiles As System.IO.FileInfo() = oDir.GetFiles() Dim oFile As System.IO.FileInfo Dim FileContent() As Byte For Each oFile In oFiles FileContent = My.Computer.FileSystem.ReadAllBytes(sPath & "\" & oFile.Name) My.Computer.FileSystem.WriteAllBytes(sPath & "\" & txtprojectname.Text + ".bin", FileContent, append:=True) Next End Function

alle Dateien aus einem Ordner zusammenfügen in eine Datei	2.465	lastyle	29.04.12 00:39
Re: alle Dateien aus einem Ordner zusammenfügen in eine Date...	1.705	Manfred X	29.04.12 02:29
Re: alle Dateien aus einem Ordner zusammenfügen in eine Date...	1.715	Manfred X	29.04.12 06:57
Re: alle Dateien aus einem Ordner zusammenfügen in eine Date...	1.749	lastyle	29.04.12 11:44
Re: alle Dateien aus einem Ordner zusammenfügen in eine Date...	1.790	lastyle	29.04.12 13:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen