checke om der er en file tilstede i en mappe

dir(filnavn) <> "" betyder, at filen findes.

If Dir("C:\mappe11.jpg")<>"" Then
  Open "C:\mappe11.jpg" FOR INPUT AS #1
End If

Hvis du skriver

Private SUb Test()
On Error Goto ErrHandl

On Error Resume NExt
'Åben file
if(Err.Number > 0) then
  'Fil findes ikke
end if

On Error Goto ErrHandl


Exit SUb
ErrHandl:


end Sub

Undgå så vidt muligt On Error Resume Next (Derfor On Error Goto ErrHandl) Men den er god i dette tilfælde!

Ellers tag og benyt Microsoft.Scripting Runtime
Der ligger et object, der kan fortælle dig om en given fil findes eller ej


//Nolle_K

Ved hjælp af Ref. til Scriptiog Runtime kan følgende bruges

  Dim fh As New FileSystemObject
  if(fh.FileExists("C:\1.jpg")) then
    'File findes
  end if

Tak for de hurtige svar allesammen. Da jeg bare skulle copy/paste proaccess forslag er det ham der løber af med pointene!

Helt ærligt, jeg har i princippet givet dig samme svar som Proaccess, og alligevel afviser du et svar, som er kommet tidligere end det accepterede.

Takker ;0)  - Men sæt point-antallet lidt ned, det er lige lidt i overkanten med 200 pts...  Det eneste du opnår er ekstra opmærksomhed på dit spørgsmål !!!