BrowseForFolder - gesamter Pfad
13.07.2004 14:33:19
Marc
Ich möchte einen FolderDialog öffnen und den absoluten Pfad in einer Zelle speichern. Unter Excel XP/2003 kein Problem, unter Excel 2000 schon, da FolderDialog noch nicht unterstützt wird.
Ich hatte bereits eine Hilfestellung bekommen, die mir allerdings "nur" den Ordnernamen, nicht aber den Pfad ausgibt.
Sub Ordner_Auswahl()
DIM objShell As Object, objFolder As Object, strPfad As String
SET objShell = CreateObject("Shell.Application")
WITH objShell
SET objFolder = .BrowseForFolder(0&, "Ordner Wählen",0 ,17)
END WITH
On Error Resume Next
strPfad = objFolder.Title
MsgBox strPfad
End Sub
Ich dachte, ich versuch´s mit .PATH oder .NAME - funktioniert leider nicht.
Gruß,
Marc