comment
IRC Chat
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
  • 1608 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    81.67%
  • Reputación 31
  • 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: No tienes permisos para ver links. Registrate o Entra con tu cuenta
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: 1917
Ú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: 1589
Ú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: 1773
Último mensaje Julio 27, 2010, 12:24:46 pm
por _katze_
Borrar archivos temporales, cookies, etc

Iniciado por ANTRAX

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

Iniciado por alexander1712

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