Abrir Presentación con VB desde una carpeta

[Rley]

Bueno tengo varias presentaciones .pps
en una carpeta en "C:\Presentaciones"
y quiciera saber como abrirlas desde Vb
con solo dictarlo en un text y diciendole
abrir con un command.
Gracias de antemano.

[David]

Si se trata sólo de mostrar la presentación puedes usar ShellExecute o Shell directamente:

Código vb:

Shell "powerpnt /s ""C:\Carpeta\Presentación.pps"""
 

[Rley]

Iniciado por David el Grande

Si se trata sólo de mostrar la presentación puedes usar ShellExecute o Shell directamente:

Código vb:

Shell "powerpnt /s ""C:\Carpeta\Presentación.pps"""
 

Como puedo subir un archivo adjunto para que lo puedan ver como es que digo?

Disculpeme le explicare tengo un text y un command y lo que quiero es:
escribo en el text presentacion1 y luego doy abrir al command entonces abrira la presentacion de la carpeta antes mencionada, doy ESC borro y luego puedo Digitar Presentacion3 entonces nuevamente doy abrir al command para abrir la presentacion y asi cuantas veces quiera abrir otras presentaciones.
Gracias.

[David]

¿Qué exactamente tratas de hacer? ¿No sólo abrir el archivo?

Nota: No puedes subir archivos adjuntos. Si se tratar de una imagen puedes subirlo a un servidor externo e insertar la imagen aquí. Más información: http://www.forosdelweb.com/f5/como-a...e-foro-566872/

[Rley]

Iniciado por Rley

Bueno tengo varias presentaciones .pps
en una carpeta en "C:\Presentaciones"
y quiciera saber como abrirlas desde Vb
con solo dictarlo en un text y diciendole
abrir con un command.
Gracias de antemano.

Disculpeme le explicare tengo un text y un command y lo que quiero es:
escribo en el text presentacion1 y luego doy abrir al command entonces abrira la presentacion de la carpeta antes mencionada, doy ESC borro y luego puedo Digitar Presentacion3 entonces nuevamente doy abrir al command para abrir la presentacion y asi cuantas veces quiera abrir otras presentaciones.
Gracias.

[David]

En ese caso sólo habría que adaptar el código que te mostré para concatenar el texto escrito en el TextBox ("Ruta..." & Text1.Text)

[Rley]

Iniciado por David el Grande

En ese caso sólo habría que adaptar el código que te mostré para concatenar el texto escrito en el TextBox ("Ruta..." & Text1.Text)

Como lo hago?

[David]

¿Cómo lo intentaste? ¿Qué es exactamente lo que no puedes o no entiendes cómo hacer?

[Rley]

Iniciado por David el Grande

¿Cómo lo intentaste? ¿Qué es exactamente lo que no puedes o no entiendes cómo hacer?

Trato de hacerlo con el siguiente codigo:
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()
Text2.Text = Text2.Text + Text1.Text + ".pps"
ShellExecute Me.hwnd, "Open", "C:\Presentaciones\", "", "", 1
Text2.Text = "C:\Presentaciones\"
End Sub

Pero no me funciona, que puedo hacer?

[David]

Es que en el tercer parámetro debes indicar la ruta completa y el nombre del archivo, tú sólo estás especificando la ruta.

[Rley]

Pero es que si lo indico asi, entonces solo me abriria un solo archivo y lo que quiero es poder abrir todos los que yo pueda digitar en el text

Que puedo hacer?

[David]

Eso ya te expliqué en el mensaje 6. Sólo tienes que concatenar el valor de Text2.Text a la ruta donde están los archivos y pasarlo como parámetro a ShellExecute. O, si en Text2.Text tienes la ruta completa con el nombre del archivo, pasar Text2.Text directamente como tercer parámetro.

[Rley]

Iniciado por David el Grande

Eso ya te expliqué en el mensaje 6. Sólo tienes que concatenar el valor de Text2.Text a la ruta donde están los archivos y pasarlo como parámetro a ShellExecute.

Podrias darme un ejemplo.
muchas gracias por todo

[David]

Código vb:

ShellExecute Me.hwnd, "Open", Text2.Text, "", "", 1
 

Es importante que investigues por ti mismo sobre las respuestas, y que hagas algunas pruebas antes de pedir una aclaración, así con seguridad aprenderás más.

[franko1809]

Tio por que no utilizas el control commong dialog para abrir el archivo que quieras es decir puedes cargar la ruta en un text y luego visualizar ese archivo