RE:Como abrir un archivo desde VB
PRIMERO DECLARAS
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Apis para buscar ficheros
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFilename As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Const INVALID_HANDLE_VALUE = -1
Private Const MAX_PATH = 260
' UDT para FindFirstFile
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
LUEGO :
Ejemplo de como seria en un boton cmdacercade:
Private Sub CmdAcercade_Click()
Call ShellAbout(Me.hwnd, "INSTALADOR", "Copyright 2009, Tecnologia", Me.Icon)
End Sub
y listo...eso es todo
Espero te sirva
saludos
Rolando Lau