|
发表于 2017-2-14 00:16:45
|
显示全部楼层
上海市上海市
- .版本 2
- .子程序 目录_清空, , 公开, 删除指定目录下所有文件,子目录或子目录下的文件不会被删除;
- .参数 要删除文件的目录, 文本型, , 如:删除D:\Program Files(也就是Program Files)目录下的全部文件;,目录不以\结尾会自动添加
- .参数 文件类型, 文本型, 可空, 默认为清空所有文件;或者清空指定格式(*.txt或*.exe)等等;
- .局部变量 SFO, 对象
- .局部变量 局_目录, 文本型
- CoInitialize (0)
- .如果真 (SFO.创建 (“scripting.FileSystemObject”, ))
- .如果真 (取文本右边 (要删除文件的目录, 1) ≠ “\”)
- 局_目录 = 要删除文件的目录 + “\”
- .如果真结束
- .如果 (文件类型 = “”)
- SFO.方法 (“DeleteFile”, 局_目录 + “*.*”, 1)
- .否则
- SFO.方法 (“DeleteFile”, 局_目录 + 文件类型, 1)
- .如果结束
- CoUninitialize ()
复制代码
5.6 是这样的 |
|