Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008415 visiteurs
6 visiteurs en ligne
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