Question

vb在指定路径内新建和删除文件夹

1楼的编译错误.2楼的不够祥细!

Answer 1

我是原来1楼的那个，

'建立
Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.FolderExists("c:\abc") Then
MsgBox ("文件夹已存在")
Else
fso.CreateFolder ("c:\abc")
End If
End Sub

'删除
Private Sub Command2_Click()
Dim fso As New FileSystemObject
If Not fso.FolderExists("c:\abc") Then
MsgBox ("文件夹不存在")
Else
fso.DeleteFolder ("c:\abc")
End If
End Sub

--------------------------------------
忘了和你说了，要在菜单里选
工程－引用
Microsoft Scripting Runtime
然后再运行。

-------------------------
另外，关于love_u365s说的
rmdir ("c:\abc")'在C盘里删除文件夹abc
mkdir ("c:\abc")'在C盘里建立文件夹abc
但是，rmdir在删文件夹时，如果文件夹里有文件，就无法删除，但是用我说的FSO就不会这样。

看你的需求了，如果c:\abc里无文件，还是用rmdir("c:\abc")简单，如果里有文件就用fso

Answer 2

生成文件夹:mkdir "C:\aaaa"
删除文件夹:rmdir "C:\aaaa"