Help with ShowOpen() by CajunCenturion

bpeirson · Aug 26, 2006

I searched the archives and found function ShowOpen() and function ShowSave() by CajunCenturion in thread766-100581 (Aug 2004). Both work great with a slight modification;

Code:

      .tLng_hWndOwner = Me.hWnd
      .tLng_hInstance = App.hInstance

must read

Code:

      .tLng_hWndOwner = Application.hWnd
      .tLng_hInstance = Application.hInstance

on my system.

How do I extract the filename from ShowOpen() without the entire path included in the string? I will post the code if required.

cummings54 · Aug 30, 2006

if PN contains the full path name use the following function to reverse the character order in PN

Function ReverseString(inString As String) As String
Dim lngLen As Long
lngLen = Len(inString)
If lngLen <= 1 Then
ReverseString = inString
Else
ReverseString = Right(inString, 1) _
& ReverseString(Left(inString, lngLen - 1))
End If
End Function

ie. rPN =ReverseString(PN)
now search for the first instance of "\" character using the built in function InStr, ie

iPos= InStr(1,rPN,"\")

Finally return the filename using Right function

FN=Right(PN,iPos-1)

bpeirson · Aug 31, 2006

Thanks, I was having problems resolving variable numbers of "\" in various filenames. I had resorted to pasting the full path into a worksheet and using excel functions because I am more familiar with excel than VBA. It occurred to me that someone must know a simpler way.

johnwm · Aug 31, 2006

It's even easier using the InstrRev function. See:

http://www.w3schools.com/vbscript/func_instrrev.asp

(just the same for VBS or VBA)

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

Steam Engine enthusiasts:

http://www.essexsteam.co.uk

bpeirson · Sep 1, 2006

cummings54, thanks, it works well.

johnwm, less code but it doesn't work as well. The filename returned always included the folder "Foldername\filename.dxf". I tried to change the compare options of the function but no luck.

The next phase is to predetermine the path and filename which is used to save the file with the showsave() function.
I will need to change the extension of the filename as well.

Any help is appreciated.

johnwm · Sep 2, 2006

InstrRev has always worked for me

Code:

Public Function myFilename(ByVal fn As String) As String
myFilename = Mid$(fn, InStrRev(fn, "\") + 1)
End Function

Use as

Code:

f = "F:\My Documents\Inetpub\[URL unfurl="true"]wwwroot\wpnew\images.dxf"[/URL]
Debug.Print myFilename(f)

It produces images.dxf for me.

To change the file name use the MID$ command

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

Steam Engine enthusiasts:

http://www.essexsteam.co.uk

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Help with ShowOpen() by CajunCenturion

bpeirson

Structural

Recommended for you

cummings54

Chemical

bpeirson

Structural

johnwm

Computer

bpeirson

Structural

johnwm

Computer

Similar threads

Part and Inventory Search

Sponsor