Enviar archivos a la Papelera

Hola, Maria Agustina.

Puedes utilizar la función API "SHFileOperation" con FO_DELETE y el flag
FOF_ALLOWUNDO. También puedes añadir el flag FOF_NOCONFIRMATION para que no
aparezca el diálogo del sistema que pide la confirmación.

Un saludo
Javier Muñoz


"Maria Agustina Paz" escribió:

con las clases de System.IO.File y System.IO.Directory puedo borrar
permanentemente archivos y directorios del disco.
En vez de borrarlos permanentemente, como hago para mandarlos a la Papelera
de Reciclaje, de la misma forma que ocurre cuando elimino archivos con el
Explorador de Windows?

gracias

Para que no tengas que buscar:

Private Structure SHFILEOPSTRUCT
Dim hWnd As Integer
Dim wFunc As Integer
Dim pFrom As String
Dim pTo As String
Dim fFlags As Short
Dim fAnyOperationsAborted As Boolean
Dim hNameMappings As Integer
Dim lpszProgressTitle As String
End Structure
Private Declare Function SHFileOperation Lib "shell32.dll" Alias
"SHFileOperationA"(ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
Private Const FO_DELETE As Short = &H3s
Private Const FOF_ALLOWUNDO As Short = &H40s
Private Const FOF_NOCONFIRMATION As Short = &H10s
Public Function BorrarFichero(NombreFichero As String) As Integer
Dim SHOpFichero As SHFILEOPSTRUCT
NombreFichero &= vbNullChar
With SHOpFichero
.lpszProgressTitle = ""
.pTo = ""
.wFunc = FO_DELETE
.pFrom = NombreFichero
.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
End With
BorrarFichero = SHFileOperation(SHOpFichero)
End Function
Javier Muñoz


"Javier (Clevertec)" escribió:

Hola, Maria Agustina.

Puedes utilizar la función API "SHFileOperation" con FO_DELETE y el flag
FOF_ALLOWUNDO. También puedes añadir el flag FOF_NOCONFIRMATION para que no
aparezca el diálogo del sistema que pide la confirmación.

Un saludo
Javier Muñoz


"Maria Agustina Paz" escribió:

> con las clases de System.IO.File y System.IO.Directory puedo borrar
> permanentemente archivos y directorios del disco.
> En vez de borrarlos permanentemente, como hago para mandarlos a la Papelera
> de Reciclaje, de la misma forma que ocurre cuando elimino archivos con el
> Explorador de Windows?
>
> gracias