TKSoft-Online

Public Sub CopyComplete(sTargetPath As String)
 
          Dim rs As DAO.Recordset
          Dim s$(0)
          Dim s1 As String
 
10        Set rs = CurrentDb.OpenRecordset("tblVerzeichnisEinlesen")
 
20        Do While Not rs.EOF
30            s(0) = rs!datQuellPfad
40            CopyOperation s, sTargetPath, True
50            rs.MoveNext
60        Loop
70        rs.Close
End Sub

Public Sub CopyComplete()
 
          Dim rs As DAO.Recordset
          Dim s$(0)
          Dim s1 As String
 
10        Set rs = CurrentDb.OpenRecordset("tblVerzeichnisEinlesen")
 
20        Do While Not rs.EOF
30            s(0) = rs!datQuellPfad
40            CopyOperation s, rs!datZielPfad, True
50            rs.MoveNext
60        Loop
70        rs.Close
End Sub

Public Sub CopyComplete(sTargetPath As String)
 
        Dim rs As DAO.Recordset
        Dim s$(0)
        Dim s1 As String
 
            Set rs = CurrentDb.OpenRecordset("tblTempDatenEinlesen")
        Do While Not rs.EOF
            s(0) = rs!datQuellPfad
            CopyOperation s, rs!datZielPfad, True
            rs.MoveNext
        Loop
        rs.Close
End Sub