How can I serach all files using wildcard

[Factfinder]

Hi,

I have been looking for a way to list all the files on C drive containing a name where I can use a wild card. I would like to do it with the autoit functions and don't call cmd.exe for this purpose.

To make it clear I am looking for something similar to the Dir command:

Dir /a/b/s C:\afd.sys lists all the files on C drive with the exact name "afd.sys"

Dir /a/b/s C:\afd.sys* lists all the files on c drive with the exact name and also the files with additional extensions like "afd.sys.bak"

Dir /a/b/s C:\*afd.sys lists all the files on c drive with the exact name and also the files with which end with "afd".

Dir /a/b/s C:\*afd.sys* lists all the files on c drive with the exact name and also the files like: maafd.sys.bak

I can manage to use wild card for a specified directory with:

Func Search($current, $file)
Local $search = FileFindFirstFile($current & "\" & $file)
while 1
    Dim $file = FileFindNextFile($search)
    If @error Or StringLen($file) < 1 Then ExitLoop
    $path = $current & "\" & $file
    FileWrite("filelist.txt" , $path & @CRLF)
WEnd
FileClose($search)
EndFunc

Local $file = "afd.sys*"
Search ("C:" , $file)

And I can use wild card like $file = "afd.sys*" or $file = "*afd.sys" or $file = "*afd.sys". But it only lists the files in the root of C drive and doesn't go to sub-directories.

I found and adjusted the following, which lists all the the files on C drive when I search for "afd.sys" but I can't use wild card with it:

Func Search($current,$ext)

Local $search = FileFindFirstFile($current & "\*.*")
While 1
    Dim $file = FileFindNextFile($search)
    If @error Or StringLen($file) < 1 Then ExitLoop
    If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") Then
    If StringRight($current & "\" & $file,StringLen($ext)) = $ext then
        FileWrite ("filelist.txt" , $current & "\" & $file & @CRLF)
    Endif
    EndIf
    If StringInStr(FileGetAttrib($current & "\" & $file), "D") Then
    Search($current & "\" & $file, $ext)
    EndIf
WEnd
FileClose($search)
EndFunc

$test = "afd.sys"
search ("c:" , $test)

I couldn't find it and I greatly appreciate any hint, link to a topic, or a script that help me out.

Thanks in advanced.

[Melba23]

Factfinder,

What you are trying to do is a recursive file search. There are plenty of examples on the forum, like this one.

M23

[trung0407]

Here is an example of file search. Count number of file found. Update search progress every 3s

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

$result = 0
$nbFiles = 0

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Counter", 189, 74, 388, 325, $WS_POPUP)
$Label1 = GUICtrlCreateLabel($nbFiles, 40, 10, 106, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Files count", 70, 40, 55, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$time = TimerInit()
$var = DriveGetDrive("FIXED")
If Not @error Then
    For $i = 1 To $var[0]
        SearchFile($var[$i] & "\", 0)
    Next
EndIf

Func SearchFile($dir, $recur)
    Local $search, $file
    FileChangeDir($dir)

    $search = FileFindFirstFile("*.*")
    If $search = -1 Then Return

    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
        $nbFiles += 1
        If TimerDiff($time) > 3000 Then
;~      Mod($nbFiles,1000)=0 Then GUICtrlSetData($Label1, $nbFiles)
            GUICtrlSetData($Label1, $nbFiles)
            $time = TimerInit()
        EndIf
        If $file = "nameoffile.extension" Then $result += 1
        If StringInStr(FileGetAttrib($dir & $file), "D") > 0 And $recur < 10 Then
            SearchFile($dir & $file & "\", $recur + 1)
        EndIf
    WEnd

    FileChangeDir($dir)
EndFunc   ;==>SearchFile

MsgBox(0, "", $result)

Edited October 15, 2010 by trung0407

[GEOSoft]

Take a look at the Run() command in the help file. It shows examples of using @Comspec which allows you to run the command interpreter using whatever you want. You could either forward it to a file or use the StdIO stream to get the results. I would actually set the switches for the Dir command with EnvSet("DIRCMD", "/a/b/s") so it doesn't need to be included in the Run() function then unset it with EnvSet("DIRCMD", "") after.

Example

EnvSet("DIRCMD", "/a/b/s")
RunWait(@ComSpec & " /c dir C:\*afd.sys > C:\Results.txt")
EnvSet("DIRCMD", "")
ShellExecute("C:\Results.txt")

Edited October 15, 2010 by GEOSoft

[Factfinder]

Thanks for the replies.

Thanks a lot Melba23 for the help. It was a great help. It worked for me and there is a small detail to sort out and I will shift to that topic.

trung0407, Thanks, it looks pretty similar to the one I posted and I'm not sure it will work with wild cards. I will give it a try.

GEOSoft, The dir command is simple and works and I was aware of that and gave some examples. But as I said I didn't want to call cmd.exe for that purpose (didn't want to depend on cmd.exe) and wanted to use Autoit functions. Thanks anyway.

Edited October 15, 2010 by Factfinder