Abrindo Arquivos AscII via Browser/VBS

[Sollos 0]

Olá pessoa, abaixo segue um simples Script que criei, todo explicado, para ler arquivos Texto via Browser e exibi-los ao usuario!

Duvidas? Perguntem (Y)

<script language="vbscript">public sub abreArquivo()'Criaçao do Método sem retorno que chama a abertura de Aqruivodim obj, arq, ler, caminho, nome'Variaveis obj(Objeto FileSystem), arq(Recebe o conteudo do Arquivo de Texto), ler(Efetua a Leitura completa do arquivo)'caminho(Path indicado pelo user), nome(Nome do arquivo aberto[operaçao automatica]) set obj = createObject("Scripting.FileSystemObject")'Criando o Obj FSO e Agregando instancia à Var OBJcaminho = inputbox("Digite o caminho para o Arquivo")'Recebendo o Caminho via InputBox do usuarioif(caminho = "") then 'Verifica se foi digitado algum caminhomsgbox "Não houve caminho informado",16,"Erro" exit sub'Caso caminho vazio, cancela a execução do metodoelseif not(obj.FileExists(caminho)) then 'Se arquivo não existir, exibe msg de erromsgbox "Caminho/Arquivo inexistente",16,"Erro" elseset nome = obj.GetFile(caminho)'Instancia o metodo GetFile do FSO a Variavel, GetFile da Acesso às propriedades dos ArquivosSet arq = obj.OpenTextFile(caminho)'Instancia a Arq o metodo FSO de abertura de arquivo Text/ASCIIler = arq.readAll'Ler arquivo completoler = replace(ler, vbcrlf, "")'Aqui ocorre a seguinte situação'Verificar variavel LER e substituir objetos VBCRLF por "" caso exista, retornar substituições para LER'Os Writes Abaixo, geram a Saída do que foi lido pelo FSOdocument.write("<div style='border:5px double green;padding:3px;width:35%;text-align:center;position:absolute;left:28%;'>")document.write("<input type='button' value='Voltar' onClick='javascript:history.back(-1)'>")document.write("</div>")document.write("<div style='overflow:auto; width:75%; height:55%;position:absolute;left:10%; border:5px dotted green'; padding: 7px;>")document.write("<fieldset><Legend>Arquivo '" & nome.name & "' Aberto</legend>" & ler & "</fieldset>")document.write("</div>")end ifend ifend sub</script><div style='border:5px double green;padding:3px;width:35%;text-align:center;position:absolute;left:28%;'><input type='button' value='Carrega' onClick='abreArquivo()'></div>