MyTetra Share
Делитесь знаниями!
FSO: метод DeleteFolder
Время создания: 16.03.2019 23:43
Текстовые метки: CreateObject("Scripting.FileSystemObject"), DeleteFolder, FSO, SetFSO
Раздел: !Закладки - VBA - FSO
Запись: xintrea/mytetra_db_adgaver_new/master/base/15144468720fyn1sulbp/text.html на raw.githubusercontent.com

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

 

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования