Datein in Ordner sortieren Verfasst am: 06.08.2009, 16:32
Hey ich brauche einen VBA Code der den Namen einer Textdatei ließt (nicht den Inhalt) und vergleicht ob ein Ordner mit dem selben Namen schon vorhanden ist. Wenn ein Ordner mit dem gleichen Namen der textdatei vorhanden ist dann soll die datei in den Ordner verschoben werden.
danke schon mal für die Hilfe.
Bye _________________
christopher.g Coder
Anmeldedatum: 03.05.2008 Beiträge: 250
Verfasst am: 07.08.2009, 05:26
hi
bisschen googlen und findest e schnell was
Code:
Dim cFile As String
cFile = Dir("C:\*.TXT") ' Alle Textdateien im Verzeichnis C: ausgeben
Do While cFile <> "" ' Wiederholen bis cFile=""
List1.additem cFile
cFile = Dir
Loop
jetzt hast alle textdatein von deinem verzeichnis in der listbox stehen
und brauchst nur mehr mit einer forschleife prüfen ob die datei existiert
wenn ned
verschieben
alles klar?!