删除IE临时文件出错

删除IE临时文件出错

重启下试试、

据我所知，这个是个文件，而不是文件夹，如果你真的有需要，那就用这个代码吧 可以删除文件夹和下面所有的子文件，子文件夹 'vb 中删除带子文件夹的文件夹 option explicit private sub command1_click() dim strpathname as string strpathname = "" strpathname = inputbox("请输入需要删除的文件夹名称∶", "删除文件夹") if strpathname = "" then exit sub on error goto errorhandle setattr strpathname, vbnormal '此行主要是为了检查文件夹名称的有效性 recursetree strpathname label1.caption = "文件夹" & strpathname & "已经删除！" exit sub errorhandle: msgbox "无效的文件夹名称:" & strpathname end sub sub recursetree(currpath as string) dim sfilename as string dim newpath as string dim 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