Rubrik: Dateisystem | 13.07.01 |
CopyFile-Funktion Diese Funktion kopiert eine Datei von Laufwerk/Ordner A nach Laufwerk/Ordner B. Hierbei kann noch festegelegt werden, ob eine bereits vorhandene Datei überschrieben werden soll. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 27.769 |
Deklaration:
Declare Function CopyFile Lib "kernel32.dll" _ Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Beschreibung:
Diese Funktion kopiert eine Datei von Laufwerk/Ordner A nach Laufwerk/Ordner B. Hierbei kann noch festegelegt werden, ob eine bereits vorhandene Datei überschrieben werden soll.
Parameter:
lpExistingFileName | Der Quellpfad der zu kopierenden Datei. |
lpNewFileName | Der Zielpfad, nach den die Datei kopiert werden soll. |
bFailIfExists | "0", wenn eine bereits vorhandene Datei überschrieben werden soll bzw. "ungleich 0", wenn eine bereits vorhandene Datei nicht überschrieben werden soll |
Rückgabewert:
Bei erfolgreichem Kopieren ist die Rückgabe "1", konnte die Datei nicht kopiert werden wird "0" zurückgegeben (z.B. wenn angegeben wurde, dass keine Dateien überschrieben werden sollen).
Beispiel:
Private Declare Function DeleteFile Lib "kernel32.dll" _ Alias "DeleteFileA" ( _ ByVal lpFileName As String) As Long Private Declare Function CopyFile Lib "kernel32.dll" _ Alias "CopyFileA" ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click() Dim Retval As Long Retval = CopyFile("c:\Autoexec.bat", "c:\windows\Desktop\TmpAutoexec.txt", 0) If Retval = 0 Then MsgBox "Die angegebene Datei existiert bereits", vbInformation + _ vbOKOnly, "Kopieren fehlgeschlagen" Exit Sub Else MsgBox "Kopiervorgang war erfolgreich, die Datei wird nun wieder gelöscht.", _ vbInformation + vbOKOnly, "Datei wird gelöscht" Retval = DeleteFile("c:\windows\Desktop\TmpAutoexec.txt") If Retval = 1 Then MsgBox "Die Datei wurde erfolgreich gelöscht", vbInformation + _ vbOKOnly, "Löschen erfolgreich" Else MsgBox "Die Datei konnte nicht gelöscht werden.", vbInformation + _ vbOKOnly, "Löschen fehlgeschlagen" End If End If End Sub