Hallo Leute,
folgendes Problem:
Ich lese kleine txt Dateien in eine Access Datenbank ein.
Diese Dateien stehen aber in unterschiedlichen Ordnern, haben aber alle die gleichen Namen.
Ich kann immer nur eine Datei einlesen, muss mir dann die nächste Datei manuell aussuchen und einlesen usw.
Diesen Vorgang möchte ich automatisieren.
Das heisst VB soll in einem Ordner alle Unterordner nach dieser Datei suchen und den Pfadnamen übergeben.
Da ich noch Anfänger bin währe etwas code sehr hilfreich.
Viele Grüße
Stefan
Hallo Stefan
Auf alle Fälle geht unter Windows95 der Dos Befehl Dir/B/S dateixyz .
Davon werden alle Dateien in einer Liste mit Pfadangabe aufgeführt .
Wenn Du den Befehl in eine Datei zeigen läßt , brauchst Du nur noch die Datei mit VB öffnen .
Jedenfalls kannst Du das machen , wenn keiner eine bessere Idee hat .
MfG
Da hilft eine kleine rekursive Routine:
sub searchit(byval path as string)
dim fn as string
fn = dir(path,vbnormal + vbdirectory)
Do While fn "" ' for all files in dir
If fn "." And fn ".." Then
' Test if subdir
If (GetAttr(path & fn) And vbDirectory) = vbDirectory Then
'subdir, search recursively
searchit(path & fn)
else 'filename
dowhateveryouwant(path,fn)
End If
End If
fn = Dir ' Next entry
Loop
end sub