Discussion :

[gezy369]

Hello,
Alors c'est pas compliqué.
Déjà je suis sous VB 2005 Express.

J'ai un petit programme qui me permet de lister les fichiers d'un répértoire dans une listview à 2 colonnes.
Une partie Nom et une partie Dates.

Je voudrais juste pouvoir afficher fichier plutôt que fichier.avi. En gros je voudrais cacher l'extension à l'affichage.

Merci de votre aide !!

[Pol63]

si c'est toi qui traite les noms, tu fais un left(nom, instr(chainie,"."))
enfin avec une boucle de retirage des points car il peut y en avoir plusieurs

si c'est ca qu'il te faut, le code ci dessous devrait aller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private Function retire_extension(ByVal nom_fichier As String) As String
        retire_extension = nom_fichier
        Dim position_point As Integer
        While InStr(position_point + 1, retire_extension, ".") > 0 ' tant qu'il y a un point
            position_point = InStr(position_point + 1, retire_extension, ".")
        End While
 
        If position_point = 0 Then
            retire_extension = nom_fichier
        Else
            retire_extension = Microsoft.VisualBasic.Left(nom_fichier, position_point - 1)
        End If
    End Function

si c'est l'objet qui récupère lui meme les fichiers c'est autre chose ....

[gezy369]

Nickel !
Merci