VB-Homepage Tipp 141

Kopieren und verschieben von Dateien über API

Bekanntermaßen ist das Kopieren über Filecopy und das verschieben über Name unter VB kein Problem. Was dann VB allerdings umsetzt sind API Befehle und dies können Sie natürlich auch gleich direkt aufrufen, weil schneller.
Da hier nicht viel Umfeld dazu gehört, spar ich mir ein ganzes Projekt bereit zu stellen.

1. Die API Deklaration unter Allgemein/Deklarationen
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

2. Der Aktionsaufruf
'Variablen setzen
Source="C:\autoexec.bat" 'die Quelldatei
Target="C:\Temp\autoexec.bat" 'die Zieldatei

'die Aktion auslösen
'KOPIEREN
A = CopyFile(Trim$(Source), Trim(Target), False)
'VERSCHIEBEN
A = MoveFile(Trim$(Source), Trim(Target))

Erläuterung :
'False = in der Kopieraktion steht für das Überschreiben, wenn die Datei schon existiert.


Tipp-Download

Quelle :

Zurück zur Übersichtsseite