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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 938 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

Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
tu n'a pas décelé mon ironie...
j'ai bien compris l'intention, reste que ta ligne de code est incorrecte.

Mydate = #12/31/2030#
If Mydate = Format(Date, "DD/MM/YYYY") Then

Sur un poste avec les regional settings qui vont bien, nous aurons par exemple l'équivalent de:
If "31/12/2030" = "10/12/2007" Then

test OK...

mais si je change, dans le panneau de configuration mes regional settings, j'obtiens facilement :

If "31/12/2030" = "31.12.2030" Then
ou
If "31/12/2030" = "12/31/2030" Then

en réalité, ton Format$ rend la chose trop minimaliste...

contentes toi simplement de :

Mydate = #12/31/2030#
If Mydate = Date Then

et zou! plus de conversion String<>Date, un simple test d'egalité.

pas de soucis avec l'heure, Date, a la difference de Now() n'inclut pas l'heure
patbl
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010

en faite
cela detruit ton fichier a une date donnee et cela est vraiment bien pour le reste je ne sais pas je suis novice
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
je ne comprend pas cette ligne de code :
If Mydate = Format(Date, "DD/MM/YYYY") Then

quel interet de passer Date en String, au risque de ne pas faire coïncider les parametres regionnaux ?
patbl
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010

bonjour une petit code pour détruire un fichier excel ou autre
rivate Sub Form_Load()

Dim Mydate As Date

Mydate = #12/31/2030#
MsgBox " Validité jusqu'au 31/12/2030"
If Mydate = Format(Date, "DD/MM/YYYY") Then
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If
Next Ndx
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub
en lui inserant une date cela fonctionne vraiment et vous pouver emporter vos fichier il seront detruit a une dtefixe de votre choix
cs_SamSe
Messages postés
7
Date d'inscription
mardi 3 juillet 2007
Statut
Membre
Dernière intervention
14 avril 2018

Réponse à ma propre question: oui c'est Mircosoft Scripting Runtime.
Ca se fait dans Outils >Références.

Et puis pour faire fonctionner ce code j'ai du aussi ajouter une ligne:
Dim objFSO As Scripting.FileSystemObject

Avez vous eu besoin de l'écrire aussi?

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.