VBA Verzeichnis mit Istgleich Zeichen öffnen

Hallo,

ich hoffe Ihr könnt mir helfen.
Zuerst einmal, ich bin ein kompletter Anfänger in VBA.

Problem:
In meiner Firma werden leider Ordnernamen mit = Zeichen verwendet.
OrdnerBeispiel: RB-Ost=Berlin

Ich möchte diese Variable "KomplettZielPfadFinal" öffnen lassen.
KomplettZielPfadFinal = "O:\Projekte\Engineering\Konfiguration\RB-Ost=Berlin"

 
   Shell "explorer.exe " & KomplettZielPfadFinal, vbNormalFocus

Leider öffnet er mir wegen dem "=" immer die "Eigenen Dateien".

Gibt es eine Möglichkeit diesen Ordner trotzdem zu öffnen.

Ich habe auch schon folgendes aus meiner Recherche probiert, leider ohne Erfolg.

 
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  

Danke im Voraus
Gruß
Andreas

Please also mark the comments that contributed to the solution of the article

Content-Key: 290929

Url: https://administrator.de/contentid/290929

Printed on: April 27, 2024 at 00:04 o'clock

2 Comments

Latest comment

Das hat mit dem Gleichheitszeichen nichts zu tun, die Übergabe eines Pfades funktioniert nur anders beim Explorer ...

shell "explorer /e /n, """ & KomplettZielPfadFinal & """",vbNormalFocus

Gruß grexit

Hi,

ok hat damit nichts zu tun. Wenn ich das = weg nehme aus dem Verzeichnis dann funktioniert das öffnen, daher dachte ich daran liegts.

Aber egal, mit deinem Vorschlag funktioniert es einwandfrei.

Vielen Dank für deine schnelle Hilfe.

Gruß
Andreas

German solved Question Microsoft Office Microsoft