[VB Excel] Concaténer ok ! mais "déconcaténer" une String ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB Excel] Concaténer ok ! mais "déconcaténer" une String ?

karoli

salut all,
je récupère une chaine, qui est un chemin suivi d'un nom de fichier, a l'aide d'un FileFound...Et je voudrais en extraire uniquement le nom du fichier...

ex : de "C:\rep1\rep2\toto.xls" je voudrais "toto.xls"
Merci d'avance

Publicité

kfman

Credo quia absurdum

Soit tu tes sers de la fonction split() soit de la fonction getBaseName() de l'objet FileSystemObject.

karoli

split n'est pas dispo sur les versions antérieures a office 2000

pas grave je me suis debrouillé autrement, avec Dir()

Merci qd meme

karlkox

Code :

Private Function getFilename(ByVal m_szChemin As String) As String
Dim m_dwLastSlash As Long
m_dwLastSlash = InStrRev(m_szChemin, "\" )
getFilename = Mid(m_szChemin, m_dwLastSlash + 1, Len(m_szChemin) - m_dwLastSlash)
End Function
Private Sub Form_Load()
MsgBox getFilename("c:\temp\pouet\super\calc.xls" )
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB Excel] Concaténer ok ! mais "déconcaténer" une String ?

Sujets relatifs
Variable dynamique dans excel ?	Traitement de log sous excel
Comment tester la valeur d'un optionbutton dans une macro Excel VB	blocage sous vba excel
Koment afficher un fichier excel dans le navigateur	Comment recuperer le nom d'un objet (image) selectionne en vba Excel ?
[ VB EXCEL] Comment recup un evenement ?	bibliotheques stream, string, fstream ...
[VBA Excel] Comment incorporer une frame html dans un UserForm ?	Pb VBA/Excel
Plus de sujets relatifs à : [VB Excel] Concaténer ok ! mais "déconcaténer" une String ?

Page générée en 0.043 secondes