OK (Jeg elsker alternative løsninger
FileExist = LEN(Dir(File, vbNormal) + Dir(File, vbHidden))
Beste hilsen Harald
"Barney Gumble" <dadrinker.nospam@hotmail.com> wrote in message
news:aedjg4$1444$1@news.cybercity.dk...
> Eller
>
> Public Function FileExist(ByVal File As String) As Boolean
> FileExist = (Dir(File, vbNormal) <> "" Or Dir(File, vbHidden) <> "")
> End Function
>
> BG
>
> "Harald Staff" <harald.staff@eunet.no> wrote in message
> news:aedd6i$3a9$1@oslo-nntp.eunet.no...
> > Eller
> >
> > Function FileExist(File As String) As Boolean
> > FileExist = Len(Dir(File))
> > End Function
> >
> > Beste hilsen Harald
> >
> > "Stefan McKinnon Edwards" <sme@iysik.com> wrote in message
> > news:8JhO8.38543$N46.1588202@news010.worldonline.dk...
> > > Brug Dir funktionen:
> > >
> > > Function FileExist(File as String) as Boolean
> > > If Dir(File) = "" Then
> > > FileExist = False
> > > Else
> > > FileExist = True
> > > End if
> > > End Function
> > >
> > > Meget, meget lettere...
> > >
> > > --
> > > Stefan McKinnon Edwards
> > >
www.iysik.com
> > >
> > > "Morten" <not@for.you> wrote in message
> > > news:3d09880b$0$260$edfadb0f@dspool01.news.tele.dk...
> > > > Hej!
> > > >
> > > > Hvis man vil checke om en fil findes på harddisken hvordan gøres det
> så?
> > > >
> > > >
> > >
> > >
> >
> >
>
>