1/5 (1 avis)
Snippet vu 6 461 fois - Téléchargée 90 fois
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
22 août 2003 à 19:27
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.