如何搜索删除某一个路径下指定的文件？

smooth

下面的代码可以把N盘中所有隐藏属性的*.torrent文件删除。现在我想修改一下，当某个目录下只有一个*.torrent文件则不删除，研究了一天没有进展，请教各位，谢谢！

Local $SearchDir, $File

_Filelist("N:")

Func _Filelist($SearchDir)
        $Search = FileFindFirstFile($SearchDir & "\*.*") 
        If $Search = -1 Then Return -1 
        While 1
                $File = FileFindNextFile($Search) 
                If @error Then 
                        FileClose($Search) 
                        Return 
                ElseIf $file = "." Or $file = ".." Then 
                        ContinueLoop
                Else
                        _Filelist($SearchDir & "\" & $File) 
                EndIf
                
                
                if StringInStr(FileGetAttrib($Searchdir & "\" & $File), "H") And StringInStr($Searchdir & "\" & $File, "torrent") Then                        
                    FileDelete($Searchdir & "\" & $File)
                EndIf
                
        WEnd
EndFunc   ;==>_Filelist

dnvplj

应有个判断，如果该文件存在，先将其移到临时文件夹，待删除其他文件后在把他移回来。文件大的的话，那此方法就不适用了。如果能定义该文件保留，那就更好了，还望高手解决。

1、创建文件夹：DirCreate
2、移动文件夹：DirMove

netegg

回复 2# dnvplj
觉得这样有必要吗

netegg

http://www.autoitx.com/thread-480-1-1.html具体删除部分自己想想就行了

dnvplj

回复 3# netegg
这是没办法的办法，别的也不会，只能等高人出手。

netegg

回复 5# dnvplj
我不是高手，也不会了