以下代碼建議在on error resume next下測試
A,在D:/下新建文件夾,命名爲folder
方法1:MkDir "D:/folder"
方法2:Set abc = CreateObject("Scripting.FileSystemObject")
abc.CreateFolder ("D:/folder")
B,新建2個文件命名爲a.xls和b.xls
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:/folder/a.xls"
ActiveWorkbook.SaveAs Filename:="D:/folder/b.xls"
C,創建新文件夾folder1並把a.xls複製到新文件夾重新命名爲c.xls
MkDir "D:/folder1"
FileCopy "D:/folder/a.xls", "D:/folder1/c.xls"
D,複製folder中所有文件到folder1
Set qqq = CreateObject("Scripting.FileSystemObject")
qqq.CopyFolder "D:/folder", "D:/folder1"
E,重命名a.xls爲d.xls
name "d:/folder1/a.xls" as "d:/folder1/d.xls"
F,判斷文件及文件夾是否存在
Set yyy = CreateObject("Scripting.FileSystemObject")
If yyy.FolderExists("D:/folder1) = True Then ...
If yyy.FileExists("D:/folder1/d.xls) = True Then ...
G,打開folder1中所有文件
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("d:/folder1")
For Each i In r.Files
Workbooks.Open Filename:=("d:/folder1/" + i.Name + "")
Next
H,刪除文件c.xls
kill "d:/folder1/c.xls"
I,刪除文件夾folder
Set aaa = CreateObject("Scripting.FileSystemObject")
aaa.DeleteFolder "d:/folder"