Hallo
Das Ergebnis ist dann folgebnder Dialog zur Verzeichnisauswahl
Nun habe ich aber keine Möglichkeit einen anderen Pfad auszuwählen.
Mit den Optionen von BrowseForFolder habe ich schon herumprobiert, leider ohne Erfolg.
Hat jemand eine Idee wo das Problem liegt?
Danke.
Quellcode
- 'Directory DialogBox Title
- Private Const EXM_DIR_TITLE As String = "Datei(en) speichern im Verzeichnis!"
- 'Directory DialogBox save path
- Private Const EXM_DIR_PATH As String = "C:\Temp"
- 'Aufruf: strBackupPath = Get_Folder(EXM_DIR_TITLE, EXM_DIR_PATH)
- Private Function Get_Folder(Optional capt, Optional initF)
- Dim objShell As Object, objFolder As Object, objItem As Object
- Set objShell = CreateObject("Shell.Application")
- With objShell
- Set objFolder = .BrowseForFolder(0, capt, 0, initF)
- 'Set objFolder = .BrowseForFolder(&H0, capt, &H0, initF)
- End With
- If Not objFolder Is Nothing Then
- Set objItem = objFolder.Self
- Get_Folder = objItem.Path
- ' MsgBox objItem.Path
- End If
- End Function
Das Ergebnis ist dann folgebnder Dialog zur Verzeichnisauswahl
Nun habe ich aber keine Möglichkeit einen anderen Pfad auszuwählen.
Mit den Optionen von BrowseForFolder habe ich schon herumprobiert, leider ohne Erfolg.
Hat jemand eine Idee wo das Problem liegt?
Danke.