EFFACER FICHIER/DOSSIERS EN FONCTION DE LEUR DERNIERE DATE DE MODIFICATION.
Sidclimber
Messages postés
2
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
9 février 2007
-
9 févr. 2007 à 16:52
darksnake69 Messages postés 2 Date d'inscription lundi 25 septembre 2006 Statut Membre Dernière intervention 7 août 2007 - 9 janv. 2008 à 15:01
darksnake69 Messages postés 2 Date d'inscription lundi 25 septembre 2006 Statut Membre Dernière intervention 7 août 2007 - 9 janv. 2008 à 15:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40706-effacer-fichier-dossiers-en-fonction-de-leur-derniere-date-de-modification
https://codes-sources.commentcamarche.net/source/40706-effacer-fichier-dossiers-en-fonction-de-leur-derniere-date-de-modification
9 janv. 2008 à 15:01
Dim fso, MyFile, MyFile2 Set fso = CreateObject("Scripting.FileSystemObject") fic = "c:\testfile.txt" Set MyFile = fso.CreateTextFile(fic, True) MyFile.WriteLine("Ceci est un test.") MyFile.Close msgbox "coucou" Set MyFile2 = fso.GetFile(fic) MyFile2.Deletetiré de la doc vbscript.
22 nov. 2007 à 22:48
dim fichier
set fso = CreateObject("Scripting.FileSystemObject")
const forreading 1, forwriting 2, forappending = 8
set fichier = fso.createtextfile ("chemin\fichier.txt", forwriting,true)
msgbox "coucou"
fso.deletefile fichier, force = yes
9 févr. 2007 à 16:52
Moi je le trouve bien, il fonctionne sans avoir à le retoucher et le moins que l'on puisse dire est qu'il est commenté !
J'ai quand même rajouté les 2 lignes suivantes à la ligne 47, car les fichiers à la racine n'étaient pas supprimés.
Set fic = folder.Files
fichier fic
A+