---

Hej!

Hvis man vil checke om en fil findes på harddisken hvordan gøres det så?

---

"Morten" <not@for.you> skrev i en meddelelse
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å?

Brug FileSystemObject.
Gå i References og kryds af ud for Microsoft Scripting Runtime.

Derefter kan di oprette et FileSystemObject:

Dim fso as FileSystemObject
Set fso = new FileSystemObject
If fso.FileExsists(myFile.txt) Then
'filen findes
Else
'filen findes ikke
End If


--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen

---

Her er et eksempel på funktion der checker om fil eksisterer.

Function CheckInit() As Boolean
Dim fso As FileSystemObject
Dim INI_Path As String
INI_Path = "C:/Skabelon.ini"

Set fso = New FileSystemObject
If fso.FileExists(INI_Path) Then
CheckInit = True
MsgBox "FINDES"
Else
CheckInit = False
MsgBox "Findes IKKE"
End If
Set fso = Nothing
End Function
"Morten" <not@for.you> skrev i en meddelelse
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å?
>
>

---

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å?
>
>

---

Stefan McKinnon Edwards skrev:
> 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...

Yeps ... og tjek evt. også samtidig skjulte filer:

Function FileExist(File as String) as Boolean
If Dir(File, vbNormal) = "" And Dir(File, vbHidden) = "" Then
FileExist = False
Else
FileExist = True
End if
End Function

Mvh. Bjarke

---

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å?
> >
> >
>
>

---

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å?
> > >
> > >
> >
> >
>
>

---

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å?
> > > >
> > > >
> > >
> > >
> >
> >
>
>