|
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
  |
Procédure : EffacerVersCorbeille hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Boolean hNameMappings As Long lpszProgressTitle As String End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _ (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_NOCONFIRMATION = &H10 Private Sub EffaceVersCorbeille(stFichier As String) ' Efface un fichier en l'envoyant à la corbeille Dim lgRes As Long Dim shFile As SHFILEOPSTRUCT With shFile ' Constante indiquant une suppression .wFunc = FO_DELETE ' Affecte le nom du fichier .pFrom = stFichier ' Constantes pour indiquer qu'on pourra restaurer le fichier et qu'il ' ne faut pas faire apparaître de fenêtre de confirmation pour l'opération. .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION End With lgRes = SHFileOperation(shFile) End Sub |
|
