Browse and Store Filename

[Bob]

Greetings!

I need to use the windows browse dialog to select and store a
fileaname.

I can get the filename with the path no problem. But I ONLY want to
return the filename.

Does anyone know how I can just return the filename?

Thanks!

Bob

[Bob]

I got it.

I took the returned path and just used:

Dir(returnedPath)

Jeez... Should have known that one!

[Chuck Grimsby]

On 5 Dec 2005 11:50:46 -0800, "Bob" <st***********@hotmail.com> wrote:

I got it.
I took the returned path and just used:
Dir(returnedPath)
Jeez... Should have known that one!

Another way to do this (with out the Dir function, which can cause
some interesting results when used in a loop) is to use the
PathFindFileName API call in shlwapi.dll:

Private Declare Function PathFindFileName _
Lib "shlwapi" _
Alias "PathFindFileNameA" _
(ByVal pPath As String) _
As Long
Private Declare Function lstrcpyA _
Lib "kernel32" _
(ByVal RetVal As String, _
ByVal ptr As Long) _
As Long
Private Declare Function lstrlenA _
Lib "kernel32" _
(ByVal ptr As Any) _
As Long
Private Function GetStrFromPtrA(ByVal lpszA As Long) As String
GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)
End Function
Public Function GetFilePart(ByVal sPath As String) As String
GetFilePart = GetStrFromPtrA(PathFindFileName(sPath))
End Function
--
Drive C: Error. (A)bort (R)etry (S)mack The Darned Thing

[Bob Quintal]

Chuck Grimsby <c.*******@worldnet.att.net.invalid> wrote in
news:uf********************************@4ax.com:

On 5 Dec 2005 11:50:46 -0800, "Bob"
<st***********@hotmail.com> wrote:

I got it.
I took the returned path and just used:
Dir(returnedPath)
Jeez... Should have known that one!

Another way to do this (with out the Dir function, which can
cause some interesting results when used in a loop) is to use
the PathFindFileName API call in shlwapi.dll:

Another way is to take the returned string and

x = len(fullfilename)
for x = len(fullfilename to 1 step -1
if mid(fullfilename,x,1) = "\" then exit for
next
directorypath = left(fullfilename,x)
shortfilename = mid(fullfilename,x+1)

--
Bob Quintal

PA is y I've altered my email address.