OBTENIR LE NOM DE FICHIER A PARTIR DU CHEMIN COMPLET
naärdin
-
6 août 2001 à 09:39
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 2019
-
3 oct. 2003 à 03:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 3 oct. 2003 à 03:12
y a ca aussi lol
Public Function GetFilename(Chemin As String)
For i = Len(Chemin) To 1 Step -1
If Mid(Chemin, i, 1) = "" Then Exit For
Next i
GetFilename = Mid(Chemin, i + 1, Len(Chemin))
End Function
dracer
Messages postés4Date d'inscriptionlundi 12 mars 2001StatutMembreDernière intervention19 février 2002 5 avril 2002 à 14:22
Option Explicit
Dim result$(), chaine$, x%, sortie$
Private Sub Form_Load()
chaine$ = "C:WindowsSystemVmm32.vxd"
result$ = Split(chaine$, "")
For x% = LBound(result$) To UBound(result$)
sortie$ = result$(x%)
Next x%
Text1.Text = sortie$
End Sub
3 oct. 2003 à 03:12
Public Function GetFilename(Chemin As String)
For i = Len(Chemin) To 1 Step -1
If Mid(Chemin, i, 1) = "" Then Exit For
Next i
GetFilename = Mid(Chemin, i + 1, Len(Chemin))
End Function
5 avril 2002 à 14:22
http://www.vbfrance.com/article.asp?Val=3450
5 mars 2002 à 21:59
23 janv. 2002 à 01:58
dir (c:chemin...
omfich)
renvoie "nomfich" (s'il existe) !!!!!! (sert donc aussi à tester l'existence de ce fichier)
23 janv. 2002 à 01:57
dir (c:chemin...
omfich)
renvoie "nomfich" (s'il existe) !!!!!!
8 août 2001 à 20:32
set l_fso = createobject("scripting.filesystemobject")
l_name = l_fso.getfilename("C:WindowsSystemVmm32.vxd"
)
point barre
7 août 2001 à 12:33
Option Explicit
Dim result$(), chaine$, x%, sortie$
Private Sub Form_Load()
chaine$ = "C:WindowsSystemVmm32.vxd"
result$ = Split(chaine$, "")
For x% = LBound(result$) To UBound(result$)
sortie$ = result$(x%)
Next x%
Text1.Text = sortie$
End Sub
6 août 2001 à 09:39