supprimer les fichiers contenus dans un richtextboxRésolu

Question

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	est LOG-2\a9e30d76.jpg
C:\Documents and Settings\Nic\Bureau	est LOG-2\a6662363.jpg
C:\Documents and Settings\Nic\Bureau	est LOG-2\b3c14034.jpg
C:\Documents and Settings\Nic\Bureau	est 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

cs_Jack · Accepted Answer

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)

Renfield · Answer

une RegExp peut te permette de les extraire du texte...

par exemple :

^[A-Za-z]:\.*


Renfield - Admin CodeS-SourceS - MVP Visual Basic

nicgosselin · Answer

Merci Jack c'est exactement ce qui me manquais.

Renfield · Answer

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

Supprimer les fichiers contenus dans un richtextbox

4 réponses

Votre réponse

Discussions similaires