Klasör Yolunu Ayarlayarak Arama Penceresini Aç - Microsoft Excel

Microsoft Windows arama penceresini istenilen klasörde arama yapmaya hazır bir halde açan alternatif bir VBA kodudur.

Option Explicit

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

Sub FindAllFiles()
    Dim aramaKlasoru As String
    
    '--------------------------------------------------
    'Arama yapılacak klasörü belirle.
    '--------------------------------------------------
    aramaKlasoru = "D:\"

    ShellExecute _
        0, _
        "find", _
        aramaKlasoru, _
        vbNullString, _
        vbNullString, _
        SW_SHOWNORMAL
End Sub