ACESSAR ARQUIVOS VIA VB

USUARIO.EXCLUIDOS 18/03/2005 18:58:03
#73677
Galera,

Tudo bem!

Necessito saber como teria acesso a aperturas de arquivos, como doc, textos, planilhas, pdf e outros.

Exemplo: Acesso um diretorio que contem varios arquivos, quero dar dupla clique no arquivo selecionado e ele se abria no programa mae do arquivo, como arquivo doc abra no Word, xls abra no Excel e assim por diante.

Isso deve valer para todos as plataformas Microsoft, 98, 2000, XP.

O comando que conheço para abrir arquivos, so vale para Windows 98 os demais não funciona.

Eu utilizo o seguinte comando:

Shell ("START C:\DOC\MEUARQUIVO.DOC")

Esta linha não vale para Windows 2000, XP só funciona em 98.

Preciso saber com urgencia se algum comando de acessar arquivos em Windows 2000, XP.

Utilizo o VB 5.

Valeu pela ajuda,

Michel
WEBMASTER 18/03/2005 20:58:22
#73681 Resposta escolhida
Tente isso,

Shell "explorer c:\asdf.doc"
THIAGO.CESAR 19/03/2005 07:21:53
#73696
Faça uma referência ao Microsoft Shell Controls and Automations e use o código seguinte:

Dim SH as Shell
Set SH = New Shell
SH.Open "C:\DOC\MEUARQUIVO.DOC"
Set SH = Nothing
USUARIO.EXCLUIDOS 19/03/2005 14:06:43
#73715 
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
Const SW_SHOWNORMAL = 1
USUARIO.EXCLUIDOS 19/03/2005 21:44:52
#73796
cara, basta você usar o exemplo abaixo

shell (caminho do arquivo.extenção)

Exemplo

shell ("C:\Documents and Settings\Administrador\Desktop    este.doc")

este exemplo serve bem para a sua dúvida

espero ter ajudado t+
USUARIO.EXCLUIDOS 20/03/2005 09:28:56
#73832
Como fazer através do vb ao invés de inserir os dados num banco de dados, inserir num documento Word ou Excell?
USUARIO.EXCLUIDOS 20/03/2005 15:06:31
#73865
Só preciso abrir arquivos via VB, mas que abra dentro do seu aplicativo mãe.

Michel
TONARE25 20/03/2005 17:28:55
#73891
Ele ira abrir somente se tiver o programa respectivo a sua extensão associado ao Arquivo e Registrado no Windows...
Ou então vc terá que criar uma função que pegue a extensão do arquivo selecionado e tratar de forma a saber qual extensão é correspondente a qual programa e executar o comando Shell tipo conforme abaixo:

Shell "C:\Arquivos de Programas\Office\Winword.exe C:\Documento.DOC"

Ai assim vc ira conseguir....

QQ Coisa me manda uma mensagem interna.. OK!?
USUARIO.EXCLUIDOS 20/03/2005 20:41:28
#73945
cara, basta você usar o exemplo abaixo

shell (caminho do arquivo.extenção)

Exemplo

shell ("C:\Documents and Settings\Administrador\Desktop    este.doc")

este exemplo serve bem para a sua dúvida

espero ter ajudado t+

jefinho
USUARIO.EXCLUIDOS 25/03/2005 23:03:33
#74967
Valeu a todos pelas as dicas mas achei como fazer...

para acessar um arquivo de qualquer familia façam assim:

a=SHELL ("EXPLORER C:\TESTE.DOC")

para executar um aplicativo se usa assim:

a=SHELL ("C:\TESTE.EXE")

Abraços....
Tópico encerrado , respostas não são mais permitidas
Voltar