Abrir Arquivos

[Guest AlexMunhoz]

Ola pessoal?...

Sou Iniciante, gostaria de saber como faço para abrir um arquivo através de um endereço em um textbox.

Dês de já agradeço...

[Promotor Advanced]

Private Sub Command1_Click()

Shell Text1.Text

End Sub

[William Rodrigues]

Ué!!!

Denovo....

Outro artigo com a mesma pergunta !

Abraços,

William Rodrigues

[AlexMunhoz]

Obrigado amigões, é que eu esta doido procurando dessa resposta... rrrrrrrr, estava parado com o estudo.... Agradeço muito, valeu mesmo...

Com esse comando e só abro.exe certo...

Se eu quiser abrir, por exemplo, um jpg, mp3, doc, xls e outros.

[William Rodrigues]

Obrigado amigões, é que eu esta doido procurando dessa resposta... rrrrrrrr, estava parado com o estudo.... Agradeço muito, valeu mesmo...

Beleza...

Qualquer coisa, fique a vontade para postar, mandar PM, EMail, etc...

hehehe

Se eu quiser abrir, por exemplo, um jpg, mp3, doc, xls e outros.

Caso queira abri-los em seu Form é preciso ter o controle em seu projeto. Por exemplo, caso queiras abrir um .BMP, vai ter que ter o Controle PictureBox

Abraços,

William Rodrigues

[Promotor Advanced]

Para abrir arquivo de acordo com a extensão, você vai mexer com api...

'Em um módulo

Public Const SW_SHOW As Long = 5

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

'Em um form

Private Sub Button_Click()

dim i&

i& = ShellExecute(0,"open",text1.text,"","",SW_SHOW)

End Sub

esse código eu encontrei no http://www.silicio.com.br

[William Rodrigues]

Boa Promotor Advanced

Abraços,

William Rodrigues