Stripping text 1

[EscapeUK]

I have some text strings which contain a file and its full path.

For example


c:\User1\this is a directory\myfile.doc
c:\Userxyz\123456789\abcderfgh\folder1.xls
c:\floder1\qwerty.exe

How to do just get back the file names not the path.

 

[DevonTaig]

Try this out:


Option Explicit

Private Sub Form_Load()
Debug.Print GetFileName("c:\temp\program files\hello\my test.txt&quot
End Sub

Private Function GetFileName(Fullpath As String) As String
Dim i As Long
For i = Len(Fullpath) To 1 Step -1
If Mid(Fullpath, i, 1) <> &quot;/&quot; And Mid(Fullpath, i, 1) <> &quot;\&quot; Then
GetFileName = Mid(Fullpath, i, 1) & GetFileName
Else
Exit For
End If
Next i
End Function

 

[Jon4747]

Hi,

str2 = &quot;c:\User1\this is a directory\myfile.doc&quot;
str1() = Split(str2, &quot;\&quot
intC = UBound(str1)
Debug.Print str1(intC)

Jon

 

[CajunCenturion]

With a slight modification to kieren's function, you can without the having to loop, extract the filename as follows:

This will work regarless of whether forward or backward slashes are used in the pathnam.


Private Function GetFileName(Fullpath As String) As String

Dim i As Long

i = InStrRev(Fullpath, &quot;\&quot
If (i > 0) then
GetFileName = mid(Fullpath, i + 1)
Else
i = InStrRev(Fullpath, &quot;/&quot
If (i > 0) then
GetFileName = mid(Fullpath, i + 1)
Else
GetFileName = Fullpath
End If
End If

End Function
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[strongm]

And, as an alternative, a FileSystemObject solution:
[tt]
Private Function GetFileName(strPath As String) As String
Dim fso As Object
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot
If fso.FileExists(strPath) Then
GetFileName = fso.GetFile(strPath).Name
End If
Set fso = Nothing
End Function

 

[strongm]

(one makor drawback of the fso solution is that it requires the files to actually exist before it can resolve the name correctly)

 

[strongm]

So here's a corrected version:
[tt]
Private Function GetFileName(strPath As String) As String
Dim fso As Object
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot
GetFileName = fso.GetFileName(strPath)
End Function

 

[Dilyias]

Here's the simplest version where sPath is the full path and sFile is string to put in the filename:

sFile = mid(sPath,instrrev(sPath,&quot;\&quot+1,len(sPath))

-Eric

 

[strongm]

And let's pretend some user taps in &quot;c:\test.txt\&quot; as the file name...

 

[Dilyias]

Well obviously you should test if the filepath is a valid file and such before calling this method. That is just a given. The box which accepts the user's input should make the validation checking there before passing it on to other parts of the program.

If the path is &quot;&quot; or right(trim(mypath),1) = &quot;\&quot; then trim it or don't call the function.

 

[MichaelRed]

Public Function basFileFromPath(strPath As String) As String

    'Michael L. Red Tek-Tips thread222-262607
    'Adapted from jon4747 and CajunCenturion

    '? basFileFromPath("c:\My Documents\Ms_Access\Pervasive.MDB")
    'Pervasive.MDB

    '? basFileFromPath("c:\My Documents/Ms_Access/Pervasive.MDB")
    'Pervasive.MDB


    Dim MyFil As Variant
    Dim MyPath As String

    MyPath = Replace(strPath, "/", "\")
    MyFil = Split(MyPath, "\")
    If (Len(Trim(MyFil(UBound(MyFil)))) = 0) Then
        basFileFromPath = "Invalid Path"
     Else
        basFileFromPath = MyFil(UBound(MyFil))
    End If

End Function

MichaelRed
m.red@att.net

There is never time to do it right but there is always time to do it over

 

[strongm]

Sure, but the fso solution does all this work for you. Why reinvent the wheel?