Creation de l'arborescence d'un nouveau répertoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 786 fois - Téléchargée 43 fois

Contenu du snippet

voir le titre

Source / Exemple :


Public Function RepertoireCreation(ByVal RptChm As String) As Boolean
'
Dim RptTbl() As String
Dim Niveau   As Integer
Dim Trouve   As Boolean
Dim TmpTbl() As String
Dim TmpAtr   As Integer
'
  On Error Resume Next
  RptTbl = Split(RptChm, "\")
  
  Trouve = False
  Niveau = UBound(RptTbl)
  While ((Niveau >= 0) And (Not Trouve))
    
    TmpTbl = RptTbl
    ReDim Preserve TmpTbl(0 To Niveau)
    RptChm = Join(TmpTbl, "\")
    
    Err.Clear
    TmpAtr = GetAttr(RptChm)
    If (Err.Number = 0) Then
      If ((TmpAtr And vbDirectory) = vbDirectory) Then
        Trouve = True
      Else
        Niveau = 0
      End If
    End If
    
    If (Not Trouve) Then
      Niveau = Niveau - 1
    End If
    
  Wend
  
  If ((Trouve) And (Niveau < UBound(RptTbl))) Then
  
    While ((Niveau < UBound(RptTbl)) And (Trouve))
      
      Niveau = Niveau + 1
      TmpTbl = RptTbl
      ReDim Preserve TmpTbl(0 To Niveau)
      RptChm = Join(TmpTbl, "\")
      
      MkDir RptChm
      
      Trouve = (Err.Number = 0)
      
    Wend
  
  End If

  RepertoireCreation = Trouve

End Function

Conclusion :


Pas de commentaire, désolé !

A voir également

Ajouter un commentaire

Commentaires

JMC70
Messages postés
77
Date d'inscription
samedi 9 novembre 2002
Statut
Membre
Dernière intervention
6 juillet 2014
-
Merci à Logisim pour cette API qui fonctionne même pour un chemin réseau du type \\poste 4\truc\machin\ (ce ce je cherchais)
logisim
Messages postés
49
Date d'inscription
mardi 8 mai 2001
Statut
Membre
Dernière intervention
14 août 2004
-
Il y a plus simple ! C'est d'utiliser l'API :

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

Exemple :

MakeSureDirectoryPathExists "C:DossierSousdossier"

(ne pas oublier le backslash à la fin)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.