Kopieren einer Datei (Access 2.0)

Frage: 

Gibt es bei Access 2.0 die Möglichkeit das Kopieren einer Datei von einem bestimmten definierten Laufwerk auf ein Ziellaufwerk mit einem Makro zu automatisieren? 

Antwort: 

Mit dieser VBA-Funktion können Sie eine Datei kopieren. Die Funktion nimmt zwei String-Parameter an: die Quelldatei und die Zieldatei: 

Sub CopyFile (ByVal Source As String, ByVal Destination As String) 

    Dim i As Integer, NumBlocks As Integer 
    Dim FileLength As Long, LeftOver As Long 
    Dim FileData As String 

    Const BlockSize = 32768 

    Open Source For Binary Access Read As #1 
    Open Destination For Output As #2 
    Close #2 
    Open Destination For Binary As #2 

    FileLength = LOF(1) 
    NumBlocks = FileLength \ BlockSize 
    LeftOver = FileLength Mod BlockSize 
    FileData = String$(LeftOver, 32) 

    Get #1, , FileData 
    Put #2, , FileData 

    FileData = String$(BlockSize, 32) 

    For i = 1 To NumBlocks 
        Get #1, , FileData 
        Put #2, , FileData 
    Next i 

    Close #1, #2 

End Sub

Tags