hvis findes....flyt fil access 97

Dim db as database
Dim rs as DAO.Recordset
Dim n as long
Set db = Currentdb
Set rs = db.openrecordset("DinTabel", dbopensnapshot)
rs.movelast
rs.movefirst
For n = 1 to rs.recordcount
  if dir("C:\billeder\" & rs![Filnavn]) <> "" then
    FileCopy "C:\Billeder\" & rs![Filnavn], "c:\billed_ok\" & rs[Filnavn]
  endif
rs.movenext
next n
rs.close
Set rs = Nothing
Db.close

Den melder expected end of statement i linie:

FileCopy "C:\Billeder\" & rs![Filnavn], "c:\billed_ok\" & rs[Filnavn]

skal '[Filnavn]' erstattes med noget andet ??

Filnavn skal erstattes med navnet på dit felt i tabellen, som indeholder filnavnet!

Den siger stadig expected end of statement på linien :
FileCopy "C:\Billeder\" & rs![Filnavn], "c:\billed_ok\" & rs[Filnavn]

Du mangler andet !...

FileCopy "C:\Billeder\" & rs![Filnavn], "c:\billed_ok\" & rs![Filnavn]

Proaccess har ret. Det er ikke sådan, når man bare skriver det i 'fri' hånd ;o)

takker....