Extracting filename

No, it is not available in xl97, but easy to code it yourself.

--
Regards,
Tom Ogilvy

"Nigel" <nigel-sw@suxnospampanet.com> wrote in message
news:OvJW7G8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> Hi Bob,
> I was toying with instr but did not know about the reverse version. Do
you
> know if this exists in xl97 - I am developing in xl2002 but the final
> product will run in xl97 and at present I cannot test it?
>
> --
> Cheers
> Nigel
>
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:%23HjCuC8LFHA.508@TK2MSFTNGP12.phx.gbl...
> > Use the instrRev function to get the last \
> >
> > sFile = "C:\mydocumentspath\subpath\myfile.xls"
> >
> > iPos = InStrRev(sFile, "\")
> > If iPos > 0 Then
> > Debug.Print Right(sFile, Len(sFile) - iPos)
> > End If
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > news:uHoMv97LFHA.3076@TK2MSFTNGP14.phx.gbl...
> > > Hi All
> > > In a file open dialog I get the full file path and filename and
> extension.
> > > eg
> > >
> > >
> > >
> > > What is the best method to extract the filename extension only eg
> > >
> > > myfile.xls
> > >
> > > --
> > > Cheers
> > > Nigel
> > >
> > >
> > >
> > >
> >
> >
>
>

Thanks Tom, so I will need to emaulate this in xl97. What is the best
approach?

--
Cheers
Nigel



"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:eE80UM8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> No, it is not available in xl97, but easy to code it yourself.
>
> --
> Regards,
> Tom Ogilvy
>
> "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> news:OvJW7G8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> > Hi Bob,
> > I was toying with instr but did not know about the reverse version. Do
> you
> > know if this exists in xl97 - I am developing in xl2002 but the final
> > product will run in xl97 and at present I cannot test it?
> >
> > --
> > Cheers
> > Nigel
> >
> >
> >
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > news:%23HjCuC8LFHA.508@TK2MSFTNGP12.phx.gbl...
> > > Use the instrRev function to get the last \
> > >
> > > sFile = "C:\mydocumentspath\subpath\myfile.xls"
> > >
> > > iPos = InStrRev(sFile, "\")
> > > If iPos > 0 Then
> > > Debug.Print Right(sFile, Len(sFile) - iPos)
> > > End If
> > >
> > > --
> > >
> > > HTH
> > >
> > > RP
> > > (remove nothere from the email address if mailing direct)
> > >
> > >
> > > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > > news:uHoMv97LFHA.3076@TK2MSFTNGP14.phx.gbl...
> > > > Hi All
> > > > In a file open dialog I get the full file path and filename and
> > extension.
> > > > eg
> > > >
> > > >
> > > >
> > > > What is the best method to extract the filename extension only eg
> > > >
> > > > myfile.xls
> > > >
> > > > --
> > > > Cheers
> > > > Nigel
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Just write a loop from the right backwards

For iPos = Len(sFile) to 1
If mid(sFil;e,iPos,1) = "\" Then
Exit For
End If
Next iPos

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Nigel" <nigel-sw@suxnospampanet.com> wrote in message
news:eoGp5P8LFHA.1948@TK2MSFTNGP14.phx.gbl...
> Thanks Tom, so I will need to emaulate this in xl97. What is the best
> approach?
>
> --
> Cheers
> Nigel
>
>
>
> "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> news:eE80UM8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> > No, it is not available in xl97, but easy to code it yourself.
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > news:OvJW7G8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> > > Hi Bob,
> > > I was toying with instr but did not know about the reverse version.
Do
> > you
> > > know if this exists in xl97 - I am developing in xl2002 but the final
> > > product will run in xl97 and at present I cannot test it?
> > >
> > > --
> > > Cheers
> > > Nigel
> > >
> > >
> > >
> > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > news:%23HjCuC8LFHA.508@TK2MSFTNGP12.phx.gbl...
> > > > Use the instrRev function to get the last \
> > > >
> > > > sFile = "C:\mydocumentspath\subpath\myfile.xls"
> > > >
> > > > iPos = InStrRev(sFile, "\")
> > > > If iPos > 0 Then
> > > > Debug.Print Right(sFile, Len(sFile) - iPos)
> > > > End If
> > > >
> > > > --
> > > >
> > > > HTH
> > > >
> > > > RP
> > > > (remove nothere from the email address if mailing direct)
> > > >
> > > >
> > > > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > > > news:uHoMv97LFHA.3076@TK2MSFTNGP14.phx.gbl...
> > > > > Hi All
> > > > > In a file open dialog I get the full file path and filename and
> > > extension.
> > > > > eg
> > > > >
> > > > >
> > > > >
> > > > > What is the best method to extract the filename extension only eg
> > > > >
> > > > > myfile.xls
> > > > >
> > > > > --
> > > > > Cheers
> > > > > Nigel
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Hi Bob,
Of course - I'm just not thinking - it's been a long day, dealing with Class
Modules! (reference other posts)

--
Cheers
Nigel



"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:utmR6h8LFHA.3424@TK2MSFTNGP12.phx.gbl...
> Just write a loop from the right backwards
>
> For iPos = Len(sFile) to 1
> If mid(sFil;e,iPos,1) = "\" Then
> Exit For
> End If
> Next iPos
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> news:eoGp5P8LFHA.1948@TK2MSFTNGP14.phx.gbl...
> > Thanks Tom, so I will need to emaulate this in xl97. What is the best
> > approach?
> >
> > --
> > Cheers
> > Nigel
> >
> >
> >
> > "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> > news:eE80UM8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> > > No, it is not available in xl97, but easy to code it yourself.
> > >
> > > --
> > > Regards,
> > > Tom Ogilvy
> > >
> > > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > > news:OvJW7G8LFHA.2420@TK2MSFTNGP12.phx.gbl...
> > > > Hi Bob,
> > > > I was toying with instr but did not know about the reverse version.
> Do
> > > you
> > > > know if this exists in xl97 - I am developing in xl2002 but the
final
> > > > product will run in xl97 and at present I cannot test it?
> > > >
> > > > --
> > > > Cheers
> > > > Nigel
> > > >
> > > >
> > > >
> > > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > > news:%23HjCuC8LFHA.508@TK2MSFTNGP12.phx.gbl...
> > > > > Use the instrRev function to get the last \
> > > > >
> > > > > sFile = "C:\mydocumentspath\subpath\myfile.xls"
> > > > >
> > > > > iPos = InStrRev(sFile, "\")
> > > > > If iPos > 0 Then
> > > > > Debug.Print Right(sFile, Len(sFile) - iPos)
> > > > > End If
> > > > >
> > > > > --
> > > > >
> > > > > HTH
> > > > >
> > > > > RP
> > > > > (remove nothere from the email address if mailing direct)
> > > > >
> > > > >
> > > > > "Nigel" <nigel-sw@suxnospampanet.com> wrote in message
> > > > > news:uHoMv97LFHA.3076@TK2MSFTNGP14.phx.gbl...
> > > > > > Hi All
> > > > > > In a file open dialog I get the full file path and filename and
> > > > extension.
> > > > > > eg
> > > > > >
> > > > > >
> > > > > >
> > > > > > What is the best method to extract the filename extension only
eg
> > > > > >
> > > > > > myfile.xls
> > > > > >
> > > > > > --
> > > > > > Cheers
> > > > > > Nigel
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>