VBA Verzeichnis mit Istgleich Zeichen öffnen

 
   Shell "explorer.exe " & KomplettZielPfadFinal, vbNormalFocus  

 
Private Declare Function GetShortPathNameA Lib "kernel32" ( _   
ByVal lpszLongPath As String, _ 
ByVal lpszShortPath As String, _ 
ByVal cchBuffer As Long) As Long 
Public Function ShortPath(ByRef Path As String) As String 
Dim n As Long 
ShortPath = Space$(256) 
n = GetShortPathNameA(Path, ShortPath, 255) 
ShortPath = Left$(ShortPath, n) 
End Function

 
Verwendung
Shell "Explorer.exe " & ShortPath(KomplettZielPfadFinal ), vbNormalFocus  

 
oder auch
Verzeichnis = ShortPath(KomplettZielPfadFinal )
Shell "Explorer.exe " & Verzeichnis, vbNormalFocus