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

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

很有参考价值，谢谢了

		自动登录	找回密码
密码			加入

[AU3基础] 如何删除除指定文件（夹）外的所有文件和目录

相关帖子

本帖子中包含更多资源