Abrir la ruta del textbox con programa asociado
Tengo una base de datos (access) y guardo la ruta de un archivo en ella, utilizo un flexgrid y los cuadros te texto al momento de dar click sobre el flexgrid los cuadros de textos se llenan con la información que tengo almacenada en la base de datos, la cuestión es que cuando quiero abrir el contenido del textbox que contiene la ruta no la puedo abrir, quiero que me abra la ruta que contiene el textbox con el programa asociado, utilicé la siguiente sentencia para abrir pero no hace nada:
ShellExecute hwnd, "open", filepath, vbNullString, vbNullString, 1
para buscar el achivo utilizo esta:
Dim file_name As String
CommonDialog1.CancelError = True
CommonDialog1.Flags = _
cdlOFNFileMustExist Or _
cdlOFNHideReadOnly Or _
cdlOFNExplorer Or _
cdlOFNLongNames
On Error Resume Next
CommonDialog1.ShowOpen
If Err.Number = cdlCancel Then
' The user canceled.
Exit Sub
ElseIf Err.Number <> 0 Then
' Unknown error.
MsgBox "Error " & Format$(Err.Number) & _
" selecting file." & vbCrLf & _
Err.Description
Exit Sub
End If
On Error GoTo 0
' Do something with the file.
file_name = CommonDialog1.FileName
CommonDialog1.InitDir = Left$(file_name, _
Len(file_name) - _
Len(CommonDialog1.FileTitle) - 1)
txtarchivo.Text = file_name & vbCrLf & txtarchivo.Text
ShellExecute hwnd, "open", filepath, vbNullString, vbNullString, 1
para buscar el achivo utilizo esta:
Dim file_name As String
CommonDialog1.CancelError = True
CommonDialog1.Flags = _
cdlOFNFileMustExist Or _
cdlOFNHideReadOnly Or _
cdlOFNExplorer Or _
cdlOFNLongNames
On Error Resume Next
CommonDialog1.ShowOpen
If Err.Number = cdlCancel Then
' The user canceled.
Exit Sub
ElseIf Err.Number <> 0 Then
' Unknown error.
MsgBox "Error " & Format$(Err.Number) & _
" selecting file." & vbCrLf & _
Err.Description
Exit Sub
End If
On Error GoTo 0
' Do something with the file.
file_name = CommonDialog1.FileName
CommonDialog1.InitDir = Left$(file_name, _
Len(file_name) - _
Len(CommonDialog1.FileTitle) - 1)
txtarchivo.Text = file_name & vbCrLf & txtarchivo.Text
1 Respuesta
Respuesta de Roberto Alvarado
¿Cómo? No entendí bien se supone en la sentencia
ShellExecute hwnd, "open", filepath, vbNullString, vbNullString, 1
filepath así se llama el textbox que contiene la ruta, se supone que ahi va todo desde la ruta hasta el nombre del archivo, o creo que no formulé bien mi pregunta
ShellExecute hwnd, "open", filepath, vbNullString, vbNullString, 1
filepath así se llama el textbox que contiene la ruta, se supone que ahi va todo desde la ruta hasta el nombre del archivo, o creo que no formulé bien mi pregunta
Si en filepath va tanto la ruta como el nombre del archivo debería hacerlo, ¿qué tipo de archivo es? Estas seguro que el tipo de archivo tiene en windows su asociación, por ejemplo cuando se instala office, los archivos .doc y .docx se asocian a word etc.
¿Tu archivo tiene asociada la aplicación que lo debe abrir?
¿Tu archivo tiene asociada la aplicación que lo debe abrir?
Precisamente eso es lo que quiero, que al determinar la extensión sepa que programa tiene que abrir, si su extensión es .doc entonces tiene que abrir word, si tiene .pdf tiene que abrir acrobat y así sucesivamente, y en cuanto al filepath esa es una variable que puse la cual contiene la ruta. Explico:
Tengo un textbox que se llama filepath, cuando yo digo que voy a insertar una ruta para que se almacene en la base de datos me abre el cuadro de dialogo donde busco el archivo, una ves encontrado almacena la ruta en el textbox que se llama filepath y la garda en un campo que se llama archivo, y así almacena por números de rutas, cuando quiera consultar por clave, me abrirá los datos de la tabla junto con la ruta guardada del textbox (filepath), entonces al querer visualizar el archivo le voy a dar abrir y me tiene que abrir la ruta que está en el textbox. Según yo para abrir esa ruta la tengo así:
If Button.Index = 7 Then
If filepath.Text = "" Then
MsgBox " Selecciona un Archivo"
Else
ShellExecute hwnd, "open", filepath.Text, vbNullString, vbNullString, 1
End If
End If
Pero no lo abre, en filepath tiene la ruta completa, carpeta en la que se encuentra, unidad, nombre del archivo, extensión, todo.
Espero que ahora si me haya explicado mejor
Tengo un textbox que se llama filepath, cuando yo digo que voy a insertar una ruta para que se almacene en la base de datos me abre el cuadro de dialogo donde busco el archivo, una ves encontrado almacena la ruta en el textbox que se llama filepath y la garda en un campo que se llama archivo, y así almacena por números de rutas, cuando quiera consultar por clave, me abrirá los datos de la tabla junto con la ruta guardada del textbox (filepath), entonces al querer visualizar el archivo le voy a dar abrir y me tiene que abrir la ruta que está en el textbox. Según yo para abrir esa ruta la tengo así:
If Button.Index = 7 Then
If filepath.Text = "" Then
MsgBox " Selecciona un Archivo"
Else
ShellExecute hwnd, "open", filepath.Text, vbNullString, vbNullString, 1
End If
End If
Pero no lo abre, en filepath tiene la ruta completa, carpeta en la que se encuentra, unidad, nombre del archivo, extensión, todo.
Espero que ahora si me haya explicado mejor
Pregunta tonta, ¿si abres un .doc esta instaaldo en el pC Word? ¿O si intentas abrir un .pdf esta instalado en el pc acrobat reader?
Tienes esto en tiu programa que asumo es VB6:
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
Tienes esto en tiu programa que asumo es VB6:
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
Si están instalados, y si, si tengo la función declarada, y si es vb6.
Si haces un paso a paso del programa, ¿le llega el valor correcto de la ruta y el nombre del archivo en el parámetro a la función?
¿No da ningún error? ¿Simplemente no lo hace?
¿No da ningún error? ¿Simplemente no lo hace?
