Mit Shell...
04.12.2013 11:11:00
Case
Hallo, :-)
vielleicht so?
Option Explicit
Private Const BIF_BROWSEINCLUDEFILES = &H4000
Public Sub Main()
Dim objShell As Object
Dim varDir As Variant
Dim strTMP As String
Set objShell = CreateObject("Shell.Application")
Set varDir = objShell.BrowseForFolder(0, "Ordner", BIF_BROWSEINCLUDEFILES, "C:\")
On Error Resume Next
strTMP = varDir.Self.Path
Err.Clear
On Error GoTo Fin
If strTMP "" And Left(strTMP, 2) "::" Then
If Right(strTMP, 1) "\" Then strTMP = strTMP & "\"
MsgBox strTMP
End If
Fin:
Set objShell = Nothing
Set varDir = Nothing
If Err.Number 0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Servus
Case