XProfan

'URL: https://xprofan.com/intl/de/quelltexte/datei-papierkorb-verschieben/?msg=3#30313
'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Datei in den Papierkorb verschieben
'Lauffähig ab Profan-Version 5.0
' PRFellow-Vorlage
' Autor: Thomas Hölzer
' Eine Datei in den Papierkorb verschieben (ab Profan 5.0-32)
' Parameter:
' (1): Voller Pfadname
' (2): 1, wenn Bestätigungs-Dialog angezeigt werden soll
' Eine Rückgabe <> 0 markiert einen Fehler oder User-Abbruch
Def SHFileOperation(1) !"SHELL32","SHFileOperationA"
Declare SHFO#
Declare file#

Proc MoveFileToBin

    Parameters file$,confirm%
    Declare flags%
    FindFirst$(file$)
    Case %IOResult: Return -1
    Let flags%=64
    Case confirm%: Let flags%=80
    Dim SHFO#,30
    Dim file#,Add(Len(file$),2)
    String file#,0=file$
    Long SHFO#,0=GetActiveWindow()
    Long SHFO#,4=3
    Long SHFO#,8=file#
    Long SHFO#,12=0
    Word SHFO#,16=flags%
    Long SHFO#,18=0
    Long SHFO#,22=0
    Long SHFO#,26=0
    Let result&=SHFileOperation(SHFO#)
    Dispose file#
    Dispose SHFO#
    Return result&

EndProc

' Beispiel
Cls
MoveFileToBin "C:\\TEST.TST",1