KILL..OK..MAIS VERS CORBEILLE!

Bonjour à tous

Après un p'tit truc que j'ai bidouillé pour
lister mes fichiers en doubles, j'utilise
Kill ('MonDossierEnTrop')

Jusque là, tout fonctionne...

Sauf que...Comme je suis étourdi maladiffic

J'aimerai bien avoir une sécu en mettant dans
la corbeille les fichiers (Ou dossiers) supprimés.
Si cela est possible...

Sinon, c'est un peu comme le grenier qu'on vide.
Demain: 'Crotte, pourtant, je l'ai vu y'a pas longtemps..!!!'

Merci d'avance.

Et bonne journée à tous

IFFIC

[MichelXld]

bonjour Iffic

ce n'est peut etre pas exactement ce que tu demandes mais tu peux deja essayer

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
'
'source
'http://vbfrance.com/code.aspx?id=4665
'
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

Sub test()
Corbeillation 'C:\\monFichier.xls'
End Sub

bon apres midi
MichelXld

Message édité par: michelxld, à: 08/08/2005 12:59

Bonjour Michel

Et tu oses après ça me souhaiter un bon après-midi !!!!!!!!

Bon je sais que comme d'hab. avec ton aide, tout va marcher.

A cette heure ne me restant plus que deux lignes de mémoire
vive dans mon cerveau, je vais respirer l'air du large.

J'ai du boulot ce soir. Vingt Dieux!!!

Merci à toi. (Encore une fois)

Et plein de soleil et bonnes choses.

IFFIC