send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Ejecutar Cualquier tipo de Archivos

  • 1 Respuestas
  • 1512 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 11:45:08 am »
Esta es una función que nos permite ejecutar Cualquier Archivo siempre y cuando existe un programa para abrir dicho archivo.
Ademas ejecuta los .exe y abre directorios o unidades.
Ejemplo
Ponemos Direccion="D:/" ABRIRA UNA BENTANA con el contenido de D
Ponemos Direccion="D:/PEPE" ABRIRA UNA BENTANA con el contenido de pepe
Ponemos Direccion="D:/PEPE/doci.doc" ABRIRA doci.doc sin existe un programa para abrirlo como es elWord.

Escriba este codigo en el formulario en General:

Public Sub EjecutarArchivos(Direccion As String)
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Direccion), 1)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error de Ejecución"
End Sub

para ejecutar solo tenemos que poner
La función
ejemplo
EjecutarArchivos "c:\nota.txt"


Desconectado _katze_

  • *
  • Underc0der
  • Mensajes: 37
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #1 en: Julio 26, 2010, 12:50:40 pm »
otra variante tmb se podria hacerlo de distintas formas ! pero esta es usando una api
Código: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'declaramos esta api !
'por ejemplo en un boton
Private Sub Command1_Click()
Dim archivo As String
archivo = Environ$("windir") & "\" & "NOTEPAD" & ".exe"
Call ShellExecute(Me.hwnd, "Open", archivo, "", "", 1)

End Sub
y por si keremos autoabrirnos hacemos asi !
dim autoabrir as string
autoabrir = app.path &"\"& app.EXENAME & ".exe"
Call ShellExecute(Me.hwnd, "Open", autoabrir, "", "", 1)



« Última modificación: Julio 26, 2010, 12:55:00 pm por _katze_ »

 

¿Te gustó el post? COMPARTILO!



Abrir la caja de dialogo de Abrir con selección multiple de archivos(API)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1796
Último mensaje Julio 26, 2010, 12:17:09 pm
por ANTRAX
Buscar archivos en forma avanzada usando funciones API

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1472
Último mensaje Julio 28, 2010, 12:40:43 am
por Ignaro mayor de BsAs
Cómo descargar archivos de Internet

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1694
Último mensaje Julio 27, 2010, 12:24:46 pm
por _katze_
Borrar archivos temporales, cookies, etc

Iniciado por ANTRAX

Respuestas: 2
Vistas: 4146
Último mensaje Noviembre 27, 2011, 01:59:39 am
por Bic
Modulo Tratamiento de archivos

Iniciado por alexander1712

Respuestas: 0
Vistas: 2718
Último mensaje Enero 26, 2013, 12:56:47 pm
por alexander1712