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:

Effaceur de fichier automatique
Fichier rar - Guide
Fichier host - Guide
Comment ouvrir un fichier epub ? - Guide
Comment réduire la taille d'un fichier - Guide
Fichier iso - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 14 novembre 2024 Ambassadeur 1 549
5 févr. 2021 à 22:29

bonjour,
"cela ne fonctionne pas": qu'observes-tu?
peut-être:

objFSO.DeleteFile("F:\" + cstr(iNbFois) )

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

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace