MyTetra Share
Делитесь знаниями!
FSO: метод DeleteFolder
16.03.2019
23:43
Текстовые метки: CreateObject("Scripting.FileSystemObject"), DeleteFolder, FSO, SetFSO
Раздел: !Закладки - VBA - FSO

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.52
Яндекс индекс цитирования