Tworzenie folderu

Jak utworzyć folder dzięki w VBA w wybranej lokalizacji? Kiedyś znalazłem taki kod. Jak zawsze pomocna okazała się strona stackoverflow.com.

Jako ciekawostkę można zwrócić uwagę na Chr(34) który pozwala w wiadomości np. Msgbox czy Debug.Print wyświetlić cudzysłowy.

Tworzenie folderu przez VBA w podanej lokalizacji:

Sub FolderCreation()
' Tworzenie folderu

' Źródło:
' https://stackoverflow.com/questions/10803834/is-there-a-way-to-create-a-folder-and-sub-folders-in-excel-vba

Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Dim sItem As String

sItem = ThisWorkbook.Path 'scieżka może też być wybrana przez usera za pomocą Folder Picker

Set fso = CreateObject("scripting.filesystemobject")
fldrname = "VBA_Folder"
fldrpath = sItem & "\" & fldrname
If Not fso.folderexists(fldrpath) Then
    fso.createfolder (fldrpath)
    Debug.Print "Utworzono folder " & Chr(34) & fldrname & Chr(34) & " w lokalizacji " & Chr(34) & sItem & Chr(34) & "."
Else
    Debug.Print "Folder " & Chr(34) & fldrname & Chr(34) & " w lokalizacji " & Chr(34) & sItem & Chr(34) & " już istnieje."
End If

End Sub

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Wymagane pola są oznaczone *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.