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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS  (Leído 5,023 veces)
Xephiro

Desconectado Desconectado

Mensajes: 239



Ver Perfil WWW
ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« en: 24 Diciembre 2006, 18:04 pm »

Hola, tengo la siguiente pregunta en VB6, quiero abrir archivos de cuarlquier extensión por medio de un programa hecho con VB..

Hay alguna manera ? ... porque para lo que son ejecutables se puede usar shell "Direccion del archivo" y listo, pero en el caso de un archivo .txt o .doc o .avi para que se abra que puedo hacer ??

porque usando shell "cmd /c " & archivo habre, pero si la direccion o el nombre del archivo contiene un espcio no lo hace porque el cmd no acepta los espacios... :S que puedo hacer¿?¿?¿ :huh: :huh: :huh: :huh:


En línea

DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« Respuesta #1 en: 24 Diciembre 2006, 18:43 pm »

proba con el API: ShellExecute

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

· hwnd
Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.

· lpOperation
Pointer to a null-terminated string that specifies the operation to perform. The following operation strings are valid:
“open”
 The function opens the file specified by lpFile. The file can be an executable file or a document file. The file can be a folder to open.
“print”
 The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if “open” had been specified.
“explore”
 The function explores the folder specified by lpFile.

The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.

· lpFile
Pointer to a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file.

· lpParameters
If lpFile specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies parameters to be passed to the application.
If lpFile specifies a document file, lpParameters should be NULL.

· lpDirectory
Pointer to a null-terminated string that specifies the default directory.

· nShowCmd
If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values:
SW_HIDE
 Hides the window and activates another window.
SW_MAXIMIZE
 Maximizes the specified window.
SW_MINIMIZE
 Minimizes the specified window and activates the next top-level window in the Z order.
SW_RESTORE
 Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
 Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
 Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
 Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
 Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
 Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
 Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
 Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
 Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

If lpFile specifies a document file, nShowCmd should be zero.

salu2


En línea

VirucKingX


Desconectado Desconectado

Mensajes: 541


VirucKingX


Ver Perfil
Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« Respuesta #2 en: 24 Diciembre 2006, 18:54 pm »

a mi me funciona bien :

Citar
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

Private Sub Command1_Click()
 Dim xD As Long
 xD = ShellExecute(Me.hwnd, "Open", "C:\1.txt", "", "", 1)
End Sub

Bye
En línea



Bye
DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« Respuesta #3 en: 24 Diciembre 2006, 19:00 pm »

aca dejo otra:

Código:
'En el modulo
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

Public Sub Ejecutar_Archivo(strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "", strProgram, "", "", SW_SHOWNORMAL)
If lRet <= 32 Then
MsgBox "Error ejecutando el Archivo"
End If
End Sub

Código:
'En el Form
Ejecutar_Archivo ("Ruta de Archivo")

salu2 y suerte
En línea

Xephiro

Desconectado Desconectado

Mensajes: 239



Ver Perfil WWW
Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« Respuesta #4 en: 24 Diciembre 2006, 19:25 pm »

Muchas gracias, me sirbieron de mucho, y ya lo solucione con esos aporte ...
En línea

DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS
« Respuesta #5 en: 24 Diciembre 2006, 19:39 pm »

ok,
impekable,
me alegro que te alla servido

chau
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ABrir cualquier archivo desde Java
Java
mapers 7 22,997 Último mensaje 3 Noviembre 2013, 14:55 pm
por Mitsu
como abrir un archivo tipo archivo ??
Dudas Generales
claros10 2 17,201 Último mensaje 3 Septiembre 2011, 04:40 am
por claros10
Cámbiale el formato a cualquier tipo de archivo desde la web con Konwerter
Noticias
wolfbcn 0 1,619 Último mensaje 14 Febrero 2015, 13:54 pm
por wolfbcn
Como imprimir cualquier tipo de archivo en VB.NET
.NET (C#, VB.NET, ASP)
bybaal 3 10,840 Último mensaje 9 Enero 2016, 05:00 am
por Eleкtro
¿Habrá más virus al poder enviar cualquier tipo de archivo por WhatsApp?
Noticias
wolfbcn 0 1,611 Último mensaje 17 Julio 2017, 21:29 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines