FSO: метод DeleteFolder

Синтаксис:

DeleteFolder(<Folderspec>,<Force>)

Назначение: удаляет указанную папку.

Параметры:

<Folderspec> – строка, путь к папке. В последнем компоненте параметра можно использовать групповые символы “*” и “?”.

<Force> – необязательный, булево (число). Определяет, удалять или нет файлы с атрибутом read-only. По умолчанию – False (не удалять).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder "A:\*", 0

'==================================================================================================

' ##### Удаление папки

'<Folderspec> – строка, путь к папке. В последнем компоненте параметра можно использовать групповые символы “*” и “?”.

'<Force> – необязательный, булево (число). Определяет, удалять или нет файлы с атрибутом read-only. По умолчанию – False (не удалять).

' ----------------------------------------------------------------------------------------------

Function FnDeleteFolder(ByVal strFolderPath As String, _

                            ByVal bldDelFileROnly As Boolean) As Boolean

    Err.Clear

    On Error Resume Next

    'Set FSO = CreateObject("Scripting.FileSystemObject")

    'FSO.DeleteFolder "A:\*", 0

    Set FSO = CreateObject("Scripting.FileSystemObject")

    FSO.DeleteFolder strFolderPath, bldDelFileROnly

    If Len(Err.Description) = 0 Then FnDeleteFolder = True

End Function

'==================================================================================================

Метки: CreateObject("Scripting.FileSystemObject"), DeleteFolder, FSO, SetFSO