fso

[Marcelo VMB 0]

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 if

E outro esse da o seguinte erro também:

 

Final do arquivo ultrapassado

/sitejose/adm.asp, line 101

 

Obrigado!

Marcelo

[dataset 0]

Dê uma vasculhada no Forum, me lembro que no mes 11, postei um exemplo de abertura de Word, Excel.

 

Dá uma olhada.

 

Att;

[Marcelo VMB 0]

Voce lembra do topico ou como buscar? Não estou achando...

 

Obrigado mesmo!

 

Marcelo

[jrcardozo 4]

em relação ao erro é porque o arquivo texto está vazio

[Marcelo VMB 0]

Jonathan, agora ele ler, agora tu sabe em vez de chamar um txt chame um .xls , .doc ou powerpoint?

 

Obrigado!

Marcelo