Ricardo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 12/10/2005 13:18 hs
Gente tem como fazer com que o VB abra qualquer arquivo? por exemplo eum text box eu digito "C:Arquivos de programasOutlook Expressmsimn.exe" ai ele vai executar o outlook só que eu quero mais tem como fazer a mesma coisa só que com um .doc para q o word abra o .doc? mas não são só essas arquivos seriam fotos,audios,exes,emfim quase todos... |
|
|
|
|
|
Susana
|
ANGRA DOS REIS
RJ - BRASIL
|
|
Postada em 12/10/2005 17:27 hs
Olá Ricardo, Com este comando você abre o respectivo aplicativo de qualquer arquivo, como você exemplificou, se for .doc, abre o Word, se for .xls o abre o excel, se for .txt o NotePad ..., enfim, abre o programa em que o Windows está configurado para abrir o determinado arquivo. dim RetVal as long Retval = ShellExecute(NomedoForm.hwnd, "open", "C:caminho+nomedoarquivo", "", "", SW_MAXIMIZE) Susana |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/10/2005 08:20 hs
Susana, ShellExecute é uma API e não um comando, em algum lugar do seu programa vc tem ela definida. |
|
|
|
Susana
|
ANGRA DOS REIS
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/10/2005 12:39 hs
Perdoem, esqueci da declaração (em um módulo): Public 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
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Desculpem pela sugestão incompleta. Susana Oi Kerplunk, sei que é uma API. |
|
|
|
|
