alle Textdateien öffnen und Datei erstellen
17.11.2005 11:46:18
UweP
ein Ordner hat einige Unterverzeichnissen mit sind insgesamt ca. 500.000 Einträgen.
Es sollen alle Dateien geöffnet werden und dann in einer Textdatei
gespeichert werden.
Jede Textdatei (hat immer nur eine Zeile) soll eingelesen werden und der Text dann untereinander in eine Textdatei geschrieben werden.
Die erzeugte Textdatei soll dann so aussehen:
10.10.2005 06:22 ;04008595035045;Orange TR3x6x0,5E84;04.06;84;28312180622;340428530000710313
09.10.2005 08:33 ;04008545035045;Cola TR3x6x0,5E84;04.06;84;28312180622;340448530000710313
08.10.2005 07:54 ;04008595035045;Bitterlemon TR3x6x0,5E84;04.06;84;283121980622;340428555000710313
Ich habe schon etwas bekommen aber die Unterverzeichnisse werden nicht einlesen.
Gruss Uwe
Sub Verzeichnis()
'es werden alle Textdateien in einem Verzeichnis geöffnet,
'die erste Zeile eingelesen
Dim TmpDat$
Dim i%
Dim TMP$
Dim datei$
Dim eanpfad$
Dim verzeichnis$
Dim strBegriff$, strAct$
Application.ScreenUpdating = False
eanpfad = "c:\Produktion\ean 128\"
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Bitte Namen des Verzeichnisses eingeben, z.B. EAN1215\0105\" ' Aufforderung festlegen.
Titel = "InputBox" ' Titel festlegen.
Voreinstellung = "test\" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
verzeichnis = InputBox(Mldg, Titel, Voreinstellung)
TmpDat = Dir(eanpfad & verzeichnis & "*.txt")
Do While TmpDat <> ""
TmpDat = Dir()
On Error GoTo ende
datei = eanpfad & verzeichnis & TmpDat
'die erstellte neue Datei heist text.txt
Open eanpfad & "test.txt" For Append As #1
Open datei For Input As #2
Line Input #2, TMP
Print #1, TMP
Close #2
Close
Loop
intCol = 0
ende:
Close
End Sub