TKSoft-Online

Public Function CopyOperation(dateinamen$(), zielverzeichnis$, Optional boolSubFolder As Boolean = False)
      '*******************************************
      'Name:      CopyOperation (Function)
      'Purpose:   kopieren von Dateien und Verzeichnissen
      'Author:    Tommyk
      'Date:      März 11, 2004, 04:23:10
      'Inputs:    dateinamen$()= Namen der Quelldateien + Pfad, zielverzeichnis$= Zielverzeichnis
      '           boolSubFolder=True, mit Subfolder
      'Output:
      '*******************************************
      Dim filenames$
      Dim i As Integer
      Dim shellinfo As SHFILEOPSTRUCT
 
10    For i = 0 To UBound(dateinamen)
20        filenames = filenames & dateinamen(i) + Chr(0)
30    Next i
40    filenames = filenames + Chr(0)
 
50    With shellinfo
60            .hWnd = Screen.ActiveForm.hWnd
70            .wFunc = FO_COPY
80            .pFrom = filenames
90            .pTo = zielverzeichnis
100           If boolSubFolder = True Then .fFlags = FOF_FILESONLY
110           .fFlags = .fFlags Or FOF_NOCONFIRMMKDIR Or FOF_NOCONFIRMATION
120   End With
130       CopyOperation = (0 = SHFileOperation(shellinfo))
End Function

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!DasFeldmitPfad
40            CopyOperation s, sTargetPath, True
50            rs.MoveNext
60        Loop
70        rs.Close
End Sub

CopyComplete "H:\Test\"