Pfad in Visual Basic

Computer: Software & Programmierung Visual Basic
#1

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

#2

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

#3

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