quboboo 发表于 2013-6-18 09:22:45

如何删除除指定文件（夹）外的所有文件和目录

本帖最后由 quboboo 于 2013-6-20 13:27 编辑

比如删除D盘除指定文件和文件夹外所有的东西，要能删除隐藏的文件（夹），要保留的文件（夹）名称有的中间有空格

开机执行用，比如保留D盘 A、B C、D.SYS 这三个对象

请大家指点下，谢谢

lxwlxwayy 发表于 2013-6-19 13:49:40

_FileDelete.au3,加个备份不就行了,先备份再删除

lxwlxwayy 发表于 2013-6-19 14:26:09

_DeleteAllSubdirAndFiles("C:\tut")
Func _DeleteAllSubdirAndFiles($Directory)
      $search = FileFindFirstFile($Directory & '\' & '*.*')
      While 1
                $file = FileFindNextFile($search)
                If @error Then ExitLoop
                If FileGetAttrib($Directory & '\' & $file) = 'D' Then
                        DirRemove($Directory & '\' & $file, 1)
                Else
                        If StringInStr(FileGetAttrib($Directory & '\' & $file), "R") Then FileSetAttrib($Directory & '\' & $file, "-R")
                        FileDelete($Directory & '\' & $file)
                EndIf
      WEnd
      FileClose($search)
        EndFunc   ;==>_DeleteAllSubdirAndFiles

lxwlxwayy 发表于 2013-6-19 14:34:51

备份用filecopy和dircopy
删除用dirremove 和filedelete

quboboo 发表于 2013-6-20 13:26:25

回复 3# lxwlxwayy


    备份肯定不行，文件夹内容多数量大就要搞好久了，我这个是准备开机执行的

renren 发表于 2013-6-23 20:59:01

你自己参考`改下 为`新的库名 就可以了`

h20040606 发表于 2013-6-24 06:09:15

回复 8# renren


很有参考价值，谢谢了
页: [1]
查看完整版本: 如何删除除指定文件（夹）外的所有文件和目录