**如下：
sub recursetree(currpath as string) 'currpath問資料夾路徑
dim sfilename as string, newpath as string, spath as string
static oldpath as string
spath = currpath & "\"
sfilename = dir(spath, 31) '31的含義∶31=vbnormal+vbreadonly+vbhidden+vbsystem+vbvolume+vbdirectory
do while sfilename <> ""
if sfilename <> "." and sfilename <> ".." then
if getattr(spath & sfilename) and vbdirectory then '如果是目錄和資料夾
newpath = spath & sfilename
recursetree newpath
sfilename = dir(spath, 31)
else
setattr spath & sfilename, vbnormal
kill (spath & sfilename)
'label1.caption = spath & sfilename '顯示刪除過程
sfilename = dir
end if
else
sfilename = dir
end if
doevents
loop
setattr currpath, vbnormal
rmdir currpath
'label1.caption = currpath
end sub
相關文章參考：※vb ftp
操作類()※
vb刪除帶子資料夾和檔案的資料夾
※vb 開啟資料夾
,並選中指定的檔案
※得到指定資料夾下的檔案列表
VB刪除帶子資料夾和檔案的資料夾
刪除帶子資料夾和檔案的資料夾 程式 sub recursetree currpath as string currpath問資料夾路徑 dim sfilename as string,newpath as string,spath as string static oldpath as string...
刪除檔案和資料夾
一 刪除檔案 使用 del 命令，可以檢視幫助資訊 del p f s q a attributes names erase p f s q a attributes names names 指定乙個或數個檔案或目錄列表。萬用字元可被用來 刪除多個檔案。如果指定了乙個目錄，目錄中的所 有檔案都會被刪...
刪除檔案和資料夾
一 刪除檔案 使用 del 命令，可以檢視幫助資訊 del p f s q a attributes names erase p f s q a attributes names names 指定乙個或數個檔案或目錄列表。萬用字元可被用來 刪除多個檔案。如果指定了乙個目錄，目錄中的所 有檔案都會被刪...