Suppression de fichiers particulière...

Question

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)

pcpunch · Answer

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!!!!

++

pcpunch · Answer

sinon regarde dans mes sources :"VBCommander" qui supprime les dossiers mais je sais plus la méthode que j'ai utiliser!!!

Renfield · Answer

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.......... ;)

andrieuremi · Answer

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 ! ;)

Radiohead4ever · Answer

je vais p-e parraître attardé mais comment on fait pour tout simplement suprimer une file ??

pcpunch · Answer

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!!!!!!

Radiohead4ever · Answer

merci! :)

Suppression de fichiers particulière...

7 réponses

Discussions similaires