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. |
