como abrir ficheros??????
FELIZ AÑO A TODOS!!!!!!!1
mi problema es que necesito abrir ficheros de word,.pdf, prsentacion en power point .....y no tengo ni idea de como hacerlo, he sacadoalgo para los .txt pero para los demas no me funciona que hago????
alguien puede ayudarme????
GRACIAS!!!!!!
mi problema es que necesito abrir ficheros de word,.pdf, prsentacion en power point .....y no tengo ni idea de como hacerlo, he sacadoalgo para los .txt pero para los demas no me funciona que hago????
alguien puede ayudarme????
GRACIAS!!!!!!
prueba con esto
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()
Dim Error As Integer
Error = ShellExecute(Me.hwnd, "Open", App.Path & "\ngc.doc", "", "", 3)
End Sub
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()
Dim Error As Integer
Error = ShellExecute(Me.hwnd, "Open", App.Path & "\ngc.doc", "", "", 3)
End Sub
