J'ai recopié du code sans y comprendre grand chose, que voici, et s'il
supprime bien le fichier à la source, "il ne va pas dans la poubelle", lol
!!!
Private 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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Sub Command3_Click()
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
'
cte_sup = "supfic.txt" ' <<<<<----------------
FileOperation.wFunc = FO_DELETE
FileOperation.pFrom = cte_sup
FileOperation.fFlags = FOF_ALLOWUNDO
lReturn = SHFileOperation(FileOperation)
End Sub
Avez-vous une idée d'où qu'est l'erreur, et j'en profite pour demander
s'il n'y aurait pas un truc plus court, du genre:
Poubelle = fichier
???
Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
"LE TROLL" <le a écrit dans le message de news:
Bonjour à tout,
Comment balancer un fichier à la poubelle ???
J'ai recopié du code sans y comprendre grand chose, que voici, et s'il supprime bien le fichier à la source, "il ne va pas dans la poubelle", lol !!!
Private 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40
Sub Command3_Click() Dim FileOperation As SHFILEOPSTRUCT Dim lReturn As Long ' cte_sup = "supfic.txt" ' <<<<<---------------- FileOperation.wFunc = FO_DELETE FileOperation.pFrom = cte_sup FileOperation.fFlags = FOF_ALLOWUNDO lReturn = SHFileOperation(FileOperation) End Sub
Avez-vous une idée d'où qu'est l'erreur, et j'en profite pour demander s'il n'y aurait pas un truc plus court, du genre: Poubelle = fichier
???
Merci, au revoir et à bientôt. -- ng75 arobase noos.fr ------------------------------------------------------------ LE TROLL, éleveur de trolls depuis César, qui disait : Avec une hache, celui qui tient le manche a toujours raison !
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre
peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une
demande de suppression, ni d'affichage d'erreur en cas de fichier "non
trouvé", comment faire, est-il possible de gérer les erreurs des API,
comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir
d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit
Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled)
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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
'
Sub Command3_Click()
Dim sup As SHFILEOPSTRUCT
Dim nom_cte As String
Dim rep
nom_cte = "sup.txt"
sup.wFunc = FO_DELETE
sup.pFrom = App.Path & "" & nom_cte
sup.fFlags = FOF_ALLOWUNDO
rep = SHFileOperation(sup)
End Sub
----------------
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
O08JMib4EHA.524@TK2MSFTNGP09.phx.gbl...
Bonjour à tout,
Comment balancer un fichier à la poubelle ???
J'ai recopié du code sans y comprendre grand chose, que voici, et s'il
supprime bien le fichier à la source, "il ne va pas dans la poubelle", lol
!!!
Private 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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Sub Command3_Click()
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
'
cte_sup = "supfic.txt" ' <<<<<----------------
FileOperation.wFunc = FO_DELETE
FileOperation.pFrom = cte_sup
FileOperation.fFlags = FOF_ALLOWUNDO
lReturn = SHFileOperation(FileOperation)
End Sub
Avez-vous une idée d'où qu'est l'erreur, et j'en profite pour demander
s'il n'y aurait pas un truc plus court, du genre:
Poubelle = fichier
???
Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
"LE TROLL" <le a écrit dans le message de news:
Bonjour à tout,
Comment balancer un fichier à la poubelle ???
J'ai recopié du code sans y comprendre grand chose, que voici, et s'il supprime bien le fichier à la source, "il ne va pas dans la poubelle", lol !!!
Private 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40
Sub Command3_Click() Dim FileOperation As SHFILEOPSTRUCT Dim lReturn As Long ' cte_sup = "supfic.txt" ' <<<<<---------------- FileOperation.wFunc = FO_DELETE FileOperation.pFrom = cte_sup FileOperation.fFlags = FOF_ALLOWUNDO lReturn = SHFileOperation(FileOperation) End Sub
Avez-vous une idée d'où qu'est l'erreur, et j'en profite pour demander s'il n'y aurait pas un truc plus court, du genre: Poubelle = fichier
???
Merci, au revoir et à bientôt. -- ng75 arobase noos.fr ------------------------------------------------------------ LE TROLL, éleveur de trolls depuis César, qui disait : Avec une hache, celui qui tient le manche a toujours raison !
Alain CROS
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le a écrit dans le message de news:
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news: eQ4er2d4EHA.3092@TK2MSFTNGP10.phx.gbl...
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre
peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une
demande de suppression, ni d'affichage d'erreur en cas de fichier "non
trouvé", comment faire, est-il possible de gérer les erreurs des API,
comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir
d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit
Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled)
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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
'
Sub Command3_Click()
Dim sup As SHFILEOPSTRUCT
Dim nom_cte As String
Dim rep
nom_cte = "sup.txt"
sup.wFunc = FO_DELETE
sup.pFrom = App.Path & "" & nom_cte
sup.fFlags = FOF_ALLOWUNDO
rep = SHFileOperation(sup)
End Sub
----------------
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
LE TROLL
Merci :o) ---
"Alain CROS" a écrit dans le message de news:
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le a écrit dans le message de news:
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
Merci :o)
---
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
O2pSALf4EHA.3388@TK2MSFTNGP15.phx.gbl...
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
eQ4er2d4EHA.3092@TK2MSFTNGP10.phx.gbl...
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre
peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une
demande de suppression, ni d'affichage d'erreur en cas de fichier "non
trouvé", comment faire, est-il possible de gérer les erreurs des API,
comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir
d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit
Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled)
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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
'
Sub Command3_Click()
Dim sup As SHFILEOPSTRUCT
Dim nom_cte As String
Dim rep
nom_cte = "sup.txt"
sup.wFunc = FO_DELETE
sup.pFrom = App.Path & "" & nom_cte
sup.fFlags = FOF_ALLOWUNDO
rep = SHFileOperation(sup)
End Sub
----------------
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
Aski
Bonjour,
Tu trouveras tout ce que tu désires sur la gestion des fichiers par les API dans : *Manipulating Files with the SHFileOperation Function in Visual Basic 4.0* des "Technical Articles" de la documentation MSDN fournie avec VB 6.
Aski
"LE TROLL" <le a écrit dans le message de news:
Merci :o) ---
"Alain CROS" a écrit dans le message de news:
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le a écrit dans le message de news:
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
Bonjour,
Tu trouveras tout ce que tu désires sur la gestion des fichiers par les API
dans :
*Manipulating Files with the SHFileOperation Function in Visual Basic 4.0*
des "Technical Articles" de la documentation MSDN fournie avec VB 6.
Aski
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
ONRktGg4EHA.3416@TK2MSFTNGP09.phx.gbl...
Merci :o)
---
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
O2pSALf4EHA.3388@TK2MSFTNGP15.phx.gbl...
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le troll@paris.fr> a écrit dans le message de news:
eQ4er2d4EHA.3092@TK2MSFTNGP10.phx.gbl...
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre
peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une
demande de suppression, ni d'affichage d'erreur en cas de fichier "non
trouvé", comment faire, est-il possible de gérer les erreurs des API,
comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas
avoir
d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit
Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled)
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
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
'
Sub Command3_Click()
Dim sup As SHFILEOPSTRUCT
Dim nom_cte As String
Dim rep
nom_cte = "sup.txt"
sup.wFunc = FO_DELETE
sup.pFrom = App.Path & "" & nom_cte
sup.fFlags = FOF_ALLOWUNDO
rep = SHFileOperation(sup)
End Sub
----------------
Tu trouveras tout ce que tu désires sur la gestion des fichiers par les API dans : *Manipulating Files with the SHFileOperation Function in Visual Basic 4.0* des "Technical Articles" de la documentation MSDN fournie avec VB 6.
Aski
"LE TROLL" <le a écrit dans le message de news:
Merci :o) ---
"Alain CROS" a écrit dans le message de news:
Bonjour
Rajouter
Private Const FOF_SILENT As Long = &H4
sup.fFlags = FOF_SILENT & FOF_ALLOWUNDO
Alain CROS
"LE TROLL" <le a écrit dans le message de news:
Ah, j'ai trouvé, c'était un problème de chemin, mais par contre peut-on gérer les constantes API, car je ne voudrais pas qu'il y ait une demande de suppression, ni d'affichage d'erreur en cas de fichier "non trouvé", comment faire, est-il possible de gérer les erreurs des API, comment ???
Voici ce qui marche, sauf que comme sus-cité, j'aimerais ne pas avoir d'erreur ni de demande de confirmation d'envoi à la poubelle ???
Option Explicit Private Type SHFILEOPSTRUCT ' fichir->poubelle (recycled) 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 Private Declare Function SHFileOperation Lib "shell32.dll" _ Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_DELETE = &H3 Private Const FOF_ALLOWUNDO = &H40 ' Sub Command3_Click() Dim sup As SHFILEOPSTRUCT Dim nom_cte As String Dim rep nom_cte = "sup.txt" sup.wFunc = FO_DELETE sup.pFrom = App.Path & "" & nom_cte sup.fFlags = FOF_ALLOWUNDO rep = SHFileOperation(sup) End Sub ----------------
