如何用vb代码删除指定路径的文件或文件夹？急！急！

如何用vb代码删除指定路径的文件或文件夹？急！急！  
  点按钮就删除 问题点数：20、回复次数：7Top

1 楼shawls（VB Fan)(QQ:9181729）回复于 2005-11-02 13:37:25 得分 5

kill函数  
   
  删除文件Top

2 楼shawls（VB Fan)(QQ:9181729）回复于 2005-11-02 13:38:01 得分 5

[名称]                       用API一次删除含有文件的目录或文件夹  
   
  [源代码内容]  
   
  用API一次删除含有文件的目录或文件夹。    
  主要解答者:   ltpao   提交人:   foolishtiger    
  感谢:   ltpao    
   
  Private     Const     FO_MOVE     =     &H1      
  Private     Const     FO_COPY     =     &H2      
  Private     Const     FO_DELETE     =     &H3      
  Private     Const     FO_RENAME     =     &H4      
  Private     Const     FOF_NOCONFIRMATION     =     &H10      
  Private     Const     FOF_SILENT     =     &H4      
  Private     Const     FOF_NOERRORUI     =     &H400      
  Private     Declare     Function     SHFileOperation     Lib         "shell32.dll     "     Alias    
      "SHFileOperationA     "     (lpFileOp     As     SHFILEOPSTRUCT)     As     Long      
  Private     Type     SHFILEOPSTRUCT      
                                hwnd     As     Long      
                                wFunc     As     Long      
                                pFrom     As     String      
                                pTo     As     String      
                                fFlags     As     Integer      
                                fAnyOperationsAborted     As     Long      
                                hNameMappings     As     Long      
                                lpszProgressTitle     As     String     '         only     used     if     FOF_SIMPLEPROGRESS      
  End     Type      
     
  Public     Function     KillPath(ByVal     sPath     As     String)     As     Boolean      
                On     Error     Resume     Next      
                Dim     udtPath     As     SHFILEOPSTRUCT      
                udtPath.hwnd     =     0      
                udtPath.wFunc     =     FO_DELETE      
                udtPath.pFrom     =     sPath      
                udtPath.pTo     =         "     "      
                udtPath.fFlags     =     FOF_NOCONFIRMATION     Or     FOF_SILENT     Or     FOF_NOERRORUI      
                KillPath     =     Not     CBool(SHFileOperation(udtPath))      
  End     Function    
   
   
            以上代码保存于：   SourceCode   Explorer(源代码数据库)  
                        复制时间：   2005-11-02   13:42:42  
                        软件版本：   1.0.881  
                        软件作者：   Shawls  
                            E-Mail：   ShawFile@163.com  
                                    QQ：   9181729Top

3 楼bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回复于 2005-11-02 13:44:44 得分 5

kill函数  
  比如在commondialog里选中文件  
  If   Dir(CommonDialog1.fileName)   <>   ""   Then  
        Kill   CommonDialog1.fileName  
  End   IfTop

4 楼kally_tobye（）回复于 2005-11-02 14:44:37 得分 0

kill   函数要定义吗Top

5 楼kally_tobye（）回复于 2005-11-02 14:48:56 得分 0

kill   函数如要定义   ，如何定义？给高分Top

6 楼dashii（）回复于 2005-11-02 15:14:45 得分 5

kill函数不用定义，系统函数Top

7 楼zou19820704（天下英雄）回复于 2005-11-02 16:04:24 得分 0

Public   Fso   As   FileSystemObject  
          Set   Fso   =   CreateObject("Scripting.FileSystemObject")  
          If   Fso.FolderExists(App.Path   &   "\Temp")   Then   Fso.DeleteFolder   App.Path   &   "\Temp"  
   
   
  App.Path   &   "\Temp     文件路径Top

相关问题

• 文件夹
• 函数
• 文件
• udtpath
• 删除
• fof
• 路径
• shfileopstruct
• fo
• 定义

• 帖主：kally_tobye
• shawls
• shawls
• bbhere
• dashii

• Visual Basic类图书
• Visual Basic类源码下载