Effaceur de fichier automatique

Résolu/Fermé
Gosty_23 Messages postés 8 Date d'inscription vendredi 5 février 2021 Statut Membre Dernière intervention 15 février 2022 - Modifié le 5 févr. 2021 à 22:21
Gosty_23 Messages postés 8 Date d'inscription vendredi 5 février 2021 Statut Membre Dernière intervention 15 février 2022 - 5 févr. 2021 à 22:33
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 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
5 févr. 2021 à 22:29
bonjour,
"cela ne fonctionne pas": qu'observes-tu?
peut-être:
objFSO.DeleteFile("F:\" + cstr(iNbFois) )
0
Gosty_23 Messages postés 8 Date d'inscription vendredi 5 février 2021 Statut Membre Dernière intervention 15 février 2022
5 févr. 2021 à 22:33
Merci a toi ce bout de code fonctionne mon programme efface bien tous les fichiers
0