Comment obtenir un fichier seulement?

Question

Comment obtenir un nom de fichier uniquement à partir du chemin complet du fichier?

MY path - C:\Documents and Settings\Arshad\My Documents\ravi.txt 

Answer 1

Jetez un oeil à ceci: Retrieve Filename without Path or Extension.

est ici la fonction à partir du lien ci-dessus:

Public Function GetFileName(flname As String) As String 

    'Get the filename without the path or extension. 
    'Input Values: 
    ' flname - path and filename of file. 
    'Return Value: 
    ' GetFileName - name of file without the extension. 

    Dim posn As Integer, i As Integer 
    Dim fName As String 

    posn = 0 
    'find the position of the last "\" character in filename 
    For i = 1 To Len(flname) 
     If (Mid(flname, i, 1) = "\") Then posn = i 
    Next i 

    'get filename without path 
    fName = Right(flname, Len(flname) - posn) 

    'get filename without extension 
    posn = InStr(fName, ".") 
     If posn <> 0 Then 
      fName = Left(fName, posn - 1) 
     End If 
    GetFileName = fName 
End Function 

Lors de l'entrée

C:\Documents and Settings\Arshad\My Documents\ravi.txt

cette fonction retourne

ravi

La fonction est appelée en tant que tel:

Dim FileName As String 
FileName = GetFileName("C:\Documents and Settings\Arshad\My Documents\ravi.txt") 

Answer 2

Ici, vous allez:

http://www.vbforums.com/showthread.php?t=475667

Answer 3

Ceci est le chemin le plus court:

Public Function GetFileName(FilePath As String) As String 
    Dim l() as string 
    l=split(FilePath,"\") 
    GetFileName=l(UBound(l)) 
End Function 

Dites-moi , si vous pouvez trouver le code plus court;)

Answer 4

-

Voici la meilleure façon et court.

nom du fichier de retour de FullPath

' ** C:\Windows\System32\calc.exe > Ret: calc.exe 
Private Function GetFilenameFromPath(FullPath As String) As String 
    GetFilenameFromPath = Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\")) 
End Function 

chemin de retour de FullPath

' C:\Windows\System32\calc.exe > Ret: C:\Windows\System32\ 
Private Function GetDirectoryFromPath(FullPath As String) As String 
    GetDirectoryFromPath = Left(FullPath, InStrRev(FullPath, "\")) 
End Function