//detecte usb
SI PAS USBDétecteStockageAmovible("ProcédureUSB") ALORS
Erreur(ErreurInfo())
FIN
-------------------------------------------------------
PROCEDURE ProcédureUSB(Lettre, Action)
bRessupp est un booléen
SI Action = StockageAmovibleInséré ALORS
bRessupp =fSupprime(Lettre+":\PCOPS.msi",frLectureSeule)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4187&post_id=17259