Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249602 (11038)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Papierkorb
Alexander Gall
| Datum:27.06.01 22:39 (alexander.gall@web.de) |
Im Moment programmiere ich eine Anwendung, mit der unter anderem Dateien gelöscht werden können. Statt sie direkt zu löschen (Erase), würde ich sie aber lieber in den Papierkorb verschieben lassen. Dabei gibt es aber zwei Probleme: 1.Leider hat ein Befehl wie Copy "C:\Brief.txt" > "C:\Recycled\Brief.txt" keinerlei Wirkung. 2. Ich befürchte, dass der Papierkorb unter Windows ME nicht einmal mehr als Ordner vorhanden ist, so dass mit einem Copy-Befehl oder etwas Ähnlichem auch nichts in den Papierkorb geschoben werden kann. Hat jemand eine Idee, wie man die beiden Probleme lösen und den Papierkorb (möglichst auch unter Windows ME) mit Profan nutzen könnte? Für Hinweise vielen Dank!
Tobias Fröhlich
| Datum: 28.06.01 00:27 (tobias@codeme.de) |
Hallo, nimm am besten die Methode von Thomas Hölzer aus PRFellow. '------------------------------------------------------ ' 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$),1) 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 '------------------------------------------------------ MfG, Tobias

| Zurück zur Übersicht