Supprimer les fichiers contenus dans un richtextbox [Résolu]

Signaler
Messages postés
2
Date d'inscription
vendredi 23 mai 2008
Statut
Membre
Dernière intervention
16 janvier 2010
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Je m'explique j'ai fais depuis déjà fort longtemps une appli qui me crée un fichier texte contenant un nombre X de fichiers dans plusieurs dossiers et ce fichier texte est récupérer dans un richtextbox qui peut ressembler à ceci:

C:\Documents and Settings\Nic\Bureau\test LOG-2\a9e30d76.jpg
C:\Documents and Settings\Nic\Bureau\test LOG-2\a6662363.jpg
C:\Documents and Settings\Nic\Bureau\test LOG-2\b3c14034.jpg
C:\Documents and Settings\Nic\Bureau\test LOG-2\b051ad0a.jpg
F:\Documents divers\Nic\a9e3.jpg
F:\Documents divers\Nic\6236.jpg
F:\Documents divers\Nic\3034.jpg

et a partir du chemin complet de chaque fichier du richtextbox j'aimerais pouvoir tous les supprimés d'un click sur un bouton de commande.

merci de vos réponses

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut Nicolas

Les noms des fichiers emblent séparés par des retour à la ligne (13=Cr ou 13+10=CrLf)
Il te suffit de transformer cette chaine en tableau avec un Split :
  Dim aFichiers() As String
  aFichiers = Split(maRTB.Text, vbCrLf)
Les noms des fichiers se retrouvent dans le tableau aux index 0 jusqu'à UBound(aFichiers)
Une fois que tu as ton tableau de fichiers, une simple boucle For-Next et un Kill suffira supprimer chaque fichier, l'un après l'autre.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
une RegExp peut te permette de les extraire du texte...

par exemple :

^[A-Za-z]:\\.*


Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
2
Date d'inscription
vendredi 23 mai 2008
Statut
Membre
Dernière intervention
16 janvier 2010

Merci Jack c'est exactement ce qui me manquais.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
ok, il n'y a que des noms de fichiers dans la box !

je pensais que c'était mixé à du texte.


Renfield - Admin CodeS-SourceS - MVP Visual Basic