Pfad im Windows Explorer mit Überprüfung öffnen?
02.01.2018 12:52:59
Sergej
ich kann auf dein letzten Beitrag vom 31.12.2017 nicht antworten, da der Beitrag archviert ist: https://www.herber.de/cgi-bin/callthread.pl?index=1598952
Ich habe dein Code getestet in dem ich diesen logischerweise in einem Modul eingefügt und gestartet habe.
Wenn ich das Makro ausführe, dann wird Windows Explorer unter Windows 7 in dem Pfad schon geöffnet. Soweit in Ordnung.
Bei erneutem Ausführen des Makros, wird Windows Explorer nochmals in selbem Pfad geöffnet, obwohl das Windows Explorer in strFullPath geöffnet ist. Also kurz zusammengefasst: es findet keine Überprüfung vor dem Öffnen von strFullPath, ob Windows Explorer in dem Pfad strFullPath bereits geöffnet ist.
Sub bb()
Dim objShell As Object, win As Object
Dim strFullPath As String, gefunden As Boolean
strFullPath = "C:\temp\pdf s" 'Pfad anpassen
gefunden = False
If Dir(strFullPath, vbDirectory) "" Then
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "EXPLORER") > 0 Then
If LCase(win.document.folder.self.Path) = LCase(strFullPath) Then
AppActivate win.locationname
gefunden = True
Exit For
End If
End If
Next
If gefunden = False Then objShell.explore (strFullPath)
Set objShell = Nothing
Else
MsgBox "Pfad nicht vorhanden!", vbCritical
End If
End
Sub
Viele Grüße,
Sergej
Anzeige