欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

打開(kāi)APP
userphoto
未登錄

開(kāi)通VIP，暢享免費電子書(shū)等14項超值服

開(kāi)通VIP

首頁(yè)

好書(shū)

留言交流

下載APP

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

聯(lián)系客服

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久