Créer un dossier

Créer un dossier à l'aide du FileSystemObject

Dans les faits, on utilisera directement la fonction apportée par la classe "FileSystemObject" pour laquelle on aura pris soin de cocher la référence "Microsoft Scripting Runtime"

On comprendra donc que la fonction ci-dessous est donc plutôt un exemple d'utilisation de la fonction "CreateFolder"

Function CreateDir(sDir As String) As Boolean
    '/
    '/ Nécessite la référence "Microsoft Scripting Runtime"
    '/
    '/ USAGE :
    '/
    '/ If CreateDir("E:/Test") = true then
    '/     la suite du code
    '/ end if
    '/
    Dim FSO As FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(sDir) Then
        MsgBox "Le répertoire existe déjà", vbCritical
        Exit Function
    End If
    FSO.CreateFolder sDir
    CreateDir = FSO.FolderExists(sDir)
End Function