'1 判斷資料夾是否存在
'dir函式的第二個引數是vbdirectory時可以返回路徑下的指定檔案和資料夾,如果結果為"",則表示不存在。
sub w1()
if dir(thisworkbook.path & "\2023年報表2", vbdirectory) = "" then
msgbox "不存在"
else
msgbox "存在"
end if
end sub
'2 新建資料夾
'mikdir語句可以建立乙個資料夾
sub w2()
mkdir thisworkbook.path & "\test"
end sub
'3 刪除資料夾
'rmdir語句可以刪除乙個資料夾,如果想要使用 rmdir 來刪除乙個含有檔案的目錄或資料夾,則會發生錯誤。
'在試圖刪除目錄或資料夾之前,先使用 kill 語句來刪除所有檔案。
sub w3()
rmdir thisworkbook.path & "\test"
end sub
'4 資料夾重新命名
sub w4()
name thisworkbook.path & "\test" as thisworkbook.path & "\test2"
end sub
'5 資料夾移動
'同樣使用name方法,可以達到移動的效果,而且連資料夾的檔案一起移動
sub w5()
name thisworkbook.path & "\test2" as thisworkbook.path & "\2023年報表\test100"
end sub
'6 資料夾複製
sub copyfile_fso()
dim fso as object
set fso = createobject("scripting.filesystemobject")
fso.copyfolder thisworkbook.path & "\測試新建資料夾", thisworkbook.path & "\2023年報表\"
set fso = nothing
end sub
'7 開啟資料夾
'使用shell函式桌面管理程式開啟資料夾
sub w7()
shell "explorer.exe " & thisworkbook.path & "\2023年報表", 1
end sub
VBA中遍歷資料夾
如下 sub test enumfiles c documents and settings ibmsz my documents 2010 08 10 遍歷 e 下的所有檔案 end sub sub enumfiles byval spath as string dim fs as new fil...
資料夾操作
建立資料夾 char buf 256 getcurrentdirectory 256,buf 獲取程式根目錄路徑 m name.getwindowtext name strcat buf,strcat buf,name createdirectory buf,null 刪除資料夾 char buf ...
檔案(夾)操作
對檔案和資料夾操作的類 1.fileinfo具體檔案,使用此類的物件,可以獲得問價大小等各種資訊 繼承自filesysteminfo 建立物件,fileinfo fi new fileinfo 常用屬性 name 檔名稱 extension 副檔名 fullname 檔案完全路徑 物理路徑 leng...