如何删除一个文件夹里所有文件和子文件夹？

hpebble · 发表于 2008-5-21 19:22:20

今天在弄一个小脚本，想删除一个名称为A的文件夹里所有文件和子文件夹，但要保留A这个文件夹名称（因为有设共享并设置了安全属性），但试了filedelete和DirRemove都不可以，filedelete只能删除A文件夹里的文件，对文件夹不能处理，DirRemove则将A文件夹也删除了，郁闷。请大虾指教！

[ 本帖最后由 hpebble 于 2008-5-21 22:26 编辑 ]

陌上风 · 发表于 2008-5-21 20:15:34

我也想知道

[ 本帖最后由陌上风于 2008-5-21 20:17 编辑 ]

马甲 · 发表于 2008-5-21 20:54:15

#Include <File.au3>
Func _DirRemoveContents($folder)
        Local $list_of_contents, $status
        $list_of_contents = _FileListToArray($folder)
        If IsArray($list_of_contents) Then
                If StringRight($folder, 1) <> "\"  Then $folder = $folder & "\" 
                If @error = 1 Then Return 1 ; No Files\Folders Found
                For $a = 1 To $list_of_contents[0]
                        FileSetAttrib($folder & "\" & $list_of_contents[$a], "-RASH")
                        If StringInStr(FileGetAttrib($folder & $list_of_contents[$a]), "D") Then
                                $status = DirRemove($folder & $list_of_contents[$a], 1)
                        Else
                                $status = FileDelete($folder & $list_of_contents[$a])
                        EndIf
                Next
        Else
                Return 2 ; Directory doesn't exists
        EndIf
EndFunc   ;==>_DirRemoveContents

hpebble · 发表于 2008-5-21 22:27:41

谢谢马甲！

kv998 · 发表于 2010-1-1 20:06:44

回复 3# 马甲

请问哪个是文件夹名称和路径？

lidexiang88 · 发表于 2010-1-4 14:09:58

回复 3# 马甲

这个不行啊，请教版主详细点！！

kv998 · 发表于 2010-1-4 17:55:55

回复 1# hpebble

请教版主详细点！！

wgboy · 发表于 2010-1-13 09:37:54

好东西先顶起来

sanmoking · 发表于 2010-1-19 17:48:57

$dir="E:\桌面\新建文件夹"

DirRemove ($dir, 1)

DirCreate ($dir)

不知道有共享的是否适用

sanmoking · 发表于 2010-1-19 17:49:15

$dir="E:\桌面\新建文件夹"

DirRemove ($dir, 1)

DirCreate ($dir)

不知道有共享的是否适用

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