.BrowseForFolder
12.03.2006 10:56:35
ransi
Habe da eine Frage:
Ich bastel grade an einer Alternative zu GetOpenFilename mit voreingestelltem
Startordner.
Ausgehend von diesem code:
Option Explicit
Sub Aufruf()
Call get_Folder("Was soll ich machen?", "C:\Eigene Dateien")
End Sub
Sub get_Folder(Optional capt, Optional initF)
'Original von K.Rola
Dim objShell As Object
Dim objFolder As Object
Dim objItem As Object
Set objShell = CreateObject("Shell.Application")
With objShell
Set objFolder = .BrowseForFolder(0&, capt, &H4000 + &H200 + &H10, initF)
End With
If Not objFolder Is Nothing Then
Set objItem = objFolder.Self
MsgBox objItem.Path
End If
End Sub
Problem:
wenn ich einen ordner auswähle gehts,
wähle ich eine datei kommt Fehlermeldung:
Automatisierungsfehler
Das System kann die angegebene Datei nicht finden.
Wo habe ich da den Denkfehler?
ransi