|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Listar diretórios com Windows Scripting Hosting e FileSystemObject
|
 |
|
|
|
Postada em 24/3/2004 por vilmarbr
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'>>Exemplo de uso Windows Scripting Hosting junto com FileSystemObject p/ listar diretórios
'pelo ASP e mostrar resultado na tela. Testado no Ms-IIS 5.0 com Ms-Windows 2000.
'Troque os diretórios de destino p/ continuar funcionando em outras estruturas de diretórios.
Option Explicit
Response.Expires = -1
%>
<html>
<head>
<title>Exemplo de uso Windows Scripting Hosting junto com FileSystemObject p/ listar diretórios</title>
<meta http-equiv="Content-Type" content="text/html; charSet=iso-8859-1">
</head>
<body>
<%
Dim objWshell,objFSO,objFSOTexto '»»Objetos instanciados na memória.
Dim Saida '»»Objeto TextStream
'»»INÍCIO: Rotina p/ executar comandos ms-dos.
Set objWshell = Server.CreateObject("WScript.Shell")
'»»Comando DIR.
objWshell.Run "%COMSPEC% /C dir D:\I386 > D:\Testes_Apostilas\dir.txt", 0, TRUE
'»»INÍCIO: Rotina p/ abrir objeto de texto com resultados de comandos e mostrar na tela.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFSOTexto = objFSO.openTextFile("D:\Testes_Apostilas\dir.txt", 1, TRUE)
Saida = Replace(Replace(objFSOTexto.ReadAll,"<","<"),vbCrLf,"<br>")
Response.Write Saida
'»»Rotina p/ apagar arquivo temporário dir.txt.
objWshell.Run "%COMSPEC% /C del D:\Testes_Apostilas\dir.txt", 0, TRUE
objFSOTexto.close
Set objFSOTexto = nothing
Set objFSO = nothing
Set objWshell = nothing
'»»FIM: Rotina p/ abrir objeto de texto com resultados de comandos e mostrar na tela.
'»»INÍCIO: Tratamento de erros.
If Err.Number <> 0 then
Response.Write "<p>Erro: " & Err.Description & " Nº: " & Err.Number
Else
Response.Write "<p><strong>Operação realizada com sucesso!!!</strong>"
End If
'»»FIM: Tratamento de erros.
%>
</body>
</html>
|
|
|
|
|
