删除指定文件夹下的全部文件（子目录以及文件）（已解决）
本帖最后由 dearmb 于 2011-1-13 17:15 编辑以前用批处理，保留文件夹本身，删除文件夹以下的全部文件，
del /q D:\1\*.*
但在AU3里
FileDelete("D:\1\*.*")只删除D:\1下的文件，文件夹却不删除
DirRemove("D:\1",1)会把D:\1整个都删除，包括D:\1
DirRemove("D:\1",0) 0 = (默认)不删除文件及子目录，没明白怎么用，一直返回0，失败
问一下有什么办法呢？ ;这样呢？
Run(@ComSpec & " /c " & 'del /q D:\1\*.*', "", @SW_HIDE) 这样可以，但是没有返回值啊 回复 1# dearmb
方法有点笨，但是能实现你要的功能呃！偶菜呃
#Include <Date.au3>
#Include <File.au3>
$_Path='C:\temp\'
_FileFolders($_Path);===>扫描$_Path。
Func _FileFolders($_Path)
$File = _FileListToArray($_Path, "*", 0)
If Not IsArray($File) Then Return 0
For $0 = 1 To $File
If StringInStr(FileGetAttrib($_Path&$File[$0]),'d',2) Then
If DirRemove($_Path&$File[$0],1) Then
FileWrite('Del.log',_NowCalc()&' Del '&$File[$0]& 'successful!'&@CRLF)
Else
FileWrite('Del.log',_NowCalc()&' Del '&$File[$0]& 'Failed!'&@CRLF)
EndIf
Else
If FileDelete($_Path&$File[$0]) Then
FileWrite('Del.log',_NowCalc()&' Del '&$File[$0]& 'successful!'&@CRLF)
Else
FileWrite('Del.log',_NowCalc()&' Del '&$File[$0]& 'Failed!'&@CRLF)
EndIf
EndIf
Next
EndFunc 高手啊，学习了！ 我这个是脱裤子打屁，其实用水木兄的代码实现最简单。
这段代码只是纯AU3而已。
_filedelete(@ScriptDir&"\backup",'*.jpg',0)
ShellExecute(@ScriptDir&"\backup")
Func _filedelete($path, $ext = '*.*', $flag = 0);_filedelete(路径，[[文件类型]，0＝不包括子目录，1＝包括子目录(当包括子目录时只能用*.*)])
Local $reulst,$abc
If StringRight($path, 1) <> "\" Then $path = $path & "\"
If $flag = 0 Then
$reulst = FileDelete($path&$ext)
Return $reulst
ElseIf $flag = 1 And $ext = '*.*' Then
$search = FileFindFirstFile($path&$ext)
If $search = -1 Then
Return SetError(2)
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$abc&=$path&$file&"|"
If FileGetAttrib($path&$file)='D' Then
DirRemove($path&$file,1)
Else
FileDelete($path&$file)
EndIf
WEnd
FileClose($search)
EndIf
EndFunc ;==>_filedelete
回复 6# 3mile
呵呵！我刚开始就是想这样的，不过感觉太麻烦了所以没做。
嘿嘿！3G真是有心，向你学习！ 回复 7# 水木子
水木兄谦虚了，我那只是在脱裤子打屁而已。哈哈 我碰到这样的问题，以前的做法是连文件夹全删了，然后再建一个文件夹。学习了。保存到函数库中吧！ 我碰到这样的问题，以前的做法是连文件夹全删了，然后再建一个文件夹。学习了。保存到函数库中吧！
gzh888666 发表于 2011-1-12 22:57 http://autoitx.com/images/common/back.gif
我也想了，但是权限要全重加啊，更麻烦 本帖最后由 netegg 于 2011-1-13 08:19 编辑
Func delete($current)
Local $search = FileFindFirstFile($current & "\*.*")
While 1
Dim $file = FileFindNextFile($search)
If @error Or StringLen($file) < 1 Then ExitLoop
If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
#cs;此部分用于修改属性
$attrib = FileGetAttrib($current & "\" & $file)
$aAttrib = StringSplit($attrib, '', 2)
For $i = 0 To UBound($aAttrib)
$attrib &= '-' & $aAttrib[$i]
Next
FileSetAttrib($current & "\" & $file, $attrib & '+N'， 1)
#ce
Dirremove($current & "\" & $file, 1)
EndIf
delete($current & "\" & $file)
WEnd
; DirRemove($current, 1);去掉此行会保留一个父文件夹
EndFunc ;==>delete
页:
[1]