Question

vb,怎么删除文件夹(有时为空，有时有文件)

Answer 1

有两种方法：1、IfDir(Dir1.Path&\*.*,vbDirectoryOrvbHiddenOrvbArchiveOrvbReadOnlyOrvbSystem)<Then'判断文件是否存在KillDir1.Path&\*.*'先要删除所有文件才能删除目录IfDir(Dir1.Path&\*.*,vbDirectoryOrvbHiddenOrvbArchiveOrvbReadOnlyOrvbSystem)=Then'再次判断文件是否存在RmDir(Dir1.Path&\)MsgBox文件夹删除成功！,vbInformation,提示信息！EndIfEndIf提示：这种方法是先判断文件夹里面是否存在文件，如果不存在，则直接移除文件夹，如果存在，则删除文件夹中的文件，再把文件夹移除，但是它有一个致命的弱点，那就是如果文件夹中还含有子文件夹，以及子文件夹中还含有文件就做不到了。所以还有另外一种方法，可以完全删除文件夹，不管文件夹里面有没有什么东西，都可以实现。这种方法就是VB中特有的方法FSO法，具体应用如下：通过工程菜单中的引用选项，在里面选中MicrsoftScriptingRuntime后单击确定然后就可以写代码了：添加到你相应的事件里面去就可以了DimfsoAsNewFileSystemObjectDimfldrAsFolderDimnAsStringn=MsgBox(文件夹一旦删除将不可恢复，确实要删除该文件夹吗？