Eine ergänzende Frage zu I"InitialFolder" etwas da unten:
ich wollte die Funktion noch absichern aber der "On Error Goto" streikt obwohl ich bewusst den Verweis deaktiviert habe. Was mache ich falsch oder kriegst man dies anders hin?
Function BrowseFolder(Optional Caption As String, Optional InitialFolder As String) As String
Dim SH As Shell32.Shell
On Error GoTo ERRORH
'-------> Lesen im Falle einer Fehlermeldung die hier stehen sollte! ! ! ! ! ! ! ! ! ! !
'Sollte hier eine ähnliche Fehlermeldung erscheinen wie "Benutzterdefinierter Typ nicht _
definiert"
'fehlt unter "Verweise" die Bibliothek "Microsoft Shell Controls And Automation" das Hä _
ckchen.
'Bitte nachholen im Visual-Basic Editor unter Extras/Verweise...
'Die Verweise sind alphabetisch sortiert.
Dim F As Shell32.Folder
Set SH = New Shell32.Shell
Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, InitialFolder)
If Not F Is Nothing Then
BrowseFolder = F.Items.Item.Path
End If
Exit Function
ERRORH:
ERRORHANDLER:
MsgBox ("Die Fehlermeldung " & Err & ": " & Chr(10) & Error(Err) & Chr(10) & "ist _
aufgetreten." & Chr(10) & Chr(10))
Resume 0
End Function
So long!
Franz D.