如何删除一个文件夹下的所有子文件夹而不删除文件（指点一二）

j88iang · 发表于 2010-9-29 11:23:30

本帖最后由 j88iang 于 2010-9-29 12:37 编辑

指点江山，激扬文字

pizigao · 发表于 2010-9-29 11:45:25

DirRemove("C:\dir\dir1", 1)
删除 C:\dir\dir1文件夹以及该文件里面的文件

0 = (默认)不删除文件及子目录
1 = 删除文件及子目录(类似于 DOS 下的 DelTree 命令)

水木子 · 发表于 2010-9-29 11:51:57

DirRemove

j88iang · 发表于 2010-9-29 12:35:21

回复 3# 水木子

是多个子文件夹怎么删除

j88iang · 发表于 2010-9-29 12:35:37

回复 2# pizigao

是多个子文件夹怎么删除

水木子 · 发表于 2010-9-29 12:58:59

有多少个就写多少行？

lanfengc · 发表于 2010-9-29 16:01:09

给你段代码。你自己看看其中的关键。然后把这段代码做成一个函数，从根目录开始递归调用。就可以完成你要的功能了

#include <file.au3>
#include <array.au3>
Global $Path="c:"  ;开始遍历的根目录
Local $FileArray=_FileListToArray($Path) ;将根目录中所有的文件和文件夹读入数组
Local $ResultArray[100],$rI=0 ;定义一个结果数组和数组下标
_ArrayDisplay($FileArray,"所有的文件和文件夹") ;显示读取的所有目录和文件
For $i=1 To $FileArray[0] ;从所有的文件和文件夹列表中选出文件夹。
        _FileListToArray($Path&$FileArray[$i]) ;挨个遍历初始数组中的所有文件和文件夹。
        If @error<>1 Then  ;如果是文件夹，错误号不为1. 不是文件夹，错误号为1
                $ResultArray[$rI]=$FileArray[$i]  ;将该文件夹存入结果数组，数组下标自加1
                $rI+=1
        EndIf
Next
_ArrayDisplay($ResultArray,"文件夹列表") ;显示结果

netegg · 发表于 2010-10-1 00:34:28

有文件或空子文件夹的子文件夹删不删？

liufenglg · 发表于 2010-10-1 15:44:24

给你段代码。你自己看看其中的关键。然后把这段代码做成一个函数，从根目录开始递归调用。就可以完成你要 ...
lanfengc 发表于 2010-9-29 16:01

借来一用
#include <file.au3>
#include <array.au3>
Global $Path="d:\lan" ;开始遍历的根目录
Local $FileArray=_FileListToArray($Path,'*',2) ;将根目录中所有文件夹读入数组
_ArrayDisplay($FileArray,"所有的文件和文件夹") ;显示读取的所有目录

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

[AU3基础] 如何删除一个文件夹下的所有子文件夹而不删除文件（指点一二）

相关帖子