Suprimer l'intégralité d'un dossier et crée un chemin s'il n'existe pas

Commenter

Contenu du snippet

Deux toute petite fonction pas méchante qui peuvent servir à d'autre.
La premier crée l'intégralité d'un chemin, en gros si vous avez besoin de copier je sais pas un fichier dans un dossier mais que vous ne savez pas si ce dossier existe hop la fonction crée le dossier meme s'il se trouve dans 50 autre dossier innexistant eux aussi.

Et la deuxieme fonction supprime un dossier et tout son contenue. Sans gestion d'erreur, si vous voulez en ajouter mettez un chti on error resume next et les fichier non suprimable ne seront pas suprimer sans erreur :)

Source / Exemple : 


Sub MakePath(Path As String)
    Dim dirName() As String
    Dim dirTemp As String
    Dim i As Integer
    
    dirName = Split(Path, "\")
    dirTemp = dirName(0)
    For i = 1 To UBound(dirName)
        dirTemp = dirTemp & "\" & dirName(i)
        If Dir(dirTemp, vbDirectory) <> dirName(i) Then
            MkDir (dirTemp)
        End If
    Next
End Sub
Sub DeleteDir(ByVal Path As String)
    Dim tmpFileName As String
    Dim dirList() As String
    Dim i As Integer
    ReDim dirList(0)
    
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    tmpFileName = Dir(Path, vbDirectory)
    Do Until tmpFileName = ""
        If tmpFileName <> "." And tmpFileName <> ".." Then
            ReDim Preserve dirList(UBound(dirList) + 1) As String
            dirList(UBound(dirList)) = tmpFileName
        End If
        tmpFileName = Dir
    Loop
    For i = 1 To UBound(dirList)
        If GetAttr(Path & dirList(i)) = vbDirectory Then
            DeleteDir Path & dirList(i)
        Else
            Kill Path & dirList(i)
        End If
    Next
    RmDir Path
End Sub

Conclusion :


si il existe déjà le même code en 10000 exemplaire , desolé j'avais pas vu ... si vous trouvez ca completement nul de poster des fonction aussi petite ... bah tant pis c'est juste pour aider ceux qui en auront besoin

A voir également

S'inscrire maintenant

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.

Du même auteur (Satirik)