VB6 Modifier un nom de fichier dans un FileListBox

Question

Bonjour

J'aimerais savoir s'il est possible de modifier les noms de ficihers dans un répertoire sélectionner.

Exemple, j'ai beaucoup de fichiers qui ont tous comme préfix 01__ et comme suffix _1_1
Entre ces 2 "textes" j'ai le nom de fichier que je voudrais faire apparaître dans le FileListBox 
Exemple:
01__11A-5_1_1.htm devient 11A-5.htm
01__30B-134_1_1.htm devient 30B-134.htm

J'ai fais quelques test mais je n'y arrive pas...

Merci d'avance

PCPT · Answer

tu veux les renommer ou modifier leur affichage (donc dans un autre objet que le filelistbox)

cs_JeffC1977 · Answer

Salut 

Je veux seulement modifier l'affichage...

cs_Alain Proviste · Answer

il faut passer par un listbox. tu peux pas editer un filelistbox

cs_JeffC1977 · Answer

Rebonjour...

Je ne m'y connaît pas beaucoup dans les FileListBox et Listview....

Mais est-ce que le ListView aurra les mêmes possibilité qu'un FileListBox...

C'est à dire que si je clique deux fois sur le fichier dans un ListView, il pourra s'ouvrir à l'aide de ShellExecute ??????

cs_Alain Proviste · Answer

oui c'est tout à fait possible. Le code pour le faire est à peine plus compliqué

cs_JMO · Answer

Bonjour,



'Extraction de chaine de caractères à partir d'une occurence ("Separator")

MyString = "01__30B-134_1_1.htm" 'devient 30B-134.htm
'MyString = "01__30B-134_1_1.htm" 'devient 30B-134.htm

MySeparator = "_"       'occurence à rechercher

MyArray = Split(MyString, MySeparator, -1, 1)

For i = 0 to UBound(MyArray)
Resultat =  Resultat &vbCrLf& " item=" & i & "    " & MyArray(i) 
Resultat1 = MyArray(2) & Right(MyString, 4)
Next
'MsgBox Resultat
MsgBox "Chaine en entrée: " & MyString &vbCrLf&_
       "Chaine en sortie:  " & Resultat1

jean-marc

VB6 Modifier un nom de fichier dans un FileListBox

6 réponses

Discussions similaires