国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP，暢享免費電子書等14項超值服

開通VIP

首頁

好書

留言交流

下載APP

聯(lián)系客服
VB刪除目錄下所有文件的函數(shù)
  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
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。
打開APP，閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
將文件夾壓縮成zip文件的php代碼 - Web開發(fā) - 文檔中心 - 源碼天空
談vb目錄文件操作的三種方法
VB6.0對TXT文本文件的讀寫刪操作
ASP文件操作大全
Visual Basic 6編程中的漢字處理
VB6.0中Dir()函數(shù)的使用方法
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)！
如果VIP功能使用有故障，
可點擊這里聯(lián)系客服！

聯(lián)系客服