Explorateur d'envoi de fichiers vers la corbeille de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 093 fois - Téléchargée 88 fois

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

Ajouter un commentaire

Commentaire

Signaler
SuperTonic
Messages postés
53
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
16 mars 2011
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 ...
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.