Get Path Name

[scott]

Below I have a function that returns a file name when a full file path is
passed as a parameter. So for example, "c:\temp\myfile.txt" is returned as
"myfile.txt".

How can I do the same thing, except return "c:\temp\" or the path minus the
file name?

CODE *********

Function StripIt(sWhat As String)
StripIt = Right(sWhat, Len(sWhat) - InStrRev(sWhat, "\"))
End Function

 

[Marshall Barton]

Below I have a function that returns a file name when a full file path is
passed as a parameter. So for example, "c:\temp\myfile.txt" is returned as
"myfile.txt".

How can I do the same thing, except return "c:\temp\" or the path minus the
file name?

CODE *********

Function StripIt(sWhat As String)
StripIt = Right(sWhat, Len(sWhat) - InStrRev(sWhat, "\"))
End Function

sPath = Left(sWhat, InStrRev(sWhat, "\"))

 

[RoyVidar]

Below I have a function that returns a file name when a full file
path is passed as a parameter. So for example, "c:\temp\myfile.txt"
is returned as "myfile.txt".

How can I do the same thing, except return "c:\temp\" or the path
minus the file name?

CODE *********

Function StripIt(sWhat As String)
StripIt = Right(sWhat, Len(sWhat) - InStrRev(sWhat, "\"))
End Function

For some fun and flexibility, you might have a look at the methods of
the hidden WizHook object

Dim strDrive As String
Dim strDir As String
Dim strFile As String
Dim strExt As String

Const cstrFullName As String = _
"G:\MYPICTURES\123456.JPG"

With WizHook
.Key = 51488399
.SplitPath cstrFullName, strDrive, strDir, strFile, strExt
Debug.Print strDrive, strDir, strFile, strExt
End With