ABRIR ARQUIVOS.

ERIVELTONVGA 14/02/2010 17:49:16
#334396
OLA A TODOS, ANDEI MEIO SUMIDO MAS AQUI ESTOU.

TENHO UM SISTEMA QUE GRAVA UM CAMINHO ONDE QUE, QUANDO EU CLICO EM VISUALIZAR ELE ABRE O [Ô]VISUALIZADOR DO WINDOWS[Ô]. O QUE EU QUERIA é O SEGUINTE, QUERIA QUE QUANDO EU COLOCASSE O CAMINHO. ELE ABRIRIA O ARQUIVO AUTOMATICAMENTE.

EX: C:\TESTE.TXT = ABRIRIA O WORD
C:\TESTE.PDF = ABRIRIA O ABOBE OU OUTRO VISUALIZADOR DISPONIVEL
C:\TESTE.XML = ABRIRIA O EXCEL

VOCES PODEM ME AJUDAR?

DESDE JA AGRADEÇO.
DANIKULL 14/02/2010 18:55:38
#334402 Resposta escolhida
ERIVELTONVGA, bopa trde.

O que você poderia fazer sem enrrolação é usar o comando Shell, onde o arquivo será aberto de acodo com o aplicativo padrão. O comando é este:

Shell [Ô]C:\TESTE.TXT[Ô], vbNormalFocus [ô] = ABRIRIA O WORD
Shell [Ô]C:\TESTE.PDF[Ô], vbNormalFocus [ô] = ABRIRIA O ABOBE OU OUTRO VISUALIZADOR DISPONIVEL
Shell [Ô]C:\TESTE.XML[Ô], vbNormalFocus [ô] = ABRIRIA O EXCEL


Retificando o acima descrito, na verdade é o seguinte:

Shell [Ô]C:\Arquivos de Programas\Microsoft Office\Office12\winword.exe C:    este.txt[Ô], vbNormalFocus  [ô] = ABRIRIA O WORD
Shell [Ô]C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe C:    este.pdf[Ô], vbNormalFocus [ô] = ABRIRIA O ABOBE OU OUTRO VISUALIZADOR DISPONIVEL
Shell [Ô]C:\Arquivos de Programas\Microsoft Office\Office12\Excel.exe C:\TESTE.XML[Ô], vbNormalFocus [ô] = ABRIRIA O EXCEL


é que ficou fatando especificar o programa....

Tenta ai, se não der certo você posta ai de novo.
Ok???
ASHKATCHUP 14/02/2010 19:03:25
#334403 

Option Explicit
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 0, vbNullString, [Ô]C:\Pedido.xml[Ô], vbNullString, [Ô]C:\[Ô], 0
End Sub
ERIVELTONVGA 14/02/2010 23:12:19
#334409
boa noite danikull deu certo ao abrir o arquivo vida codigo o que eu queria ela abrir o arquivo a partir de um caminho.

ex: Shell [Ô]C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe & [txt-color=#e80000]txtcaminho.text[/txt-color][Ô], vbNormalFocus [ô] = ABRIRIA O ABOBE OU OUTRO VISUALIZADOR DISPONIVEL

aí neste caso teria um campo txt.

ele abre o adobe mas da o seguinte erro.[Ô]ouve um erro ao abrir este documento. este arquivo nao pode ser encontrado.[Ô]

eu devo estar colocando errado o caminho acima.

desde ja agradeco a ajuda
ASHKATCHUP 15/02/2010 08:01:23
#334411
Erivel, se você usar a minha solução, o arquivo será aberto com o programa que está registrado no windows.
DANIKULL 15/02/2010 10:36:57
#334413
ERIVELTONVGA, bom dia.

Só para explicar como funciona o comando shell:

Shell [Ô]C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe C:    este.pdf[Ô], vbNormalFocus


SHELL -> Dll do windos responsável pela execução do arqivos exe
C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe -> Caminho completo do executável
C:    este.pdf -> Caminho completo do arquivo a ser aberto com o programa:
vbNormalFocus -> A forma que o Adobe Acrobate Reader será aberto, neste caso Normal e com Foco nele

Exemplo:

Supomos que você queira abrir o arquivo [Ô]Teste.pdf[Ô] localizado no desktop, a sintaxe seria a seguinte:

Shell [Ô]C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\Documents and Settings\[usuário do micro]\Desktop    este.pdf[Ô], vbMaximizedFocus

Agora no seu caso acima, ficaria da seguinte forma:

Shell [Ô]C:\Arquivos de programas\Adobe\Reader 9.0\Reader\AcroRd32.exe [Ô] & txtcaminho.Text, vbMaximizedFocus


Obs.: Observe que há um espaço entre a instrução .exe e as aspas dupla, isto é extramente importante para a Dll achar o programa.

Tenta ai de novo, se não der certo avise.

Ok.
ERIVELTONVGA 15/02/2010 10:47:10
#334415
DANIKULL BOM DIA.

BELEZA ERA ISSO MESMO. FUNCIONOU. [txt-color=#e80000]OBRIGADO PELA AJUDA. [/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar