第1个回答 2011-06-15
删除文件夹:RmDir (path as String)
删除文件:kill(path as string)
要删除含有文件的文件夹,要先将文件删除再删文件夹。
第2个回答 2011-06-15
Dim fso As New FileSystemObject
Private Sub Command1_Click()
fso.DeleteFolder ("C:\111"), True ‘可以删除只读文件夹
End Sub
第3个回答 2011-06-15
以文件夹d:/abc为例
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim fldr As Folder
If fso.FolderExists("d:\abc") Then '判断文件夹是否存在
Set fldr = fso.GetFolder("d:\abc")
Print fldr.Attributes
If fldr.Attributes And ReadOnly Then
MsgBox "只读文件夹"
End If
End If
End Sub本回答被网友采纳
第4个回答 2011-06-19
如果文件夹理由文件的话可以这么用:比如,删除一个 D:\a\ 目录
Private Sub DeleteDir()
If Dir("D:\a", vbNormal) = "" Then Kill "D:\a\*.*"
RmDir "D:\a"
End Sub
我自调试了一下,能用