En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1251951 visiteurs

 6 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : Les mémos - Fichiers
Page lue 2284 fois
Vous êtes ici :   Accueil » Créer un dossier