smooth 发表于 2015-4-13 09:51:28

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

下面的代码可以把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 发表于 2015-4-13 10:19:38

本帖最后由 dnvplj 于 2015-4-13 10:24 编辑

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

netegg 发表于 2015-4-13 11:23:51

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

netegg 发表于 2015-4-13 11:25:50

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

dnvplj 发表于 2015-4-13 11:33:13

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

netegg 发表于 2015-4-13 14:58:54

回复 5# dnvplj
我不是高手，也不会了
页: [1]
查看完整版本: 如何搜索删除某一个路径下指定的文件？