searching for a file and deleting it

[zFrank]

is it possible to search for some types of files using autoit and copy or delete them?

i just need some example...

thanks in advance.

[Zedna]

Look at _FileList2Array(), FileCopy(), FileDelete()

[ChrisL]

This do you?

Search ("C:\","advapi32.dll");replace with your search directory and file required

Func Search($current,$toFind)
    If StringRight($current,1) = "\" then $current = StringTrimRight($current,1)
    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") And ($file <> "." Or $file <> "..") Then

            IF $file = $toFind then Msgbox(0,"File found", $current & "\" & $file); you could add it to an array delete it or whatever else you wanted to do with it here
                
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            Search($current & "\" & $file, $toFind)
            
        EndIf
        
    WEnd
    FileClose($search)

EndFunc

[zFrank]

@ ChrisL

hey! Thanks man, you are doing good.

one more thing: can i add more dirs/files?

[Zedna]

For recursive search search forum for _FileList2ArrayEx()

[ChrisL]

@ ChrisL

hey! Thanks man, you are doing good.

one more thing: can i add more dirs/files?

Your lucky I'm feeling hypo today muttley

Local $filesToFind[4] = [3,"advapi32.dll","advpack.dll","audiodev.dll"]

Search (@windowsDir,$filesToFind);replace with your search directory and file required
Search (@DesktopDir,$filesToFind)
Search ("D:\",$filesToFind)



Func Search($current,ByRef $toFind)
    If StringRight($current,1) = "\" then $current = StringTrimRight($current,1)
    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") And ($file <> "." Or $file <> "..") Then
            
            If IsArray($toFind) then 
                For $i = 1 to Ubound($toFind) -1
                    IF $file = $toFind[$i] then Msgbox(0,"File found", $current & "\" & $file); you could add it to an array delete it or whatever else you wanted to do with it here
                Next
            Else
                
                IF $file = $toFind then Msgbox(0,"File found", $current & "\" & $file); you could add it to an array delete it or whatever else you wanted to do with it here
            EndIf
            
                
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            Search($current & "\" & $file, $toFind)
            
        EndIf
        
    WEnd
    FileClose($search)

EndFunc

[zFrank]

@ ChrisL

Tons of thankses and also a big Thanks.

[zFrank]

For recursive search search forum for _FileList2ArrayEx()

i got only the current thread by searching this word. _FileList2ArrayEx()

nothing exists in this forum like this.

[ChrisL]

By the way what I posted is recursive to, so if you search C:\ it will search all folders and sub-folders on that drive

[Zedna]

i got only the current thread by searching this word. _FileList2ArrayEx()

nothing exists in this forum like this.

Sorry my bad. Correct one is _FileListToArrayEx()

http://www.autoitscript.com/forum/index.php?showtopic=33930