Suchpfad
18.06.2004 11:16:22
Kerstin
meine untenstehende Anweisung springt nicht dorthin, wo sie hin soll!!?
Das Öffnenfenster wird weiterhin in c:\ aufgemacht.
Vielleicht kann mir jemand helfen was ich falsch mache.
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", "F:\")
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.doc")
If Dateiform = "" Then Exit Sub
Diese Anweisung verwende ich jetzt - nur wollte ich gern, das der Anwender dies nicht im Makro sondern über eine Inputbox auswählen soll.
Const Textfile_Pfad As String = "F:\Excel"
Const Textfile_Laufwerk As String = "F"
ChDrive Textfile_Laufwerk
ChDir Textfile_Pfad
MfG Kerstin