Je ne sais pas si cela à déjà présenté ICI, mais ça existe sur le forum Russe !
Aussi je vous le propose, cela peut toujours être utile...
Le voilà à vous de voir.
Code : Tout sélectionner
; ------------------------------------------
; Envois un fichier dans la poubelle !!!
; Avec demande confirmation !
; ------------------------------------------
#FOF_NOERRORUI=$400
;
Procedure RecycleFile(file$)
m=AllocateMemory(Len(file$)+2)
If m
PokeS(m,file$)
SHFileOp.SHFILEOPSTRUCT
SHFileOp\pFrom=m
SHFileOp\wFunc=#FO_DELETE
SHFileOp\fFlags=#FOF_ALLOWUNDO|#FOF_NOERRORUI
ok=SHFileOperation_(SHFileOp) ; Si vous voulez voir cette fonction (F1)
; n'oubliez pas de ragarder aussi "SHFILEOPSTRUCT"
FreeMemory(m)
If ok=0 : ok=1 : Else : ok=0 : EndIf
EndIf
ProcedureReturn ok
EndProcedure
LeFichier$="c:\bytes.txt" ; <<=== Le fichier à expédier à la poubelle !
Debug RecycleFile(LeFichier$)
; ---------------------------
Gerhard