注意，只是檔案夾，不是檔案，比如洗掉“c:/temp”里的所有檔案夾，但是檔案還留著，，，該怎么寫？
uj5u.com熱心網友回復：
如果子檔案夾中有檔案，也還是刪不掉的。你的意思是把檔案都 Copy 出來，把檔案夾刪掉？
uj5u.com熱心網友回復：
如果檔案夾下的子檔案夾都是空的：Dim strDirectory As String
On Error Resume Next
strDirectory = Dir("c:\temp\*.*", vbDirectory)
Do While strDirectory > ""
strDirectory = "c:\temp\" & strDirectory
RmDir(strDirectory )
strDirectory = Dir()
Loop
uj5u.com熱心網友回復：
額。。子檔案夾中有檔案連檔案帶子檔案夾全刪了，c:/temp 里的檔案不刪
網上查到這個，但不知道有沒有我說的效果，另外能不能強制洗掉？如果我有個視窗打開了子檔案夾，希望能強制刪掉。。。
Set fs = CreateObject("Scripting.FileSystemObject"）
fs.deletefile 洗掉檔案
fs.deletefolder
洗掉檔案夾
3:用API也可以辦到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 檔案名 '強制洗掉一個檔案uj5u.com熱心網友回復：
我運行了這個，但是沒成功，沒有洗掉一個檔案夾。。。
uj5u.com熱心網友回復：
我試了用fs可以。。。但是還有個問題，如果把子檔案夾里的檔案設為只讀就刪不掉了，問下名字不同的只讀檔案夾（包括里面的子檔案夾）該怎么把只讀去掉？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/125028.html
標籤：VB基礎類