Apr 11

VB删除目录下所有文件的函数

程序开发相关Add comments

VB这种古老而又“弱智”的东西，不知道这个年代是否还有人在用。很不幸的，为了实现某些功能，我用了……下面的函数实现了整体删除目录下的所有子目录和文件。具体就看代码吧。


  1. Public   Sub   RemoveDir(folderspec) 
  2.         '功能说明：删除目录(folderspec)下的所有文件及文件夹 
  3.         On   Error   Resume   Next 
  4.         
  5.         '删除目录(folderspec)下的所有文件 
  6.           Dim   fs,   fc 
  7.           Dim   f   As   Folder 
  8.           Set   fs   =   CreateObject("Scripting.FileSystemObject") 
  9.           Set   f   =   fs.GetFolder(folderspec) 
  10.                 '删除文件夹 
  11.           Set   SubSubFolders   =   f.SubFolders 
  12.           Dim   TempFolder   As   Folder 
  13.           For   Each   TempFolder   In   SubSubFolders 
  14.                     TempFolder.Delete   True 
  15.           Next 
  16.                 '删除文件 
  17.           Set   tempFiles   =   f.Files 
  18.           Dim   tempFile   As   File 
  19.           For   Each   tempFile   In   tempFiles 
  20.                   tempFile.Delete   True 
  21.           Next 
  22.       
  23.   End   Sub

written by Minidxer  |  tags: , ,

Leave a Reply