MS VBA | Создать папку на диске

Cоздать папку с именем MyFolderName в той же папке, в которой расположен файл формата .xls с VBA-кодом (ThisWorkbook.Path) или на диске C:

 


Public Const folderName As String = "MyFolderName"

 

Sub CreateFolder(ws As Worksheet, AutocreateFolders As Boolean)

 

    folderPath = ws.Parent.Path & Application.PathSeparator & folderName 'присвоен путь

    'другой вариант - на диск C: 

    'folderPath = 'c:' & Application.PathSeparator & folderName

 

    If AutocreateFolders Then 'создается при условии AutocreateFolders = True

        Dim fs As Object

        Set fs = CreateObject("Scripting.FileSystemObject")

        If Not fs.folderexists(folderPath) Then 'проверка, если папка уже существует

            fs.CreateFolder (folderPath)

        End If

    End If

 

End Sub


 

См. принимаемые значения переменных, включая ThisWorkbook.Path, с помощью Окна Immediate,

например:

 

 

 

 



© 2018 | Анна Петросян | pashelp@yandex.ru