elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como enviar un archivo a la papelera de reciclaje
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como enviar un archivo a la papelera de reciclaje  (Leído 12,445 veces)
nhaalclkiemr


Desconectado Desconectado

Mensajes: 1.678


Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92


Ver Perfil WWW
Como enviar un archivo a la papelera de reciclaje
« en: 2 Agosto 2007, 16:23 pm »

Pues eso, como puedo enviar un archivo a la papelera, yo intente mover el archivo a una de las subcarpetas de "C:\RECYCLED" pero despues no aparece ni en la papelera ni llendo a esa carpeta...la unica manera de ver el archivo es desde la consola con el comando "dir"...weno, a lo k iba, ¿Como enviar un archivo a la papelera?

Saludos ;)


En línea

StasFodidoCrypter 1.0 - 100% (old)
StasFodidoCrypter 2.0 - 85% (deserted)
Fire AV/FW-Killer - 97% (deserted)
R-WlanXDecrypter 1.0- 100%
LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #1 en: 2 Agosto 2007, 17:49 pm »

hola te paso un ejemplo

En un modulo
Código:
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long

Private Enum FOF_Flags
        FOF_MULTIDESTFILES = &H1
        FOF_CONFIRMMOUSE = &H2
        FOF_SILENT = &H4
        FOF_RENAMEONCOLLISION = &H8
        FOF_NOCONFIRMATION = &H10
        FOF_WANTMAPPINGHANDLE = &H20
        FOF_ALLOWUNDO = &H40
        FOF_FILESONLY = &H80
        FOF_SIMPLEPROGRESS = &H100
        FOF_NOCONFIRMMKDIR = &H200
        FOF_NOERRORUI = &H400
        FOF_NOCOPYSECURITYATTRIBS = &H800
        FOF_NORECURSION = &H1000
        FOF_NO_CONNECTED_ELEMENTS = &H2000
        FOF_WANTNUKEWARNING = &H4000
End Enum

Private Enum FO_Functions
        FO_MOVE = &H1
        FO_COPY = &H2
        FO_DELETE = &H3
        FO_RENAME = &H4
End Enum

Private Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As FO_Functions
        pFrom As String
        pTo As String
        fFlags As FOF_Flags
        fAnyOperationsAborted As Long
        hNameMappings As Long
End Type

Public Function TransferFileToRecycleBin(Filename As String, Optional Confirm As Boolean = False, Optional Silent As Boolean = True) As Boolean
    Dim FileOp As SHFILEOPSTRUCT
   
    With FileOp
        .wFunc = FO_DELETE
        .pFrom = Filename
        .fFlags = True

        If Not Confirm Then .fFlags = .fFlags + FOF_NOCONFIRMATION
        If Silent Then .fFlags = .fFlags + FOF_SILENT
    End With
    TransferFileToRecycleBin = SHFileOperation(FileOp)
End Function


y para provar en un formulario con un boton
Código:
Private Sub Command1_Click()
TransferFileToRecycleBin "C:\prueva.txt", True, False
End Sub

fijate si le modificas el ultimo parametro a true vas aver el formulario de progreso


En línea

under!!!

Desconectado Desconectado

Mensajes: 44


Ver Perfil
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #2 en: 2 Agosto 2007, 21:02 pm »

Es necesario a la papelera de reciclaje por que lo puedes eliminar definitivamente con
Código
  1. Kill "C:\Prueba.txt"
  2.  
Pero esto te elimina el archivo de forma definitiva
En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #3 en: 2 Agosto 2007, 21:07 pm »

Si no te funciona este metodo C:\RECYCLED es porque adentro de esa carpeta si esta la papelera de reciclaje, ahorita no te digo porque ando en un ciber,....
En línea

CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #4 en: 2 Agosto 2007, 21:35 pm »

hasta donde se la carpeta RECYCLED es creada por el windows cuando hay varios perfiles creados, es decir esta carpeta contiene los documentos eliminados de todos los usuarios que estan registrados, si checas dentro de esta carpeta tendras otras con nombres como "S-1-5-21-2631635193-2657483262-854572989-500", S-1-5-21-4286428392-2419660090-1300944423-1109", .... y si entras a esas carpetas veras  los documentos que casa usuario elimino en su perfil
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
nhaalclkiemr


Desconectado Desconectado

Mensajes: 1.678


Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92


Ver Perfil WWW
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #5 en: 2 Agosto 2007, 22:23 pm »

Ya, como dije ya muevo el archivo a una de las subcarpetas de C:\RECYCLED como puede ser "S-1-5-21-2631635193-2657483262-854572989-500"...pero asi no va...

Tengo k provar aun tu modulo LeandroA...Ya te diré. Y gracias a todos.

Saludos
En línea

StasFodidoCrypter 1.0 - 100% (old)
StasFodidoCrypter 2.0 - 85% (deserted)
Fire AV/FW-Killer - 97% (deserted)
R-WlanXDecrypter 1.0- 100%
CeLaYa


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Re: Como enviar un archivo a la papelera de reciclaje
« Respuesta #6 en: 2 Agosto 2007, 23:09 pm »

probe el código y como que no funciona bien, si pide confirmación, borra el archivo, pero no lo pone en la papelera, creo que podriamos simplificar la funcion asi:


Código:
Public Function TransferFileToRecycleBin(Filename As String) As Boolean
    Dim FileOp As SHFILEOPSTRUCT
   
    With FileOp
        .wFunc = FO_DELETE
        .pFrom = Filename
        .fFlags = FOF_ALLOWUNDO
    End With
    TransferFileToRecycleBin =not( SHFileOperation(FileOp))
    'El not es para que cuando lo borre regrese el valor de TRUE
End Function
En línea

"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Enviar archivo a la Papelera de Reciclaje usando la API
.NET (C#, VB.NET, ASP)
CM2ARY 2 2,103 Último mensaje 17 Noviembre 2016, 13:54 pm
por okik
Cómo poner la Papelera de reciclaje en la barra de tareas en Windows 10
Noticias
wolfbcn 0 922 Último mensaje 28 Febrero 2019, 21:38 pm
por wolfbcn
como recuperar un documento con extension docx eliminado hoty de la papelera de reciclaje « 1 2 ... 6 7 »
Software
Novedades 69 25,380 Último mensaje 15 Diciembre 2022, 23:44 pm
por Novedades
Como desactivar la papelera de la galería en celulares Xiaomi?
Android
Pedro122h 1 18,628 Último mensaje 7 Octubre 2023, 00:30 am
por Danielㅤ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines