他山之石 VBA資料夾操作

2021-08-21 00:21:15 字數 1268 閱讀 3339

'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...