Filepath Manipulation 1

[cwalshe]

Hi there,

Say I have a few file paths:
c:\my docs\mystuff\me.doc
a:\abc.exe
c:\desktop\my folder\my thingy.xls

How can I manipulate each of these string to return to me just the file name and extension. Basically I want to code a line or two that will find the first occurnece of a "\" fom the right and give me everything to the right of it.

Thx,

Cormac.

 

[WilMead]

Try these in your immediate window.
[tt]
? mid("c:\my docs\mystuff\me.doc", instrrev("c:\my docs\mystuff\me.doc", "\&quot)
? mid("a:\abc.exe",instrrev("a:\abc.exe", "\&quot)
? mid("c:\desktop\my folder\my thingy.xls", instrrev("c:\desktop\my folder\my thingy.xls", "\&quot)
[/tt]

Wil Mead
wmead@optonline.net

 

[cwalshe]

Thats almost it except that it returns the "\" as well so instead of me.doc, its returning \me.doc.

Any ideas...

 

[Swi]

This should take care of your problem:

Dim i As Integer
Dim size As Integer
Dim Fname As String
filespec = "A:\test\test.dat"
size = Len(filespec)


For i = size To 1 Step -1


If Mid$(filespec, i, 1) Like "[\:]" Then
Fname = Right(filespec, size - i)
Exit For
End If
Next i

 

[Jon4747]

Hi,
str = "c:\desktop\my folder\my thingy.xls"
arr() = Split(str, "\&quot
intA = UBound(arr)
Debug.Print arr(intA)

 

[cwalshe]

Just one more question,

Say if I had a string that looked like this:

a:\\my.doc

It is possible to check for the extra occurence of the "\" and then get rid of it.

Thx....

 

[Swi]

I believe my code should take care of that.

 

[cwalshe]

Ok, I don't mean to be annoying or anything but I am hoping to keep the start of the string.

So if I have:

a:\\my.doc

I'd like it to return

a:\my.doc

Basicaly get rid of the duplicate occurence (if it exists) of "\"

Thx....

 

[Jon4747]

Hi,

str = "a:\\my.doc"
str = Replace(str, "\\", "\&quot

Jon

 

[Swi]

I am a little confused on what you need. If all you want is the drive letter and file name this should work.

Dim i As Integer
Dim size As Integer
Dim path As String
Dim Fname As String
Dim FinalFile As String
filespec = "a:\test\\test2\\\\\test.dat"
size = Len(filespec)
If Mid(filespec, 2, 2) = ":\" Then
path = Mid(filespec, 1, 3)
Else
MsgBox ("Incorrect naming convention!&quot, vbCritical
Exit Sub
End If

For i = size To 1 Step -1
If Mid$(filespec, i, 1) Like "[\:]" Then
Fname = Right(filespec, size - i)
Exit For
End If
Next i

FinalFile = path & Fname

If all you want to do is repace double "\" then:

Dim FileFile as String

FileFile = "a:\test\test2\\test.dat

FinalFile = Replace(FinalFile, "\\", "\&quot

 

[scarfhead]

The only catch here is that the file has to actually exist.

Function GetLocalFileName(byval strFilename as string) _
as string
dim fso as Scripting.FileSystemObject
dim f as Scripting.File

set fso = new Scripting.FileSystemObject
if fso.FileExists(strFilename) then
set f = fso.GetFile(strFilename)
GetLocalFileName = f.Name
endif
set f = nothing
set fso = nothing
end function

You have to include Microsoft Scripting Runtime (scrrun.dll) in your references.

scarfhead

 

[WilMead]

Was there a problem with simply adding 1 to
[tt]InstrRev(string, FindString)[/tt]
?

Wil Mead
wmead@optonline.net