fso

Ola,

Estou tentando abrir um arquivo em Word, Excel, PowerPoint...Mas esse código não abre, nesse exemplo tem um txt, mas não quero txt e sim .doc .xls e PowerPoint, tem como?

if nome <> "" then

Const fsoLeitura = 1
Dim objFSO
'Instanciar o objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Abrir o arquivo texto
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("C:\SiteJose\exemplo.txt", fsoLeitura)

'Visualiza no navegador o conteúdo do arquivo texto
101: Response.Write objTextStream.ReadAll
end ifE outro esse da o seguinte erro também:

Final do arquivo ultrapassado

/sitejose/adm.asp, line 101

Obrigado!

Marcelo