Access培訓
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

徹底刪除文件夾代碼

時 間:2012-05-09 09:09:20
作 者:金宇   ID:43  城市:江陰
摘 要:徹底刪除文件夾的代碼
正 文:

'此代碼為徹底刪除文件夾,不可恢復
Private Sub Cmd按鈕_Click()
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    '路徑為D盤的某文件夾,名稱自己定義即可
    fs.DeleteFolder "D:\文件夾名稱"
    Set fs = Nothing
End Sub

Access軟件網QQ交流群 (群號:198347485)       access源碼網店

最新評論 查看更多評論(5)

2019/6/26 12:21:51qinghe
Kill "[filespath]" & Chr(92) & Chr(42) & Chr(46) & "txt"

2012/5/11 8:45:11麥田
在需要刪除文件夾的地方用到

2012/5/10 22:11:11rainy
在什么方面能用到呢?

2012/5/10 10:10:33麥田
管用

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助