Kopieren einer Datei (Access 2.0)

05.01.2004

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

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.