Supprimer le contenu d'un dossier avec une macro

[la mouette]

Bonjour,

je cherche à supprimer le contenu d'un dossier par l'intermediaire d'une macro.

J'ai tésté la fonction "kill" avec le chemin vers le dossier mais ça n'as pas l'air de fonctionner.

Help me please .

 

[tototiti2008]

Re : Supprimer le contenu d'un dossier avec une macro

Bonjour la mouette,

et ce dossier peut-il contenir des sous-dossiers ?

 

[la mouette]

Re : Supprimer le contenu d'un dossier avec une macro

Salut,

C'est un dossier qui ne contiendra que des fichiers excel.
Aucuns sous dossiers .

 

[tototiti2008]

Re : Supprimer le contenu d'un dossier avec une macro

Mais tu veux supprimer le contenu, mais pas le dossier, c'est ça ?

 

[la mouette]

Re : Supprimer le contenu d'un dossier avec une macro

Oui c'est ça, juste le contenu.

Par exemple j'ai un dossier "toto" sur mon bureau, je voudrais pouvoir supprimer tt les fichiers excel qui se trouvent dedans via la macro sans supprimer "toto".

 

[tototiti2008]

Re : Supprimer le contenu d'un dossier avec une macro

pour supprimer le contenu :

Sub SupprContenu()
Dim Fic As String
    Fic = Dir("C:\essai\*.xls")
    Do While Fic <> ""
        Kill "C:\essai\" & Fic
        Fic = Dir
    Loop
End Sub

pour supprimer le dossier et tout son contenu (sous-dossiers compris) :

Sub SupprDoss()
Dim FS
    Set FS = CreateObject("Scripting.FileSystemObject")
    FS.Deletefolder "C:\essai"
End Sub

 

[la mouette]

Re : Supprimer le contenu d'un dossier avec une macro

Merci beaucoup ! Ca marche impeccablement bien

 

[STephane]

Re : Supprimer le contenu d'un dossier avec une macro

les commandes MS-DOS rmdir & mkdir sont disponibles sous vba, d'autres aussi.
rmdir = remove directory
mkdir = make directory

 

[tototiti2008]

Re : Supprimer le contenu d'un dossier avec une macro

Bonjour Stéphane,

Oui, mais comme en DOS d'ailleurs, RMDIR ne supprime qu'un dossier vide... d'où l'utilisation de DeleteFolder

 

[STephane]

Re : Supprimer le contenu d'un dossier avec une macro

oui, c'est vrai.
on peut alors combiner l'usage de kill & rmdir.

kill supprime les fichiers sans passer par la corbeille.
je n'ai pas vérifié ce que faisait rmdir.

c'est dommage par contre que la méthode VBA "rmdir" n'accepte pas le passage de paramètres, car rmdir /S efface le contenu du répertoire en même temps

 

[tototiti2008]

Re : Supprimer le contenu d'un dossier avec une macro

Bonjour à tous,

à tester, mais dans ce cas un RMDIR /S passé par l'instruction Shell pourrait peut-être fonctionner également...

 

[STephane]

Re : Supprimer le contenu d'un dossier avec une macro

je me suis fait la même réflexion

 

[lion_of_ethiopia]

Re : Supprimer le contenu d'un dossier avec une macro

Bonjour a tous et a toutes je souhaite en effet supprimer des fichiers excels contenu dans un dossier:

pour supprimer le contenu :

Sub SupprContenu()
Dim Fic As String
    Fic = Dir("C:\essai\*.xls")
    Do While Fic <> ""
        Kill "C:\essai\" & Fic
        Fic = Dir
    Loop
End Sub

La différence dans cette procedure c'est que je souhaite supprimer non pas tout le contenu mais uniquement certain nombre de fichier en fonction de leur date. Par exemple si je veux supprimer des fichiers sauvegardé il ya a peu près 2 ou 3 jours comment le faire?

Voici une partie du code que j'ai pu faire:
Private Sub Workbook_Open()
Dim Chemin As String
Dim fichierTexte As String
Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"

NomFic = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
If Dir(Chemin & NomFic) = "" Then 'si le fichier de la date du jour n'existe pas

Call auto_open ' on lance l'effacement

Set fs = CreateObject("Scripting.FileSystemObject") 'on crée le fichier date du jour
Set a = fs.CreateTextFile(Chemin & NomFic, True)
a.Close

Call creation 'on appelle l'autre proc

End If ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien

Call creation 'on appelle l'autre proc

End Sub

Merci pour l'aide a toutes les bonnes volontés.

 

[mromain]

Re : Supprimer le contenu d'un dossier avec une macro

bonjour le fil,

lion of ethopia: je ne pense pas que ce soit la bonne solution d'aller chercher de l'aide sur d'autres fils, ça aurait été aussi bien que tu remonte ce fil pour nous montrer comment a évolué ton PB depuis l'autre jour.

en attendant, voici une macro (à adapter) qui j'espère t'aidera :

[COLOR="Blue"]Sub[/COLOR] test()
[COLOR="Blue"]Dim[/COLOR] myFso, myFile, myFolder
[COLOR="Blue"]Set[/COLOR] myFso = CreateObject("Scripting.FileSystemObject")
[COLOR="Green"]'sélection du dossier à analyser[/COLOR]
[COLOR="Blue"]Set[/COLOR] myFolder = myFso.GetFolder("C:\temp\")
[COLOR="Green"]'boucle sur tous les fichier du dossier[/COLOR]
[COLOR="Blue"]For Each[/COLOR] myFile In myFolder.Files
    [COLOR="Green"]'si la date de modification du fichier est antérieure à 3 jours, effacer le fichier[/COLOR]
    If DateDiff("d", myFile.DateLastModified, Now) > 3 Then myFile.Delete True
[COLOR="Blue"]Next[/COLOR] myFile
[COLOR="Blue"]End Sub[/COLOR]

a+

 

[Catrice]

Re : Supprimer le contenu d'un dossier avec une macro

Bonjour,

Les dates sont à récupérer dans les noms des fichiers ou bien il s'agit des dates systeme de leur enregistrement sur le disque ?

Edit : mRomain a répondu