Prozkoumávání systému
Postup:
V deklarační části formuláře
zapište:
Private
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Dvě funkce pro prozkoumávání:
Private Sub OpenDirectory(Directory As String)
ShellExecute
0, "Open", Directory, vbNullString, _
vbNullString, SW_SHOWNORMAL
End Sub
Private Sub OpenExplorer(Optional InitialDirectory As String)
ShellExecute
0, "Explore", InitialDirectory, _
vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
Použití:
OpenDirectory
("C:\")
OpenExplorer
OpenExplorer ("C:\Program Files\")
Zatímco funkce OpenDirectory otevře okno stejné, jako po dvojkliku na ikonu Tento počítač, druhá funkce otevře Průzkumníka, a to buď s jeho defaultním nastavením nebo jí lze zaslat parametr, který určuje, jaká složka má být otevřena.