

在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 TrueEnd 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 else14 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");