Bonjour,
J'utilise une fonction disponible sur le FAQ pour supprimer un fichier à
partir d'Access.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Option Compare Database
 
Private Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Long
   fAnyOperationsAborted As Long
   hNameMappings As Long
   lpszProgressTitle As String
End Type
 
Private Const FO_DELETE As Long = &H3
Private Const FOF_ALLOWUNDO As Long = &H40
 
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" _
                                         (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public Function DansCorbeille(fichier As String, handle As Long) As Boolean
 
    Dim DelFileOp As SHFILEOPSTRUCT
    Dim Result As Long
 
    With DelFileOp
       .hwnd = handle
       .wFunc = FO_DELETE
       .pFrom = fichier & vbNullChar & vbNullChar
       .fFlags = FOF_ALLOWUNDO
    End With
 
    Result = SHFileOperation(DelFileOp)
    DansCorbeille = (Result = 0) And (DelFileOp.fAnyOperationsAborted = 0)
 
End Function
J'ai un problème lorsque je lance le programme au travers de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
        If DansCorbeille(Repertoire & "\global.txt", Me.hwnd) Then
        MsgBox "Le fichier a été déplacé dans la corbeille"
        Else
        MsgBox "Le fichier n'a pas pu être déplacé dans la corbeille"
        End If
J'ai un problème sur Me.hwnd. Message d'erreur : "Invalid use of Me keyword".

Si vous avez une idée ? Je vous remercie.

@+
++