最基础的VB删除文件夹方法 代码，删除前弹出确认提示，先使用fso.FolderExists判断文件夹是否存在，然后使用fso.DeleteFolder删除，具体代码如下： 　　Dim c As Integer 　　Call RiStr 　　c = MsgBox("确认将该文件夹删除吗?", 17, "提示信息") 　　If c = vbOK Then 　　 If fso.FolderExists(Text1.Text) Then 　　 fso.DeleteFolder Text1.Text '删除文件夹 　　 MsgBox "文