ABRIR UM ARQUIVO ?
Pegar um arquivo listado dentro do listbox e abri-lo tem como?
Obrigado
Obrigado
São vários tipos de arquivos pois é tudo que esta no diretorio, precisava ser igual ao executar que tem no windows vc sabe qual a api ?
Obrigado
Obrigado
ASSIM DEU CERTO :
Function ShellAndWait(FileName As String)
Dim objScript
On Error Goto ERR_OpenForEdit
Set objScript = CreateObject([Ô]WScript.Shell[Ô])
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
EXIT_OpenForEdit:
Exit Function
ERR_OpenForEdit:
MsgBox Err.Description
Goto EXIT_OpenForEdit
End Function
MAS OBRIGADO
Function ShellAndWait(FileName As String)
Dim objScript
On Error Goto ERR_OpenForEdit
Set objScript = CreateObject([Ô]WScript.Shell[Ô])
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
EXIT_OpenForEdit:
Exit Function
ERR_OpenForEdit:
MsgBox Err.Description
Goto EXIT_OpenForEdit
End Function
MAS OBRIGADO
Tópico encerrado , respostas não são mais permitidas