Rubrik: Dateisystem | 13.07.01 |
DeleteFile-Funktion Diese Funktion löscht eine angegebene Datei ohne sie in den Papierkorb zu verschieben. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 15.279 |
Deklaration:
Declare Function DeleteFile Lib "kernel32.dll" _ Alias "DeleteFileA" ( _ ByVal lpFileName As String) As Long
Beschreibung:
Diese Funktion löscht eine angegebene Datei ohne sie in den Papierkorb zu verschieben.
Parameter:
lpFileName | Erwartet die vollständigen Pfadangabe der zu löschenden Datei. |
Rückgabewert:
Konnte die Datei erfolgreich gelöscht werden, wird "1" zurückgegeben, anderfalls ist der Rückgabewert "0".
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 "Kopieren 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