Envoyer un fichier à la corbeille de windows

Commenter

Contenu du snippet

Pour ne pas être aussi direct que la méthode "KILL", c'est pas du top, mais c'est pratique et ça peut aider les débutants comme ça m'a aidé...
Copiez ce code, placez le dans un nouveau module et utilisez la fonction: Corbeillation...

Source / Exemple : 


' Depuis votre programme commandez la fonction:
'Corbeillation ("c:\machin\AFAC.bmp")... avec bien sûr n'importe quel autre fichier...
' Et vous aurez la boite vous proposant de jeter ce fichier à la
' corbeille (si vs cliquez sur OUI)

Private Type Fichier
     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
'API utilisée pour jeter des fichiers à la corbeille
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Fichier) As Long
'Constantes nécessaires
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40

Public Function Corbeillation(Fic As String) As Boolean
Dim FicAvirer As Fichier
Dim lReturn As Long
If Dir$(Fic) = "" Then Exit Function
With FicAvirer
    .wFunc = FO_DELETE
    .pFrom = Fic     'fichier sélectionné
    .fFlags = FOF_ALLOWUNDO
End With
'Jette le fichier à la poubelle
lReturn = SHFileOperation(FicAvirer)
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (VBbigineure)