Les Snippets

Connexion

Suppression d'un dossier et de son contenu

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 26/04/2007 14:13:54 et initié par Renfield [Liste]
Date de mise à jour : 02/05/2007 16:26:38
Vue : 9287
Catégorie(s) : Fichier / Disque
Langages dispo pour ce code :
- VB6, VBA
- VB 2005, VB.NET 1.x
- Javascript
- Windev



Langage : VB6 , VBA
Date ajout : 26/04/2007
Posté par Renfield [Liste]
DateMAJ : 02/05/2007
Public Sub RmDir(ByVal vsFolder As Variant)
Dim sName As Variant
Dim oKillElements As Collection
   On Local Error Resume Next
   If VarType(vsFolder) <> vbString Then
       Err.Raise 5
   Else
       If Right$(vsFolder, 1) = "\" Then
           vsFolder = Left$(vsFolder, Len(vsFolder) - 1)
       End If
       Set oKillElements = New Collection
       sName = Dir$(vsFolder & "\*.*", vbDirectory Or vbReadOnly Or vbHidden Or vbSystem)
       Do While Len(sName)
           If (sName <> "..") And (sName <> ".") Then
               oKillElements.Add vsFolder & "\" & sName
           End If
           sName = Dir$()
       Loop
       For Each sName In oKillElements
           If GetAttr(sName) And vbDirectory Then
               RmDir sName
           Else
               SetAttr sName, vbNormal
               Kill sName
           End If
       Next sName
       VBA.FileSystem.RmDir vsFolder
   End If
End Sub 
Remarque :
RmDir ne supprime que les dossiers vides.

là, ça fonctionne même si des fichiers sont présents en lecture seule (FSO s'arrête, lui...)
Langage : VB.NET 1.x , VB 2005
Date ajout : 27/04/2007
Posté par Drikce06 [Liste]
    Sub SupprimerDossier(ByVal PathOfDirectory As String)
        If My.Computer.FileSystem.DirectoryExists(PathOfDirectory) = True Then
            My.Computer.FileSystem.DeleteDirectory(PathOfDirectory, FileIO.DeleteDirectoryOption.DeleteAllContents)
        Else
            MsgBox("Le dossier à supprimer n'existe pas")
        End If
    End Sub
    '**** Exemple d'utilisation
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
        SupprimerDossier("C:\Nouveau dossier")
    End Sub
Langage : Javascript
Date ajout : 27/04/2007
Posté par bultez [Liste]
<script type="text/javascript">
    
    var fso=new ActiveXObject("Scripting.FileSystemObject");
    fso.DeleteFolder("nom du répertoire à détruire",true ou false);
    //    false, le répertoire ne sera détruit que s'il est vide
    //    true, force la destruction du répertoire même s'il
    //                contient des sous/répertoires et/ou des fichiers

</script>


Langage : Windev
Date ajout : 28/04/2007
Posté par Elian Lacroix [Liste]
fRepSupprime(<répertoire>)
Les options disponibles :
- frLectureSeule : fichier en lecture seule également
- frRécursif : arborescence également,
- frVersCorbeille - dossier supprimé mais reste accessible en corbeille

Snippets en rapport avec : Dossier, Fichiers, Contenu, Suppression, Rmdir



Codes sources en rapport avec : Dossier, Fichiers, Contenu, Suppression, Rmdir

{PHP} SUPPRIMER 1 U PLUSIEURS RÉPERTOIRES ET TOUT CE QU'IL Y A DEDANS
Toujours pour suivre la mode des fonctions sur fichiers :-) voici une fonction permettant de supprim...

{C / C++ / C++.NET} LISTEUR DE FICHIERS/DOSSIERS
Ce petit programme écrit en C liste les fichiers/dossiers d'un repertoire. Il se démarque des autres...

{PHP} FONCTION RÉCURSIVE POUR GÉNÉRER UNE ARBORESCENCE DE FICHIERS AVEC FILTRES
Cette fonction vas générer une arborescence des fichiers & dossiers de manière graphique avec la pos...

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRIMER DES FICHIERS EN DOUBLE (D'APRES LEUR NOM)
Permet de comparer et de supprimer des fichiers en double. Pour moi il me permet quand je grave des...

{Visual Basic, VB6, VB.NET, VB 2005} RENOMMER FICHIERS
Ce code permet de renommer en cascade des fichiers en fonction du nom du dossier et d'un numéro. Il...

{C# / C#.NET} CLASSEMENT DE FICHIERS
Code expérimental sur la gestion des fichiers ( liste le contenu d'un dossier , deplace les fichiers...

{PHP} SUPPRESSION D'UN DOSSIER VIDE
Cette courte fonction permet de supprimer un dossier si et seulement si celui ci est vide. La fon...

{Visual Basic, VB6, VB.NET, VB 2005} [.NET2] DUPLICATEKILLER, SUPPRESSION DES DOUBLON DANS LES FICHIERS
Ce programme permet de supprimer les doublons de plusieurs dossiers selon 4 critères (utilisables à ...

{JAVA / J2EE} SUPPRESSION D'UN DOSSIER
ce code permet de supprimer une arborescence complete du disque dur en se demarrant dans un nouveau ...

{PHP} LISTER LES FICHIERS D'UN DOSSIER ET EN FAIRE DES LIENS ( MEILLEURE VERSION )
Fonction basique qui affiche les fichiers et les sous-dossiers (mais pas leur contenu) d'un dossier,...