Question

vb中如何删除文件夹

Answer 1

删除文件夹：RmDir (path as String)
删除文件：kill(path as string)

要删除含有文件的文件夹，要先将文件删除再删文件夹。

Answer 2

Dim fso As New FileSystemObject
Private Sub Command1_Click()
fso.DeleteFolder ("C:\111"), True ‘可以删除只读文件夹
End Sub

Answer 3

以文件夹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

Answer 4

如果文件夹理由文件的话可以这么用：比如，删除一个 D:\a\ 目录

Private Sub DeleteDir()
If Dir("D:\a", vbNormal) = "" Then Kill "D:\a\*.*"
RmDir "D:\a"
End Sub

我自调试了一下，能用