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

Marsh Posté le 23-02-2004 à 10:43:04

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

Marsh Posté le 23-02-2004 à 10:43:04

Marsh Posté le 23-02-2004 à 11:15:33

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

Marsh Posté le 23-02-2004 à 14:01:47

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

Marsh Posté le 23-02-2004 à 14:40:40

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *