Donnerstag, 21. September 2017

Home
Tipps
Bücher
Software
News / Links
Hilfe
Impressum

Sponsored by
QualityHosting

Frage und Antwort
Kopieren einer Datei (Access 2.0)
von den Hukla Werken
Problem:
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 der TriniDat GmbH:
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


Ein Service der TriniDat Software-Entwicklung GmbH - Am Wehrhahn 45 - 40211 Düsseldorf

  Suche
Suche starten
  Service
Leserbrief / Frage zu Access
Kontakt
  NewsLetter
NewLetter bestellen
NewsLetter abbestellen
  Partner-Seiten
HyperLink

www.trinidat.de


HyperLink

www.fulldotnet.de