Re: Strip filename + thanks!

[Ante]

Just what I needed! Thank you Randy!! ..And everybody else who has waisted
precious time with me and all my problems.


But, is there any (simle) way to detemine if the path point to a folder or
a file?


A happy weekend to you all!
/Ante




"Randy Birch" <rgb@mvps.org> wrote:
>Private Declare Function PathRemoveFileSpec Lib "shlwapi.dll" _
> Alias "PathRemoveFileSpecA" _
> (ByVal pszPath As String) As Long
>
>
>Private Sub Command3_Click()
>
> Dim sFile As String
>
> sFile = "c:\winnt\calc.exe"
>
> If PathRemoveFileSpec(sFile) <> 0 Then 'success
>
> Text3.Text = sFile
>
> End If
>
>End Sub
>
>
>
>
>--
>Randy Birch, MVP Visual Basic
>Take the Microsoft / VBnet Developer's poll at http://www.mvps.org/vbnet/
>
>http://www.mvps.org/vbnet/
>http://www.mvps.org/ccrp/
>news://news.mvps.org/
>
>Please correspond only using the newsgroups so all can benefit.
>
>
>"Ante" <ante95@hotmail.com> wrote in message
>news:39eebc7b$1@news.devx.com...
>|
>|
>|
>| GIGANT thanks to anyone who can help me out.
>| If you can, email me at ante95@hotamil.com
>|
>| /Ante
>
>

[mrfelis]

on error resume next 'In case doesn't exist
bFolder = ((GetAttr(sPath) And vbDirectory)=vbDirectory)
on error goto 0 'Or appropriate error handeler
--
~~~
C'Ya,
mrfelis
mrfelis@yahoo.NOSPAM.com
just remove the spam
Ante <ante95@hotmail.com> wrote in message news:39f020c4$1@news.devx.com...
>
>
> Just what I needed! Thank you Randy!! ..And everybody else who has waisted
> precious time with me and all my problems.
>
>
> But, is there any (simle) way to detemine if the path point to a folder or
> a file?
>
>
> A happy weekend to you all!
> /Ante
>
>
>
>
> "Randy Birch" <rgb@mvps.org> wrote:
> >Private Declare Function PathRemoveFileSpec Lib "shlwapi.dll" _
> > Alias "PathRemoveFileSpecA" _
> > (ByVal pszPath As String) As Long
> >
> >
> >Private Sub Command3_Click()
> >
> > Dim sFile As String
> >
> > sFile = "c:\winnt\calc.exe"
> >
> > If PathRemoveFileSpec(sFile) <> 0 Then 'success
> >
> > Text3.Text = sFile
> >
> > End If
> >
> >End Sub
> >
> >
> >
> >
> >--
> >Randy Birch, MVP Visual Basic
> >Take the Microsoft / VBnet Developer's poll at http://www.mvps.org/vbnet/
> >
> >http://www.mvps.org/vbnet/
> >http://www.mvps.org/ccrp/
> >news://news.mvps.org/
> >
> >Please correspond only using the newsgroups so all can benefit.
> >
> >
> >"Ante" <ante95@hotmail.com> wrote in message
> >news:39eebc7b$1@news.devx.com...
> >|
> >|
> >|
> >| GIGANT thanks to anyone who can help me out.
> >| If you can, email me at ante95@hotamil.com
> >|
> >| /Ante
> >
> >
>