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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 841 fois - Téléchargée 27 fois

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

Ajouter un commentaire

Commentaires

aurelskull
Messages postés
18
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
27 mai 2005

Moi perso j'aime bien la creation du dossier
merci pour ce ptit code ;)
BasicInstinct
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
MakePath "c:\toto\tutu\titi"
DeleteDir "c:\toto\tutu\titi"
SuperPit37
Messages postés
61
Date d'inscription
vendredi 1 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2005

Ton code m'interesse mais un example d'appel de la fonction sera le bien venu!
BasicInstinct
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
dsl, personnellement j'aime pas trop reinventer la roue :)

puis pour un defit... y'a pas grand chose d'insurmontable :)

@++
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

C'est plus simple m'est il n'y a pas vraiment de source, c'est une API simple et cett source est mieux ,rien que pour le défit de le faire en vb, apres si vous trouvez sa plus simple ...

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.