Abrir arquivo com a função "Shell"

[Danleonhart]

Dúvida simples...

Como faço para abrir um arquivo que está em uma pasta do PC utilizando o comando "Shell" ?!

Estou fazendo assim:

Shell("C:\Teste.txt")

mas está apresentando o seguinte erro:

"Run-time error '5':

Invalide procedure call or argument.

ajudinha aê...

[kuroi]

tenta tirar os parenteses. assim:

Shell "C:\Teste.txt"

EDITADO: reparei agora tb q você ta tentando abrir um txt. a funcao Shell() acho q não abre txts, somente executaveis. você pode em vez disso chamar o bloco de notas:

Shell "notepad ""C:\Teste.txt"""

ou usar a api ShellExecute().

Editado Dezembro 15, 2010 por kuroi

[Danleonhart]

Valeu Kuroi !

obrigado mais uma vez :)

Deu certinho a dica:

Private Sub CommandButton_Click()
Shell "Notepad ""C:\Teste.txt""", vbNormalFocus
End Sub

Coisinha bem simples mas me pegou <_< :lol:

Valeu !!!

[Danleonhart]

Mais uma dúvida...

Como faço para ocultar um arquivo ?

Aquele comando MS-DOS : "Attrib +h C:\Teste.txt"

tentei assim:

Shell "attrib +h""D:\Teste.txt"""

  ***  E assim:
Shell "cmd""attrib +h""D:\Teste.txt"""""

Sem sucesso... <_<

[Danleonhart]

Já descobrí !

para ocultar:

SetAttr "D:\Teste.txt", vbHidden

Para mostrar:

SetAttr "D:\Teste.txt", vbNormal

:P ^_^ ;)