Supprimer fichiers .txt d'un répertoire
Résolu
evilmajestik
Messages postés
38
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
5 juillet 2005
-
25 janv. 2005 à 09:19
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 25 janv. 2005 à 10:02
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 25 janv. 2005 à 10:02
A voir également:
- Supprimer fichiers .txt d'un répertoire
- Python supprimer espace ✓ - Forum Python
- Supprimer les espaces dans une chaîne de caractère ✓ - Forum Python
- Vba supprimer une feuille ✓ - Forum Visual Basic 6
- Selection et suppression feuille vide excel - Forum Visual Basic 6
- Supprimer doublon sql ✓ - Forum SQL
3 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
25 janv. 2005 à 10:02
25 janv. 2005 à 10:02
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
Kill "c:\MonRep\*.txt"
C'est pas plus compliqué !!
Christophe R
talking
Messages postés
343
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
19 août 2006
1
25 janv. 2005 à 09:22
25 janv. 2005 à 09:22
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
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
evilmajestik
Messages postés
38
Date d'inscription
lundi 13 janvier 2003
Statut
Membre
Dernière intervention
5 juillet 2005
25 janv. 2005 à 09:33
25 janv. 2005 à 09:33
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
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
