2
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"
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.
Danke im Voraus
Gruß
Andreas
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"
1
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.
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10
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 Function1
2
2
Verwendung
Shell "Explorer.exe " & ShortPath(KomplettZielPfadFinal ), vbNormalFocus 1
2
3
2
3
oder auch
Verzeichnis = ShortPath(KomplettZielPfadFinal )
Shell "Explorer.exe " & Verzeichnis, vbNormalFocus Danke im Voraus
Gruß
Andreas
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 290929
Url: https://administrator.de/forum/vba-verzeichnis-mit-istgleich-zeichen-oeffnen-290929.html
Ausgedruckt am: 14.04.2025 um 05:04 Uhr
2 Kommentare
Neuester Kommentar
Das hat mit dem Gleichheitszeichen nichts zu tun, die Übergabe eines Pfades funktioniert nur anders beim Explorer ...
Gruß grexit
shell "explorer /e /n, """ & KomplettZielPfadFinal & """",vbNormalFocus
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
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
