Tipp 1.29 - Alternative Kill-Befehl

Welche Alternative habe ich zum VB Kill-Befehl?

Mit dieser Funktion können Sie eine alternativere Variante zum Kill-Befehl anwenden. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: DeleteFile

Beispiel:

Option Explicit
 
Declare Function DeleteFile Lib "kernel32" Alias _
                "DeleteFileA" _
                (ByVal lpFileName As String) As Long
 
Function vbKill(ByVal sPathname As String) As Boolean
'// -----------------------------------------------------
'// Methode:   | Sicheres Löschen von Dateien
'// -----------------------------------------------------
'// Parameter: | sPathname - zu löschenende Datei
'// -----------------------------------------------------
'// Rückgabe:  | True bei Erfolg
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
'// Hinweise aus der MSDN beachten:
'// -----------------------------------------------------
'// Windows 95/98/Me:
'// The DeleteFile function deletes a file even if it is
'// open for normal I/O or as a memory-mapped file (!!!)
'// To prevent loss of data, close files before attempting
'// to delete them.
'// Windows NT/2000/XP:
'// The DeleteFile function fails if an application
'// attempts to delete a file that is open for normal
'// I/O or as a memory-mapped file.
'// -----------------------------------------------------
    On Error GoTo Exit_vbKill
    vbKill = CBool(DeleteFile(sPathname) <> 0)
 
Exit_vbKill:
    On Error GoTo 0
    Exit Function
 
End Function


Zurück Tipp 1.28 - Dateiversion ermitteln | Inhalt | Weiter