Nom de fichier sans le chemin (vb2005) [Résolu]

Signaler
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
-
Messages postés
709
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012
-
bonjour,

existe-il en vb2005 une fonction qui permet de récupérer le nom du fichier seulement, et non pas tout (cad avec le chemin).
par exemple le FileName d'un OpenFileDialog retourne tout et moi j'aimerai récupérer que le nom du fichier.

merci de vos réponses

6 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Ce n'est pas une réponse en vb2005, mais....

MsgBox "Répertoire et Fichier: " & objDlg.FileName &vbCrLf&_
              "Fichier: " & Mid(objDlg.FileName, InStrRev(objDlg.FileName, "") + 1)

jean-marc
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
Sinon pour la version .Net tu as :

NomFichier = System.IO.Path.GetFileName(TonNomDeFichierComplet)

Ou si tu le veux sans extention ça sera :

NomFichier = System.IO.Path.GetFileNameWithoutExtension(TonNomDeFichierComplet)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
2
impeccable, c bon

j'avais commencé à faire une fonction :)

Public
Function extrait_nom_fichier(
ByVal _nomfich
As
String)
_nomfich = Replace(_nomfich, "/", "")
'au cas où
   Dim _nomf
As
String = ""

   Dim longueur
As
Integer = Microsoft.VisualBasic.Len(_nomfich)

   Dim car
As
String
   If (longueur > 4)
Then
'a.abc'   
      While longueur > 0
      car = Mid(_nomfich, longueur, 1)

      If car <> ""
Then
         _nomf = _nomf + car
         longueur -= 1

      Else
         longueur = 0

      End
If
   End
While
   _nomf = StrReverse(_nomf)

End
If
Return _nomf

End
Function
Messages postés
548
Date d'inscription
mercredi 28 juillet 2004
Statut
Membre
Dernière intervention
11 septembre 2013
2
merci encore,

j'avais pas assez cherché !
je mérite des baffes.
:(
Messages postés
709
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

Bonjour J'utilise cette méthode (en VB2010)

 Public Function FileNameWithoutExtension(ByVal fichier As String) As String
        Return System.IO.Path.GetFileNameWithoutExtension(fichier)
    End Function

            For Each fichier In fichiersTrouvé
                FileNameWithoutExtension(fichier)
                MsgBox(fichier, MsgBoxStyle.Exclamation)
            Next


Mais je récupère dans ma msgbox le chemin complet, comment ne récupérer que le nom des fichiers ?


Merci d'avance,


-------------

Analyses et réflexions politiques sur http://bit.ly/LHou84
Messages postés
709
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
28 août 2012

Oups ! pardon, c'est à cause de mon
return


Désolé



-------------

Analyses et réflexions politiques sur http://bit.ly/LHou84