Hoe controleer je of een map bestaat en zo niet, hoe maak je deze aan?

Heb je ooit geprobeerd te controleren of een map bestaat vanuit een Excel-werkblad? In dit artikel zal ik het hebben over het controleren of een map bestaat in een bepaald pad, en zo niet, dan wordt de map automatisch aangemaakt onder dat pad.

Controleer of een map bestaat in een specifiek bestandspad met VBA-code

Maak de map aan als deze niet bestaat in een specifiek bestandspad met VBA-code

Controleer of een map bestaat in een specifiek bestandspad met VBA-code

De volgende VBA-code kan je helpen om te controleren of een map bestaat in een specifiek bestandspad. Doe het volgende:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Controleer of een map bestaat in een specifiek bestandspad:

Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
    Dim sFolderPath As String
    sFolderPath = "C:\Users\DT168\Desktop\Test folder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
    End If
End Sub

Opmerking: In de bovenstaande code moet je het mappad en de naam C:\Users\DT168\Desktop\Test folder wijzigen naar wat je nodig hebt.

3. Druk vervolgens op de F5-toets om deze code uit te voeren, je krijgt de volgende resultaten:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Maak de map aan als deze niet bestaat in een specifiek bestandspad met VBA-code

Controleer of een map bestaat in een bestandspad, en zo niet, maak deze aan onder dit specifieke bestandspad. De volgende VBA-code kan je helpen om deze taak te voltooien.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Maak een map aan als deze niet bestaat in een bestandspad:

Sub MakeMyFolder()
'Updateby Extendoffice
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
        MsgBox "Found it.", vbInformation, "Kutools for Excel"
    Else
        fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
        MsgBox "It has been created.", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

Opmerking: In de bovenstaande code moet je het mappad en de naam C:\Users\DT168\Desktop\Test folder wijzigen naar wat je nodig hebt.

3. Nadat je de code hebt geplakt, druk op de F5-toets om deze uit te voeren:

(1.) Als de map bestaat, verschijnt er een pop-upvenster zoals in de volgende schermafbeelding te zien is:

(2.) Als de map niet bestaat, wordt deze onmiddellijk aangemaakt onder het specifieke pad, en verschijnt er een pop-upvenster om je eraan te herinneren dat de map is aangemaakt, zie schermafbeelding: