如题所述
有两种方法：1、IfDir(Dir1.Path&\*.*,vbDirectoryOrvbHiddenOrvbArchiveOrvbReadOnlyOrvbSystem)<Then'判断文件是否存在KillDir1.Path&\*.*'先要删除所有文件才能删除目录IfDir(Dir1.Path&\*.*,vbDirectoryOrvbHiddenOrvbArchiveOrvbReadOnlyOrvbSystem)=Then'再次判断文件是否存在RmDir(Dir1.Path&\)MsgBox文件夹删除成功！,vbInformation,提示信息！EndIfEndIf提示：这种方法是先判断文件夹里面是否存在文件，如果不存在，则直接移除文件夹，如果存在，则删除文件夹中的文件，再把文件夹移除，但是它有一个致命的弱点，那就是如果文件夹中还含有子文件夹，以及子文件夹中还含有文件就做不到了。所以还有另外一种方法，可以完全删除文件夹，不管文件夹里面有没有什么东西，都可以实现。这种方法就是VB中特有的方法FSO法，具体应用如下：通过工程菜单中的引用选项，在里面选中MicrsoftScriptingRuntime后单击确定然后就可以写代码了：添加到你相应的事件里面去就可以了DimfsoAsNewFileSystemObjectDimfldrAsFolderDimnAsStringn=MsgBox(文件夹一旦删除将不可恢复，确实要删除该文件夹吗？
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-11-15
Option Explicit
Private Sub Command1_Click()
If Dir("c:\dd", vbDirectory) = "" Then
MsgBox "文件夹不存在"
Else
RmDir ("c:\dd")
MsgBox "文件夹已删除"
End If
End Sub
Private Sub Command1_Click()
If Dir("c:\dd", vbDirectory) = "" Then
MsgBox "文件夹不存在"
Else
RmDir ("c:\dd")
MsgBox "文件夹已删除"
End If
End Sub
c盘的dd文件夹是要删除的文件夹
