A voir également:
- Fof_noconfirmation
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
- Vba supprimer une feuille sans confirmation ✓ - Forum VBA Office (Excel, Word ...)
- VBA Excel - Eviter les demandes de confirmation ✓ - Forum Visual Basic
1 réponse
Voici ma propre fonction, je croit que tout le secret tient dans FOF_NOCONFIRMATION que j'ai trouvé en fouillant dans les outils sur http://www.allapi.net la balance je l'ai trouvé ici ou ailleurs, j'ai oublié. ;O)
-=-=-=-=-=-=-=-=-=-=-=-=-
'Pour l'API qui envoye un fichier vers la corbeille de Windows:
'(Voir Makabey.Mainform.PersosDelete pour un exemple)
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
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 Const FOF_NOCONFIRMATION = &H10 'Fin déclarations pour l'API avec corbeille.
Public Function DetruireVersCorbeille(InFichier As String) As Long
'
' Envois un fichier dans la corbeille de Windows grâce à l'API
'
Dim FileOperation As SHFILEOPSTRUCT
'Préparation
With FileOperation
.wFunc = FO_DELETE
.pFrom = InFichier
.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
End With
'envoi du fichier vers la corbeille
DetruireVersCorbeille = SHFileOperation(FileOperation)
End Function
-=-=-=-=-=-=-=-=-=-=-=-=-
'Pour l'API qui envoye un fichier vers la corbeille de Windows:
'(Voir Makabey.Mainform.PersosDelete pour un exemple)
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
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 Const FOF_NOCONFIRMATION = &H10 'Fin déclarations pour l'API avec corbeille.
Public Function DetruireVersCorbeille(InFichier As String) As Long
'
' Envois un fichier dans la corbeille de Windows grâce à l'API
'
Dim FileOperation As SHFILEOPSTRUCT
'Préparation
With FileOperation
.wFunc = FO_DELETE
.pFrom = InFichier
.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
End With
'envoi du fichier vers la corbeille
DetruireVersCorbeille = SHFileOperation(FileOperation)
End Function
