查找文件

gfuchao

$var = DriveGetDrive( "FIXED" )

If NOT @error Then
    For $i = 1 to $var[0]

$find = FileFindFirstFile($var[$i] & "\*.bbd")
               
                $file = FileFindNextFile($find)
                               
                MsgBox(0,0,$var[$i] & "\" &$file)
               
                FileDelete($var[$i] & "\" &$file)
                               
    Next
EndIf

FileFindFirstFile只能所搜到当前目录下的文件.
不能搜索,子目录下的
请问大家,有什么思路
我看了别人的搜索,代码太复杂太多!,愣是没看懂,太笨了
请大家修改下我以上的代码!谢谢

lixiaolong

回复 1# gfuchao

自己搜索了没有？
http://www.autoitx.com/search.ph ... mp;searchsubmit=yes

gfuchao

回复  gfuchao

自己搜索了没有？
lixiaolong 发表于 2011-3-16 20:22

搜索了,就是因为没看懂

才提问的,谢谢

还忘,各位帮忙修改下我上边自己写的代码,这样比较容易懂点

谢谢

hbwazxf

我是新手。帮顶吧。

lixiaolong

回复 3# gfuchao

是这样效果吧？
但这么搜索是很慢很慢的，因为搜索每个盘下的所有文件，文件越多越慢.

$var = DriveGetDrive("FIXED")
If Not @error Then
        For $i = 1 To UBound($var) - 1
                FindFile($var[$i], ".exe")
        Next
EndIf

Func FindFile($GetDrive, $FindFile)
        Local $search = FileFindFirstFile($GetDrive & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If Not StringInStr(FileGetAttrib($GetDrive & "" & $file), 'D') And _
                                StringRight($GetDrive & "" & $file, StringLen($FindFile)) = $FindFile Then
                        ConsoleWrite($GetDrive & '\' & $file & @CRLF)
                EndIf
                FindFile($GetDrive & "" & $file, $FindFile)
        WEnd
EndFunc   ;==>FindFile

gfuchao

我是新手。帮顶吧。
hbwazxf 发表于 2011-3-16 21:42

感谢你的热心帮助.

这样虽然慢.但是达到学习的目的了,谢谢