creer sous_repertoire

Bonsoir,
Suffit simplement de reprendre sur codyx.org une méthode déterminant la présence d'un fichier ou répertoire (code de Renfield)
http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx

Et de l'appliquer:
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const INVALID_FILE_ATTRIBUTES As Long = &HFFFFFFFF

Public Function IsFileExisting(ByRef Path As String) As Boolean
    IsFileExisting = (GetFileAttributes(Path) <> INVALID_FILE_ATTRIBUTES)
End Function

Exemple:
    If IsFileExisting("C:\repertoire1\TonNouveauDossier") = False Then
        MkDir ("C:\repertoire1\TonNouveauDossier")
    End If

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _ 
                    (ByVal lpPath As String) As Long 

Private Sub Form_Load() 
    'URL: http://www.allapi.net/
    MakeSureDirectoryPathExists "c:\this\is\a\test\directory\"  'ne le créé que s'il n'existe pas
End Sub

Coloration syntaxique automatique [AFCK]
       

++
PCPT   [AFCK]