[Resolvido] lendo um FSO dinamicamente

[Jow Xavier 0]

Galera tenho um formulário onde o usuário seleciona o aquivo a ser lido na tela ... então um script apresenta o conteúdo do arquivo selecionado ....

 

Assim me apresenta o conteúdo do arquivo teste.txt ...

Set ObjFile = Fso.GetFile(server.mappath(".") & "/teste.txt")

 

como eu faria para apresentar o conteudo q o usuário selecionou ... um exemplo na combo onde o usuário escolhe tá assim

 

<select name="sel">
<option value="teste.txt">Script ASP</option>
<option value="teste1.txt">Script PHP</option>
<option value="teste2.txt">Script HTML</option>
</select>

na página asp como eu altero a linha do FSO ??

 

tentei assim e ñ rolou

 

vsel=request.form("sel")

 

Set ObjFile = Fso.GetFile(server.mappath(".") & '"&vsel&'")

[Anderson Roberto 0]

Primeiramente, como você "chama" a página que deverá mostrar o conteúdo do arquivo? POST ou GET?

[Jow Xavier 0]

Primeiramente, como você "chama" a página que deverá mostrar o conteúdo do arquivo? POST ou GET?

vsel=request.form("sel")

Post

[xanburzum 169]

você quer recuperar a seleção de seu combo e incluir no FSO,

recupere o dado do combo,

 

vsel=request.form("sel")

e para incluir no FSO use o objTextFile.WriteLine, isso se for incluir a

seleção do combo no arquivo texto, agora se quiser atraves do combo , acessar o arquivo, 1º deixe o nome do arquivo igual a seleção do combo e depois atribua a uma variavel, por exemplo,

varpath=request.form("sel") e concatene no GetFile,

 

Set ObjFile = Fso.GetFile(server.mappath(".") & varpath)

ou tb ter uma variavel que pega o diretório ao invés de usar o Server.MapPath

diretorio = "c:\inetpub\wwwroot"	  'Aqui o diretório principal

e concatenar em uma variavel apenas, é interessante você verificar se o arquivo existe

IF fso.FileExists(diretorio) Then 
	  Set f = fso.GetFile(arq)

 

para maiores detalhes acesse aqui

[Jow Xavier 0]

Cara funcionou só tive que inserir uma "\" ai funcionou perfeito .... fiz assim

 

arquivo=request.form("sel") 
[b]Set ObjFile = Fso.GetFile(server.mappath(".") & "\" & arquivo)[/b]

Mais uma vez Valeu abraço e FeLiZ AnO NoVo a toda a galera

[xanburzum 169]

Um feliz Ano Novo tb...