Access删除文件夹（包括下面的子文件夹和文件）

在Access中可以利用VBA创建文件夹，那么如何删除无用的文件夹呢？举例

删除D:\Test\temp目录下的所有文件夹和文档
方法一：
Sub mydel()
    Shell "cmd.exe /c rd/s/q d:\test\temp\"
    Shell "cmd.exe /c md d:\test\temp"
End Sub


方法二：请小心使用以下代码！！后果自负
Sub DelAll()
strpathname = "D:\"
CreateObject("scripting.filesystemobject").getfolder(strpathname).Delete True
End Sub

可参考的FileSystemObject 对象相关操作说明（虽然是js,但也可参考）


JS读取/创建本地文件及目录文件夹的方法

[size=1em]1 var fso = new ActiveXObject("Scripting.FileSystemObject");

[size=1em]1 var fso = new ActiveXObject("Scripting.FileSystemObject");2 var f1 = fso.createtextfile("E:\\myjstest.txt",true");

[size=1em]1 var fso = new ActiveXObject("Scripting.FileSystemObject");2 var f1 = fso.GetFile("E:\\myjstest.txt");

[size=1em]1 var fso = new ActiveXObject("Scripting.FileSystemObject");2 var f1 = fso.GetFile("E:\\myjstest.txt");3 alert("文件最后创建日期: " + f1.DateLastModified);

[size=1em]1 var fso = new ActiveXObject("Scripting.FileSystemObject");2 var f1 = fso.createtextfile("E:\\myjstest.txt",true");3 alert("文件最后创建日期: " + f1.DateLastModified);

1

1 var fso, fldr, s = "";
2 // 创建FileSystemObject对象实例
3 fso = new ActiveXObject("Scripting.FileSystemObject");
4 // 获取Drive 对象
5 fldr = fso.GetFolder("E:\\");
6 // 显示父目录名称
7 alert("父目录是: " + fldr + "\n");
8 // 显示所在drive名称
9 alert("盘符是： " + fldr.Drive + "\n");
10 // 判断是否为根目录
11 if (fldr.IsRootFolder)
12 alert("这是根目录.");
13 else
14 alert("这不是根目录.");
15 // 创建新文件夹
16 fso.CreateFolder ("E:\\html");
17 alert("创建文件夹 E:\\html" + "\n");
18 // 显示文件夹基础名称，不包含路径名
19 alert("Basename = " + fso.GetBaseName("E:\\html") + "\n");
20 // 删除创建的文件夹
21 fso.DeleteFolder ("E:\\html");
22 alert("删除文件夹 E:\\html" + "\n");