Dateien
mit der Kill-Anweisung löschen ist kein Problem,
hier sehen Sie, wie einfach es ist, Dateien zunächst in den
Papierkorb zu verschieben.
Dies funktioniert allerdings nur dann, wenn Sie das
Verschieben
in den Papierkorb aktiviert haben, siehe im Eigenschaftsdialog
des Papierkorbes.
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Private Declare Function SHFileOperation Lib _
"Shell32.dll" Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
Dim Shop As SHFILEOPSTRUCT
Dim strFile As String
'zu löschende Datei
strFile="c:\temp.txt"
With Shop
.wFunc = FO_DELETE
.pFrom = strFile
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation Shop
Setzen
Sie Shop.fFlags
auf FO_DELETE,
so wird die angegebene Datei sofort gelöscht.
Eine Sicherheitsabfrage erfolgt je nach Konfiguration Ihres
Papierkorbes.
|
Download