| 
	
		|  Autor | Tema: ABRIR CUALQUIER TIPO DE ARCHIVO ARCHIVOS  (Leído 5,615 veces) |  
	| 
			| 
					
						| Xephiro | 
 
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¿?¿?¿        
 
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| DrakoX 
								
								 Desconectado 
								Mensajes: 191
								
								   | 
 
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 
								Mensajes: 541
								
								 
								VirucKingX
								
								
								
								
								
								   | 
 
a mi me funciona bien : 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 
								Mensajes: 191
								
								   | 
 
aca dejo otra: 'En el moduloDeclare 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
'En el FormEjecutar_Archivo ("Ruta de Archivo")
salu2 y suerte |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| Xephiro | 
 
Muchas gracias, me sirbieron de mucho, y ya lo solucione con esos aporte ... |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  | 
			| 
					
						| DrakoX 
								
								 Desconectado 
								Mensajes: 191
								
								   | 
 
ok,impekable,
 me alegro que te alla servido
 
 chau
 |  
						| 
								|  |  
								|  |  En línea | 
 
 |  |  |  |  |  
 
	
 
 
				
					
						| Mensajes similares |  
						|  | Asunto | Iniciado por | Respuestas | Vistas | Último mensaje |  
						|   |   | ABrir cualquier archivo desde Java Java
 | mapers | 7 | 23,689 |  3 Noviembre 2013, 14:55 pm por Mitsu
 |  
						|   |   | como abrir un archivo tipo archivo ?? Dudas Generales
 | claros10 | 2 | 18,664 |  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,901 |  14 Febrero 2015, 13:54 pm por wolfbcn
 |  
						|   |   | Como imprimir cualquier tipo de archivo en VB.NET .NET (C#, VB.NET, ASP)
 | bybaal | 3 | 12,119 |  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 | 2,279 |  17 Julio 2017, 21:29 pm por wolfbcn
 |    |