Trim Help

[anon1971]

I am having a melt down today can anyone tell me how to trim off the file path so that the file path is as indecated below:


Here is the code
FilePath = getLastTIF("\\192.168.0.11\letters\")

After it trims I need the result to be
mytiffile001.tif

Any help? The above code works great except when the filpath is saved it saves the entire path and I just need the file it self saved

 

[anon1971]

I got it sence the path is always the same number of charcters the below works.

Left$(FilePath, 24)

thanks

 

[mscallisto]

Maybe something like this:

Option Explicit
Dim FilePath As String
Dim xArray As Variant

Sub SplitStr()
FilePath = "\\192.168.0.11\letters\mytiffile001.tif"
xArray = Split(FilePath, "\", -1)
end sub

Results are:
xAray(0) = ""
xAray(1) = ""
xAray(2) = "192.168.0.11"
xAray(3) = "Letters"
xAray(4) = "mytiffile001.tif"

Of course the number of array elements depends on the number of path elements.

If the 3rd paramater of the split function is -1 then all elements are returned

refer to help on the split function for complete use

 

[SkipVought]

sub test()
  msgbox FilePath("\\192.168.0.11\letters\mytiffile001.tif")
end sub

Function MyFile(FilePath as string)
  MyFile = Split(FilePath, "\")(ubound(Split(FilePath, "\"))
end sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[HughLerwill]

Dim FilePath As String
FilePath = "\\192.168.0.11\letters\mytiffile001.tif"
MsgBox Mid$(FilePath, InStrRev(FilePath, "\") + 1)

 

[PHV]

Another way:
DirPath = "\\192.168.0.11\letters\"
FilePath = Replace(getLastTIF(DirPath), DirPath, "")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[anon1971]

Thanks guys I finaly got it

 

[strongm]

And a FileSystemObject solution:

MsgBox CreateObject("scripting.filesystemobject").GetBaseName("\\192.168.0.11\letters\mytiffile001.tif")