Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Procédure : PrepareRep
Création de l'ensemble des répertoires pour un chemin donné.
(Consulté 19042 fois.)

Public Sub PrepareRep(stRep As String)
' Cette procédure permet de créer le chemin complet donné en paramètre.
Dim lgWhile As Long
' Initialise la fin de la chaîne.
If Right$(stRep, 1) <> "\" Then stRep = stRep & "\"
' Repère le départ du premier répertoire.
lgWhile = InStr(4, stRep, "\")
Do While (lgWhile > 0)
' Vérifie l'existence du répertoire.
    If Dir$(Left$(stRep, lgWhile), vbDirectory) = vbNullString Then
        ' Crée le répertoire.
        MkDir Left$(stRep, lgWhile)
    End If
    lgWhile = InStr(lgWhile + 1, stRep, "\")
Loop
End Sub

Retour à la liste des fonctions