VBA i access 97

If you havent received the answer you required then why give points?

Prøv med denne her:

(Undgå i øvrigt at kalde felter og variable for Name. Det forvirrer Access)

Function kopier()
Dim db As Database
Dim rs As DAO.Recordset
Dim n As Long
Dim StartFolder As String
Dim Folder As String
Dim FolderNavn(1 To 1000) As String
Dim I As Integer
Dim FolderAntal As Integer

StartFolder = "D:\billeder\"
Folder = Dir(StartFolder, vbDirectory)
I = 0
Do While Folder <> ""
      If Folder <> "." And Folder <> ".." Then  ' Ignorer det overordnede bibliotek.
        If (GetAttr(StartFolder & Folder) And vbDirectory) = vbDirectory Then
            I = I + 1
            FolderNavn(I) = Folder
        End If
    End If
    Folder = Dir    ' Hent næste folder
Loop
FolderAntal = I

Set db = CurrentDb
Set rs = db.OpenRecordset("table1", dbOpenSnapshot)
rs.MoveLast
For I = 1 To FolderAntal
    rs.MoveFirst
    For n = 1 To rs.RecordCount
        If Dir(StartFolder & FolderNavn(I) & "\" & rs![Name]) <> "" Then
            FileCopy StartFolder & FolderNavn(I) & "\" & rs![Name], "D:\total\" & rs![Name]
        End If
        rs.MoveNext
    Next n
Next I

rs.Close
Set rs = Nothing
db.Close
End Function

takker.. det virker....

Selv tak ;o)