2 réponses
Si tu veux 'passer' pas la corbeille, utilise :
Public 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
'API utilisée pour jeter des fichiers à la corbeille
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'Constantes nécessaires
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Puis dans le code :
Dim FileOperation As SHFILEOPSTRUCT
With FileOperation
.wFunc = FO_DELETE
.pFrom = "Nom du repertoire"
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(FileOperation)
Pour effacer :
- Fichier : kill "nom fichier"
- Repertoire : rmdir "nom repertoire"
a+
Public 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
'API utilisée pour jeter des fichiers à la corbeille
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'Constantes nécessaires
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Puis dans le code :
Dim FileOperation As SHFILEOPSTRUCT
With FileOperation
.wFunc = FO_DELETE
.pFrom = "Nom du repertoire"
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(FileOperation)
Pour effacer :
- Fichier : kill "nom fichier"
- Repertoire : rmdir "nom repertoire"
a+
