Définir le nom du fichier grace a son chemin

Contenu du snippet

Ex: C:\Windows\Bureau\Vb6.exe
Donne >> Vb6.exe

Source / Exemple :


Dim A As Integer
Dim PosDernierSlash As Integer
Dim NomFichier As String
Dim Fichier As String

Fichier = "C:\Windows\Bureau\Vb6.exe"

For A = 1 To Len(Fichier)
 If Mid(Fichier, A, 1) = "\" Then
   PosDernierSlash = A
    End If
     If A = Len(Fichier) Then
    NomFichier = Right(Fichier, Len(Fichier) - PosDernierSlash)
   End If
 Next A

Text1.Text = NomFichier

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.