Effaceur de fichier automatique

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour,
J'aimerais de l'aide pour mon code d'effaceur de fichier, j'essaye de crée un programme qui va effacer des documents texte automatiquement (les documents s'appellent 1,2,3,4...). Pour l'instant mon code ressemble a ca mais cela ne fonctionne pas:
Dim iNbFois

iNbFois = 1

do
Set objFSO = CreateObject("Scripting.FileSystemObject" )
objFSO.DeleteFile("F:\iNbFois" )
iNbFois = iNbFois+1
loop

merci de votre aide
A voir également:

1 réponse

yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 587
 
bonjour,
"cela ne fonctionne pas": qu'observes-tu?
peut-être:
objFSO.DeleteFile("F:\" + cstr(iNbFois) )
0
Utilisateur anonyme
 
Merci a toi ce bout de code fonctionne mon programme efface bien tous les fichiers
0