删除某个文件夹

Question

在vb里，如果想直接删除某个文件夹(例如"f:\LJD",应该怎么写?

Answer 1

该示例演示如何使用 Folder 对象和 
FileSystemObject 对象来操作文件夹并获得其信息：Private Sub Command10_Click()
   ' 获得 FileSystemObject 的实例。
   Dim fso As New FileSystemObject, fldr As Folder, s As String
   ' 获取 Drive 对象。
   Set fldr = fso.GetFolder("c:")
   ' 显示父文件夹名。
   Debug.Print "Parent folder name is: " & fldr
   ' 显示驱动器名。
   Debug.Print "Contained on drive " & fldr.Drive
   ' 显示根文件名。
   If fldr.IsRootFolder = True Then
      Debug.Print "This folder is a root folder."
   Else
      Debug.Print "This folder isn't a root folder."
   End If
   ' 用 FileSystemObject 对象创建一个新的文件夹。
   fso.CreateFolder ("c:\Bogus")
   Debug.Print "Created folder C:\Bogus"
   ' 显示文件夹的基本名称。
   Debug.Print "Basename = " & fso.GetBaseName("c:\bogus")
   ' 删除新建的文件夹。
   fso.DeleteFolder ("c:\Bogus")
   Debug.Print "Deleted folder C:\Bogus"
End SubPS：
   朋友们，请帮个小忙呀，谢谢先。
   请关注http://www.ycjmw.com/window/test.asp
   帮14、17号作品投你宝贵的一票吧，拜托了。

Answer 2

Option Explicit
Dim fso As New FileSystemObject
Dim folder1 As FolderPrivate Sub CmdDelete_Click()
Set folder1 = fso.GetFolder("c:")
fso.DeleteFolder ("c:\LJD")
End Sub
注意把工程->引用菜单下的“Microsoft Scripting Runtime”选上

Answer 3

Private Sub Form_Click()
   Dim fso As New FileSystemObject
   
   fso.DeleteFolder ("d:\tmp\dirtry")End Sub西西，这样是最简单的了，刚才是十全