vba script på copy og rename fil

Dim rs As ADODB.Recordset
Dim aTable1Values

    Set rs = New ADODB.Recordset
   
       
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select varenummer, billednavn From tabel1", , , adLockOptimistic
           
        On Error Resume Next
        Do Until .EOF
           
            FileCopy "C:\billeder\" & rs("billednavn"), "C:\billeder\web\" & rs("varenummer")
           
            .MoveNext
           
        Loop
       
    End With
   
    rs.Close

    MsgBox "kørsel er nu færdig"

Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset
   
       
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select varenummer, billednavn From tabel1", , , adLockOptimistic
           
        On Error Resume Next
        Do Until .EOF
           
            FileCopy "C:\billeder\" & !billednavn, "C:\billeder\web\" & !varenummer
            .MoveNext
           
        Loop
       
    End With
   
    rs.Close

    MsgBox "kørsel er nu færdig"

hvad er forskellen på 1 indlæg og andet indlæg.?
hvilken en skal jeg anvende ?

NB.
jeg kører access 2003 gør det nogen forskel i relation til dine funktionskald ?

They are both very similar, only differnce is the first has a variable which isnt used so its deleted in the second. Any other changes arent worth mentioning.

Use the second.

It should work in all versions of ACCESS but you need a refernece to ADO.
(tools+references)

jeg prøver det lige af....
skal nok lige reply senere i aften på det..

haqr connectet til diverse ADO i preferences, men når jeg i modules vil køre scriptet (f8) sker der ingenting.
Skal der ikke defineres at det er currentdatabase og alt det der i starten eller ?

synes fra gamle dage at kunne huske noget i den retning...

have you placed the code in a sub or function?

The code should work as it is once its in a function.

will try that :-)

den kopierer en fil, men den mister sin association
på at det er en jpg fil

nogle forslag

hvordan får jeg filen til at ende på .jpg

hjar selv løst det :

Function kopier_billeder()

Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim i As String
    i = ".jpg"
           
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select EAN, picture From billedreferencer", , , adLockOptimistic
           
        On Error Resume Next
        Do Until .EOF
           
            FileCopy "C:\solar\" & !Picture, "C:\solar-web\" & !EAN & i
           
           
           
            .MoveNext
           
        Loop
       
    End With
   
    rs.Close

    MsgBox "kørsel er nu færdig"
    End Function

thanks, glad you got it working.