如何删除文件夹

chenwu

各位大虾：我想用VBA编写可将某一文件夹删除的程序，该如何编写。

snood

Delete 方法

描述

删除一个指定的文件或文件夹。 语法

object.Delete force

Delete 方法语法有如下几部分：

部分	描述
object	必需的。始终是一个 File 或 Folder 对象的名字。
force	可选的。Boolean 值，如果要删除具有只读属性设置的文件或文件夹，其值为True。当其值为 False 时（缺省），不能删除具有只读属性设置的文件或文件夹。

说明

如果指定的文件或文件夹不存在，则发生一个错误。

对于一个 File 或 Folder，Delete 方法的结果和 执行 FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder 操作的结果是一样的。

Delete 方法对于文件夹内是否有内容不做区别。不管指定的文件夹是否有内容，它都被删除。

zmwwh

rmdir "文件夹”

chenwu

假设我在C区建立一个文件夹aaaa, 以下是删除该文件的程序。 Sub ssssss()
xxx = "c:\aaaa"
xxx.Delete End Sub 但是会出现“运行时错误424”，该如何解决？

chenwu

用3楼朋友的方法删除文件夹时（rmdir "文件夹”)，如果文件夹中有文件时，会出现错误。

snood

Sub ssssss()
Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder("c:\aaaa")
f.Delete End Sub

chenwu

snood, 谢谢您！该程序不论是否有文件，是否打开，都能删除。

hhzjxss

QUOTE:

以下是引用snood在2004-3-13 16:40:00的发言：
Sub ssssss()
Set fs = CreateObject("Scripting.FileSystemObject")
   
    Set f = fs.GetFolder("c:\aaaa")
  
f.Delete
End Sub

怎么删除C盘的可以，删除别的又不行了呢？

比如：

Sub 删除文件夹()
        Set fs = CreateObject("Scripting.FileSystemObject")
        'Set f = fs.GetFolder("c:\aaaa")
        Set f = fs.GetFolder(ThisWorkbook.Path & "\破解")
        f.Delete
End Sub

qcz_2008

可以通过api函数来取得文件夹的位置,再进行删除.

Declare Function SHBrowseForFolder Lib "SHELL32.DLL" (lpBrowseInfo As BROWSEINFO) As Long
Declare Function SHGetPathFromIDList Lib "SHELL32.DLL" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public choice As String
Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Function GetDirectory(Optional message) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0
bInfo.lpszTitle = message
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(256)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
    pos = InStr(path, Chr(0))
    GetDirectory = Left(path, pos - 1)
Else
    GetDirectory = ""
End If
End Function

就可以通过GetDirectory来弹出对话框来选择文件夹,再进行删除了.

lhs3164

真是越学越觉得自己知道的少啊！