Supprimer un fichier ou une categorie de fichiers dans un repertoire.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 907 fois - Téléchargée 29 fois

Contenu du snippet

Ces codes vous permettent de supprimer un fichier précis ou un type de fichier dans un répertoire (C:\.....)

Source / Exemple :


'Supprimer un Fichier :

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Dossier\fichier.txt")

'( Il supprimera le "Fichier.txt" qui se trouve dans "C:\Dossier" )

'Supprimer un type de fichier :

Const DeleteReadOnly = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\Dossier\*.txt"), DeleteReadOnly

'( Il supprimera TOUT les Fichier *.txt qui se trouve dans "C:\Dossier" )

Conclusion :


Ayé!
Surtout ne vous en servé pas dans un but nuisible!
Ce code à été dépposé dans le but d'apprendre et non de detruire!

A voir également

Ajouter un commentaire

Commentaires

cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
kill "C:\Dossier\*.txt" est aussi rapide ;)
+
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
3 -
Une autre remarque,
lors que l'on créé des objets, il faut les detruire. et oui !

Set objFSO = CreateObject("Scripting.FileSystemObject")
...
...
Set objFSO = Nothing

car si je met ton code dans une fonction et que dans mon programme je l'appel un nombre important de fois et bien cela va exploser la memoire tu PC.Donc il faut toujours penser a detruire les objets que l'on créé.
tekila_bandita
Messages postés
255
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
3 -
Merci pour l'info...
Je n'en avais jamais entendu parler ( je débute.... ) ;)
speed2006
Messages postés
2
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
10 avril 2006
-
peut etre un peu en retard...
j'aimerais savoir, pour la suppression d'un onglet,
comment peut-on supprimer les onglets dont leur nom commence par "Final"?

J'ai essayé:

If ActiveWorkbook.Sheets(i).Name <> "Final *" Then
SendKeys ("{ENTER}")
activeWorkbook.Sheets(i).Delete
end if

mais il marche pas..
à la place de "Final *",j'ai essayé aussi:
"Final"+chr(42);
"Final"+"*"...
il n'y a aucun qui marche

Merci d'avance
speed2006
Messages postés
2
Date d'inscription
lundi 10 avril 2006
Statut
Membre
Dernière intervention
10 avril 2006
-
Bon, j'ai déjà trouvé.
en fait il faut utiliser "like"
:P

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.