Explorateur d'envoi de fichiers vers la corbeille de windows

Commenter

Contenu du snippet

Cette source sert à envoyer des fichiers vers la corbeille de Windows à l'aide d'un explorateur :

Dans un formulaire créez :
-un DirListBox
-un FileListeBox
-un DriveListBox
-un bouton command

Puis utilisez ce code dans votre formulaire :

Source / Exemple : 


Option Explicit
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

'Utilisation API pour l'envoi de fichier vers la corbeille
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 Sub Command1_Click()
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long

'Vérification de la selection du fichier dans l'explorateur
If File1.ListIndex = -1 Then
    MsgBox "Aucun fichier n'est sélectionné"
    File1.SetFocus
    Exit Sub
End If

With FileOperation
    .wFunc = FO_DELETE
    .pFrom = File1.Path & "\" & File1.List(File1.ListIndex)     'selection du fichier dans l'explorateur
    .fFlags = FOF_ALLOWUNDO
End With

'envoi du fichier vers la corbeille
lReturn = SHFileOperation(FileOperation)
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path      'Met à jour les fichiers de l'explorateur
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive    'Met à jour les repertoires de l'explorateur
End Sub

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.