Dateien aus Ordner auslesen - #NV

[Rabe]

Hi Uwe,

Pfad mit Abfrage
 MainFolderName = BrowseForFolder()
fester Pfad
 MainFolderName = "C:\Users\Uwe\Pictures\"

wenn ich das erste drin habe, geht zwar das Pfadfenster auf, ich muß mich aber jedesmal wieder zum Verzeichnis durchklicken, d.h. ich kann dort im Fenster keinen Pfad manuell eingeben.

[Kuwer]

Hi Ralf,

ich hatte das vorhin falsch verstanden.

Dialog mit Pfadvorgabe dann einfach
MainFolderName = BrowseForFolder("C:\Users\Uwe\Pictures\")

Gruß Uwe

[Rabe]

Hi Uwe,

ich hatte das vorhin falsch verstanden.

vermutlich habe ich es falsch gefragt:
Jetzt ist der Pfad im Code fest verdrahtet. Es gibt doch aber die Möglichkeit, daß bei einem Dateiauswahlfenster eine Bearbeitungsleiste sichtbar ist, in die ein Pfad oder ein Dateiname per Tastatur eingetragen werden kann.
Das fehlt mir in dem Dialog.

[xlsxvba]

Hi Uwe,


vermutlich habe ich es falsch gefragt:
Jetzt ist der Pfad im Code fest verdrahtet. Es gibt doch aber die Möglichkeit, daß bei einem Dateiauswahlfenster eine Bearbeitungsleiste sichtbar ist, in die ein Pfad oder ein Dateiname per Tastatur eingetragen werden kann.
Das fehlt mir in dem Dialog.

Das gleiche habe ich auch gebraucht und habe es so gelöst:

Code:

'MainFolderName = BrowseForFolder() 'erstmal nur auskommentiert
  MainFolderName = InputBox("Please enter the path like e.g. C:\Folder\Folder", "Insert drive letter or path")
  If StrPtr(MainFolderName) = 0 Then Exit Sub 'wenn hier auf Abbrechen geklickt wird, erscheint kein Fehler