Come verificare se una cartella esiste e in caso contrario crearla?

Hai mai provato a verificare se una cartella esiste o meno dal foglio di lavoro di Excel? In questo articolo, parlerò del controllo se una cartella esiste in un percorso specificato, in caso contrario, la cartella verrà creata automaticamente sotto il percorso.

Controlla se esiste una cartella in un percorso file specifico con codice VBA

Crea la cartella se non esiste in un percorso file specifico con codice VBA

Controlla se esiste una cartella in un percorso file specifico con codice VBA

Il seguente codice VBA può aiutarti a verificare se esiste una cartella in un percorso file specifico, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: controlla se esiste una cartella in un percorso file specifico:

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

Nota: Nel codice sopra, dovresti cambiare il percorso e il nome della cartella Cartella C: \ Users \ DT168 \ Desktop \ Test al tuo bisogno.

3. Quindi premere F5 chiave per eseguire questo codice, otterrai i seguenti risultati:

Crea la cartella se non esiste in un percorso file specifico con codice VBA

Controlla se esiste una cartella in un percorso file, in caso contrario, per crearla in questo percorso file specifico, il seguente codice VBA potrebbe aiutarti a completare questo lavoro.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: crea una cartella se non esiste in un percorso file:

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

Note:: Nel codice sopra, dovresti cambiare il percorso e il nome della cartella Cartella C: \ Users \ DT168 \ Desktop \ Test al tuo bisogno.

3. Dopo aver incollato il codice e premere F5 chiave per eseguirlo:

(1.) Se la cartella esiste, verrà visualizzata una finestra di messaggio come mostrato nella seguente schermata:

(2.) Se la cartella non esiste, verrà creata immediatamente nel percorso specifico e verrà visualizzata una finestra di messaggio per ricordarti che la cartella è stata creata, vedi screenshot: