Suppression de fichiers particulière...

Messages postés
14
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
21 juin 2007
- - Dernière réponse : Radiohead4ever
Messages postés
71
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
21 novembre 2006
- 9 févr. 2004 à 23:37
Bonjour à tous!

Quelqu'un connaîtrai-t-il une procédure ou un code VB me permettant de supprimer tout le contenu d'un dossier (fichiers + sous-dossiers) sans supprimer celui-ci.

La commande KILL de Visual Basic ne supprime que les fichiers du dossier sans supprimer les éventuels sous-dossiers et leurs fichiers.

Merci d'avance à celui ou celle qui pourra m'éclairer. :big)
Afficher la suite 

7 réponses

Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
0
Merci
il y a les Fso mais je pense que ca supprime le dossier de base avec, alors ensuite a toi de le recréer!!!!

Sinon avec kill tu fais une fonction recursive qui liste tous les fichiers des sous dossiers, et tu kill ensuite !! c pas trop compliqué a faire il y a des exemples de fonction recursive sur ce site!!!!

++
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
0
Merci
sinon regarde dans mes sources :"VBCommander" qui supprime les dossiers mais je sais plus la méthode que j'ai utiliser!!!
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
Va dans Projet > References
Et Coches 'Microsoft Scripting Runtime'

et voici une fonction qui fait ce que tu souhaitais

Public Function PurgeFolder(Path As String) As Boolean
    Dim FSO As New FileSystemObject
    Dim Folder As Folder
    Dim File As File
    Dim SelectedFolder As Folder
    
    Set SelectedFolder = FSO.GetFolder(Path)
    If SelectedFolder Is Nothing Then Exit Function
   
    For Each Folder In SelectedFolder.SubFolders
        Folder.Delete
    Next Folder
    
    For Each File In SelectedFolder.Files
        File.Delete
    Next File
    
    Set FSO = Nothing
    Set Folder = Nothing
    Set SelectedFolder = Nothing
    Set File = Nothing
    
    PurgeFolder = True
End Function


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)
Messages postés
14
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
21 juin 2007
0
Merci
MERCI A TOUS !

Vous avez tous résolu mon problème.

JE VOUS SOUHAITE DE PASSER UN JOYEUX NOËL ET UNE BONNE ANNEE.

Encore merci ! ;)
Messages postés
71
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
21 novembre 2006
0
Merci
je vais p-e parraître attardé mais comment on fait pour tout simplement suprimer une file ??
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
0
Merci
Utilise la fonction Kill de VB

Kill "c:\fichier.ext"

Ps: Attention les fichiers effacés par Kill ne sont pas déposé dans la corbeille!!!!!!
Messages postés
71
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
21 novembre 2006
0
Merci
merci! :)