ejecutar archivo desde VB

Hola.

Es un problema díficil porque deberías saber de antemano
todos los tipos distintos de archivos que podrías
encontrar para controlarlos en el código, pero te expongo
lo siguiente por si te es útil.

Añade la Referencia Microsoft Scripting Runtime.

Dim Fich, FilSys As New FileSystemObject

Set Fich = FilSys.GetFile(ruta + nombre fichero)

Con Fich.Type te devuelve el tipo de archivo en formato
texto, que puede ser Archivo de texto o Documento de
Microsoft Word,etc.

Después dependiendo del tipo ejecutar el programa:

select case Fich.Type
case "Archivo de texto"
Importante incluir las comillas simples para
evitar errores cuando haya espacios en blanco en la ruta o
en el nombre del fichero
Shell "notepad 'ruta + nombre fichero'"

case "Documento de Microsoft Word"
Shell "WINWORD.EXE 'ruta + nombre fichero'"
etc.

end select

Hola a todos:
Les agradecería si me pudieran ayudar en lo siguiente:
1.- Desde V.Basic tengo que ejecutar un archivo
cualquiera. Solo tengo el camino y el nombre, pero puede
ser de diferentes tipos (puede ser de Word o de Autocad,
de lo que sea). Necesito ejecutarlo con la aplicación que
le corresponda.
2.- El otro problema es saber qué tipo de archivo es el
del punto 1, según la descripción que tenga de él Windows.
Muchas gracias de antemano. Saludos,
Tania.
.

Puedes usar la funcion de la API ShellExecute:





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 Form_Load()
ShellExecute(Me.hwnd, "OPEN", "C:\midoc.doc", vbNullString,
vbNullString, 1)
End Sub

Hola Tania, te envio el codigo para ejecutar un archivo, esto es lo mismo
que hacer doble click sobre el archivo en el explorador.

En un modulo bas

Public Declare Function ShellExecute Lib "Shell32.Dll" Alias
"ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile
As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal
nShowCmd As Long) As Long


Dim X As Long
X = ShellExecute(Screen.ActiveForm.hWnd, "open", "c:\Mis
documentos\Miarchivo.Doc", vbNullString, vbNullString, 1)


Un saludo, Víctor Koch.


"Tania" escribió en el mensaje
news:052801c34f65$7bde6710$
Hola a todos:
Les agradecería si me pudieran ayudar en lo siguiente:
1.- Desde V.Basic tengo que ejecutar un archivo
cualquiera. Solo tengo el camino y el nombre, pero puede
ser de diferentes tipos (puede ser de Word o de Autocad,
de lo que sea). Necesito ejecutarlo con la aplicación que
le corresponda.
2.- El otro problema es saber qué tipo de archivo es el
del punto 1, según la descripción que tenga de él Windows.
Muchas gracias de antemano. Saludos,
Tania.