vb删除文件夹:在vb中删除带子文件夹的文件夹疯狂代码！

vb删除文件夹:在vb中删除带子文件夹的文件夹

option explicit 　　private sub command1_click

　　dim strpathname as

　　strpathname = \"\"

　　strpathname = inputbox(\"请输入需要删除

文件夹名称∶\", \"删除文件夹\")

　　

strpathname = \"\" then exit sub　　

　　on error goto errorhandle

　　

attr strpathname, vbnormal \'此行主要是为了检查文件夹名称

有效性

　　recur

ree strpathname

　　label1.caption = \"文件夹\" & strpathname & \"已经删除！\"

　　exit sub

　　errorhandle:

　　msgbox \"无效

文件夹名称:\" & strpathname

　　end sub　　

　　sub recur

ree(currpath as

)

　　dim sfilename as

　　dim

path as

　　dim spath as

oldpath as

　　

　　spath = currpath & \"\\\"　　

　　sfilename = dir(spath, 31) \'31

含义∶31=vbnormal+vbreadonly+vbhidden+vbsystem+vbvolume+vbdirectory

　　do while sfilename <> \"\"

　　

sfilename <> \".\" and sfilename <> \"..\" then

　　

getattr(spath & sfilename) and vbdirectory then \'如果是目录和文件夹

　　

path = spath & sfilename

　　recur

ree

path

　　sfilename = dir(spath, 31)

　　

attr spath & sfilename, vbnormal

　　kill (spath & sfilename)

　　label1.caption = spath & sfilename \'显示删除过程

　　sfilename = dir

　　end

　　sfilename = dir

　　end

　　doevents

　　loop

　　

attr currpath, vbnormal

　　rmdir currpath

　　label1.caption = currpath

　　end sub

vb删除文件夹:在vb中删除带子文件夹的文件夹