Autor Tema: Common Dialog (Leído 2200 veces)

Yuriandy · « **en:** Sábado 10 de Marzo de 2007, 22:10 »

Hola a todos, tengo un problemita con el common dialog, yo quiero abrir los documentos de word que yo quiera, entonces coloco el siguiente código en un botón:

Private Sub Command1_Click()
CommonDialog1.Filter = "Documentos (*.doc)|*.doc"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
End Sub

Posteriormente ejecuto el programa, doy clic en el botón asignado y me abre la pantalla del common dialog para buscar el documento que desee, pero cuando le doy abrir a un documento no me sale nada, se que falta algo y ustedes tienen mi respuesta, les agradecería su colaboración

Si pueden me mandan el código entero de esto, para estudiarlo mejor.

Mollense

Que tal Yuriandy...

El problemas es que en realidad tu código no está tratando de abrir un archivo.

Con CommonDialog simplemente vas a obtener la ruta y el nombre de algún archivo que seleccione el usuario.
Dicha ruta y nombre la obtenés mediante CommonDialog1.FileName después de haber ejecutado CommonDialog1.ShowOpen
Por lo que solamente bastaría abrir el archivo utilizando shellexecute con la ruta y el nombre obtenidos.-

Sobre shellexecute busca en este mismo foro

Yuriandy

Hola amigo, quiero decirte que me cansé de buscar por todas las discusiones y encontré solamente el shellexecute para abrir un archivo en específico ya conocido, pero eso no es lo que yo quiero.
es decir, necesito buscar por todos los directorios de la máquina el documento que quiera el usuario y abrirlo, por favor lo necesito, si puedes preparame el codiguito te lo agradecería, ya que estoy un tanto atrasado con esto. Gracias.

AnioN

Solo debemos introducir el codigo, crear un Boton llamado command1.
modificar la linea 6 con la letra de la unidad de disco duro en la que vamos a realizar la busqueda.
y en la linea 29 modificar AcroRd32.exe por el nombre del archivo que vamos a buscar.

Una vez ejecutado el codigo, se mostrará una alerta con la direccion fisica hacia el archivo.

Código: Text

' El codigo ha sido proporcionado: http://www.tutores.org
Function PathTo(strFile As String) As String
Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = &#34;c:&#092;&#34; & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDir = Left&#036;(strDirs, x - 1)
strDirs = Mid&#036;(strDirs, x + 1)
If Len(Dir&#036;(strDir & strFile)) Then
PathTo = strDir & Dir&#036;(strDir & strFile)
Exit Function
End If
strEntry = Dir&#036;(strDir & &#34;*.*&#34;, vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry &#60;&#62; &#34;.&#34; And strEntry &#60;&#62; &#34;..&#34; Then
  strDirs = strDirs & strDir & strEntry & &#34;&#092;&#34; & vbNullChar
End If
End If
strEntry = Dir&#036;
Loop
Loop
PathTo = &#34;&#34;
End Function
 
Private Sub Command1_Click()
MsgBox PathTo(&#34;AcroRd32.exe&#34;)
End Sub
 
 

mamex · « **Respuesta #4 en:** Lunes 12 de Marzo de 2007, 03:45 »

Que tal, aqui te dejo una solucion y espero te sirva.

Código: Text

 
'Declara la funcion shellexecute
Private Declare Function ShellExecute Lib &#34;shell32.dll&#34; Alias _
    &#34;ShellExecuteA&#34; (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
 
'al presionar un boton busca el archivo
Private Sub Command1_Click()
    Dim archivo As String
    CommonDialog1.ShowOpen
    archivo = CommonDialog1.FileName
    ShellExecute Me.hwnd, &#34;Open&#34;, archivo, &#34;&#34;, &#34;&#34;, 1
End Sub
 
 

Yuriandy · « **Respuesta #5 en:** Lunes 12 de Marzo de 2007, 05:21 »

Muchísimas gracias, ya resolví el problema, se lo agradesco, si en algo puedo ayudar lo haré sin contemplaciones.

SoloCodigo

Autor Tema: Common Dialog (Leído 2200 veces)

Yuriandy

Common Dialog

Mollense

Re: Common Dialog

Yuriandy

Re: Common Dialog

AnioN

Re: Common Dialog

mamex

Re: Common Dialog

Yuriandy

Re: Common Dialog