Envoyer un fichier à la Corbeille

[YANN-56]

Bonjour à tous,

J'ai un mauvais souvenir de la fonction "Kill"
Mauvaise rédaction de variables dans mon chemin...
Et Surprise! Plus rien dans mes Documents!!!

Je cherche donc à passer par la corbeille pour laisser à
l'utilisateur le moyen de restaurer en cas d'une mauvaise manip.

Le top serait évidemment d'éviter la demande de
confirmation de Bill.

J'ai une macro de ce type dans mes archives,
mais je l'ai tellement mal bidouillée que je n'arrive plus
à recoller les morceaux.

Merci d'avance.

YANN-56

 

[Cousinhub]

Re : Envoyer un fichier à la Corbeille

Bonjour,

un code de Chip Pearson et Frédéric Sigonneau :

Declare Function SHFileOperation Lib "shell32.dll" Alias _
  "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

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

Sub test()
  'à adapter
  RecycleFile "D:\MesDocs\Classeur1.xls"
End Sub

Sub RecycleFile(sFile As String)
'Chip Pearson, mpep
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
'décommenter si la demande de confirmation n'est pas nécessaire
'[COLOR="Red"]Const FOF_NOCONFIRMATION = &H10[/COLOR]

Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFileName As String

  With FileOperation
    .wFunc = FO_DELETE
    .pFrom = sFile
    .fFlags = FOF_ALLOWUNDO '[COLOR="Red"]+ FOF_NOCONFIRMATION[/COLOR] 'idem
  End With
  lReturn = SHFileOperation(FileOperation)
End Sub

si tu ne veux pas le message de Bill, tu décommentes ce qui est en rouge

 

[YANN-56]

Re : Envoyer un fichier à la Corbeille

Merci bhbh,

Je pense aussi que ma vielle macro venait de ces sources.
Sauf que tu as dû y apporter ta touche et un peu
de nettoyage.
(Ou peut-être que j'y avais mis un peu trop de B..l)

J'ai toujours eu du mal à savoir ce qui devait être
dans l'USF ou dans un module...

Mais j'ai testé et j'approuve l'efficacité de ton aide.

Merci encore, et sincères voeux de bonne fin
de journée et de bon week end.

YANN-56