Explorateur d'envoi de fichiers vers la corbeille de windows

1/5 (1 avis)

Snippet vu 6 461 fois - Téléchargée 90 fois

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

Ajouter un commentaire Commentaire
SuperTonic Messages postés 53 Date d'inscription mercredi 24 juillet 2002 Statut Membre Dernière intervention 16 mars 2011
22 août 2003 à 19:27
Salut
Ta source est excatement ce que je cherche depuis ... oh là là bien trop vieux pour que je puisse m'en souvenir !
Mais oup's j'ai un problème avec : Erreur exécution : 1024
ouuiiinnnn ...

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.