Forum Clubic

Script vbs

Bonjour,
Jai un probleme lors de la suppression des fichier sur mon script vbs.

script :

dim FSO: set FSO=CreateObject(“Scripting.FileSystemObject”)
dim FLD
dim F

today=Cstr(day(date))
tomonth=Cstr(month(date))
toyear=Cstr(year(date))
aujourdhui=today+""+tomonth+""+toyear

'Crée le repertoire
Set FLD=FSO.CreateFolder (“c:” & aujourdhui & “”)

Chemin = “c:\script”
FSO.CopyFile Chemin & “*.log” , Lect & “c:” & aujourdhui & “”, true

Set F = FSO.GetFile ()
F.Delete

MsgBox “Copie réussie”

dans les parenthese de guetfile j’essaie de mettre le mes chemin que dans copyFile qui marche tres bien (Chemin & “*.log”) mais il me dit fichier introuvable.
Comment faire pour qu’il supprime tous les fichiers .log qui sont dans ce dossier et pas les autres fichiers

merci d’avance pour vos réponse

j’ai resolu le problème

GetFile c’est fait pour remonter un nom de fichier, pas une liste de noms de fichiers.
Donc tu ne dois pas avoir droit au caractère *
Pourquoi tu n’emploies pas DeleFiles ?

Dans ta macro, peux-tu expliquer en détail pourquoi tu emploies cette syntaxe pour les lignes
Set FLD=FSO.CreateFolder (“c:” & aujourdhui & “”)
FSO.CopyFile Chemin & “*.log” , Lect & “c:” & aujourdhui & “”, true