Dialog Najít soubor

Option Explicit 
Private Const SW_SHOWNORMAL As Long = 1 
Private Const SW_SHOWMAXIMIZED As Long = 3 
Private Const SW_SHOWDEFAULT As Long = 10 
Private Const VK_ACTION = &H46 
Private Const VK_LWIN = &H5B 
Private Const KEYEVENTF_KEYUP = &H2 
Private Declare Function GetDesktopWindow Lib "user32" () As Long 
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 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 

Na formulář přidejte textbox a dvě tlačítka. Na událost Click tlačítek pak zapište:

Private Sub Command1_Click(Index As Integer) 
   Call keybd_event(VK_LWIN, 0, 0, 0) 
   Call keybd_event(VK_ACTION, 0, 0, 0) 
   Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0) End Sub 

Private Sub Command2_Click() 
   Dim hWndDesk As Long 
   Dim success As Long 
   Dim sFile As String 
   'počáteční adresář k prohledávání 
   sFile = Text1.Text 
   'desktop bude defaultní pro zobrazování chyb 
   hWndDesk = GetDesktopWindow() 
   'zobrazit 
   success = ShellExecute(hWndDesk, "find", sFile,
   vbNullString, vbNullString, SW_SHOWNORMAL) 
End Sub

Spusťte projekt a otestujte tlačítka. Pokud do textboxu zapíšete cestu, dialog, otevřený pomocí tlačítka Command2 Bude tuto cestu používat jako startovací adresář.

Zpět