Discussion :

[Sam 069]

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.

@+
++

[Lou Pitchoun]

Salut,

Tu lances cette fonction à partir d'un formulaire ?

[Sam 069]

Non, directeement dans la code.

C'esrt vrai qu'ici Me fait appel à aucun formulaire d'où peut etre le problème.

Merci.

@+
++

[cafeine]

Hello,

sans doute oui

Pourquoi ne pas utiliser l'instruction Kill ?

Non, directeement dans la code.

C'esrt vrai qu'ici Me fait appel à aucun formulaire d'où peut etre le problème.

Merci.

@+
++

[Sam 069]

Ok. Par contre faut faire un controle pour verifier l'existence.Voici la soluce (en gros):

Donc ca peut donner :

If Dir("c:\temp\Erreurs.tmp", vbHidden) <> "" Then
'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
End If

Kill "c:\Erreurs.tmp"


Merci pour votre aide.