RSS
当前位置 : 电脑维修 > 电脑维修 > 删除ie文件

删除ie文件

来源:未知 作者:老黑 时间:09-12-26 打印
我下了个软件后,桌面上出现了一个名为 abbey  的ie文件,点击右键,只有打开,属性,剪切。没有删除。桌面属性中-桌面-自定义桌面中没有桌面清理,我不知道该怎么办。望高手指点迷津,谢谢! PS.用360安全卫士中的文件粉碎机,这个ie文件也拖不进去,剪切后,在别的文件夹里也不能粘贴。十分流氓的ie文件 VB的FSO操作吧

Option       Explicit      
   Private       gstrSEP_DIR       As       String      
       
   Sub       FPDeleteTree(inPath       As       String)      
       
   '定义临时变量      
   Dim     & fef #160; tmpPath       As       String,       curPath       As       String      
   Dim       tmpFileName       As       String      
       
   '保存指定路径      
       
   curPath       =       inPath:       AddDirSep       curPath      
       
       
       
   '不理目录下文件属性,统统删除。      
       
   tmpFileName       =       Dir(curPath,       vbNormal             vbHidden             vbSystem)      
       
   Do       While       Not       tmpFileName       =       " "      
       
   SetAttr       curPath       &       tmpFileName,       vbNormal      
       
   Kill       curPath       &       tmpFileName      
       
   tmpFileName       =       Dir      
       
   Loop      
       
   '循环删除子目录及其内容      
       
   tmpPath       =       Dir(curPath,       vbDirectory)      
       
   Do       While       tmpPath       =       ". "       Or       tmpPath       =       ".. "      
       
   tmpPath       =       Dir      
       
   Loop      
       
   Do       While       Not       tmpPath       =       " "      
       
   curPath       =       curPath       &       tmpPath      
       
   AddDirSep       curPath      
       
   tmpFileName       =       Dir(curPath,       vbNormal             vbHidden             vbSystem)      
       
   Do       While       Not       tmpFileName       =       " "      
       
   SetAttr       curPath       &       tmpFileName,       vbNormal      
       
   Kill       curPath       &       tmpFileName      
       
   tmpFileName       =   fef     Dir      
       
   Loop      
       
   tmpPath       =       Dir(curPath,       vbDirectory)      
       
   Do       While       tmpPath       =       ". "       Or       tmpPath       =       ".. "      
       
   tmpPath       =       Dir      
       
   Loop      
       
   If       tmpPath       =       " "       Then      
       
   RmDir       curPath      
       
   curPath       =       inPath      
       
   AddDirSep       curPath      
       
   tmpPath       =       Dir(curPath,       vbDirectory)      
       
   Do       While       tmpPath       =       ". "       Or       tmpPath       =       ".. "      
       
   tmpPath       =       Dir      
       
   Loop      
       
   End       If      
       
   Loop      
       
   AddDirSep       inPath      
       
   RmDir       inPath      
       
   End       Sub      
       
   '******************************************************************************      
       
   '       子程序:       AddDirSep      
       
   '******************************************************************************      
       
   Sub       AddDirSep(strPathName       As       String)      
       
   If       Right$(RTrim$(strPathName),       Len(gstrSEP_DIR))       <>       gstrSEP_DIR       Then      
       
   strPathName       =       RTrim$(strPathName)       &       gstrSEP_DIR      
       
   End       If      
       
   End       Sub      
       
       
   Private       Sub       Command1_Click()      
                   gstrSEP_DIR       =       " &qu fef ot;      
                   FPDeleteTree       ( "e:www ")      
   End       Sub      
 网上找的,不知道对你是否有用?

我的目的是为了删除Temporary   Internet   Files目录下的指定文件,因为全删除后网页的刷新太慢

先getspecialfolder,再kill   "*.* "  
最新评论共有位网友发表了评论
发表评论
评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
用户名: 密码:
匿名评论