[Tasos]

Καλημέρα σε όλους

Δείτε μερικά παραδείγματα χρήσης του Windows Explorer μέσω VBA:

Option Explicit

Sub StartExplorerNormal()
'Άνοιγμα συγκεκριμένου φακέλου στον Explorer
    Shell "Explorer.exe, vbNormalFocus
End Sub

Sub StartExplorerAtDirectory()
'Άνοιγμα συγκεκριμένου φακέλου στον Explorer
    Shell "Explorer.exe C:\MyDir", vbNormalFocus
End Sub

Sub ExplorerWithVariable()
    Dim Thepath$
    Thepath = "C:\MyDir"
    Shell "Explorer.exe " & Thepath, vbNormalFocus
End Sub

Sub ExplorerWithTreeWiew()
' Άνοιγμα του Explorer με TreeWiew σε συγκεκριμένο φάκελο
    Shell "Explorer.exe /e, C:\MyDir", vbNormalFocus
End Sub

Sub ExplorerWithRoot()
' Άνοιγμα του Explorer με TreeWiew σε συγκεκριμένο φάκελο
'Δεν μπορεί να επιλεγεί υψηλότερο επίπεδο στο TreeView  από το “C:\MyDir“
    Shell "Explorer.exe /e, /Root, C:\MyDir", vbNormalFocus
End Sub

Sub ExplorerSelectFile()
' Άνοιγμα του Explorer με προεπιλογή αρχείου
    Shell "Explorer.exe /select, C:\MyDir\test.doc", vbNormalFocus
End Sub

Sub OpenFileWithExplorer()
'Άνοιγμα αρχείου με χρήση του Explorer
    Shell "Explorer.exe C:\MyDir\test.doc", vbNormalFocus
End Sub