Effaceur de fichier automatique
Résolu
Gosty_23
-
Gosty_23 -
Gosty_23 -
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
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
1 réponse
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 588
bonjour,
"cela ne fonctionne pas": qu'observes-tu?
peut-être:
"cela ne fonctionne pas": qu'observes-tu?
peut-être:
objFSO.DeleteFile("F:\" + cstr(iNbFois) )
Gosty_23
Merci a toi ce bout de code fonctionne mon programme efface bien tous les fichiers
