Visual Basic - usar API (Eliminando..)?

Life is soft - evento anual de software empresarial
 
Vista:

usar API (Eliminando..)?

Publicado por van (6 intervenciones) el 03/04/2003 04:36:32
quiero saber como hago para usar esa ventana que aparece informando cuando estas copiando( Copiando...) o mandas a la papelera de reciclaje unos archivo ( Eliminanado...), y que pasan los papelitos de que estas copiando o eliminando
Creo que es una Api de windows, pero no se cual es ni como se usa.

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:usar API (Eliminando..)?

Publicado por Pere (150 intervenciones) el 03/04/2003 23:17:21
Ahí va:

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

Veremos ahora la función que permite borrar y enviar a la papelera :

Sub EnviaPapelera(ByVal Fichero As String)
Dim SHFileOp As SHFILEOPSTRUCT
Dim Res As Long
With SHFileOp
.wFunc = FO_DELETE
.pFrom = Fichero
.fFlags = FOF_ALLOWUNDO
End With
Res = SHFileOperation(SHFileOp)
End Sub

Saludos.

Pere
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias

Publicado por vange (6 intervenciones) el 03/04/2003 23:33:23
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar