Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : EffacerVersCorbeille
Efface un fichier en le placant dans la corbeille de windows 95.
(Consulté 18413 fois.)

Private Type SHFILEOPSTRUCT
    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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr