Supprimer fichiers .txt d'un répertoire

[Résolu]
Signaler
Messages postés
38
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
5 juillet 2005
-
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Salut tout le monde !

Je cherche un petit bout de code pour supprimer tous les fichiers textes dans un répertoire précis quelque soit le nombre de fichiers...

Merci de votre aide précieuse car je suis en bouclage de projet :-)

A+

3 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
Pour supprimer tous les fichier .TXT d'un répertoire, il suffit de faire :

Kill "c:\MonRep\*.txt"

C'est pas plus compliqué !!

Christophe R
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
Je te donne la méthode :
tu fais une while qui va vérifier tout les fichiers du répertoire en question
lorsque la while vérifie un fichier tu fais un split sur . exemple verif = split(fichier,".")
tu vérifies ensuite si fichier(1) = "txt" then
kill lechemindufichier

Voilà une petite méthode
Messages postés
38
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
5 juillet 2005

Quel est le problème avec le code que j'ai fait plz ?

Public Sub DeleteContent()


Dim File As String
Dim File2 As String


File2 = Dir(MyRes & "Tempfiles\*.txt")


File = (MyRes & "TempFiles" & File2)


While File2 <> ""


While File <> ""
Kill File
File = Dir
Wend


Wend


End Sub