Help
CÓDIGO
<html>
<head>
<title>Directory</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" Background="Sandston.gif">
<%
Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
CurrentPath = Request("Path")
If CurrentPath = "" Then CurrentPath = "C:\"
Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
%>
<FORM ACTION="default.asp" METHOD="Get">
<CENTER>
<TABLE cellpadding=1 border=3>
<TR>
<TD align="Center" colspan="2">
<Font Face="Verdana" SIZE ="5"><B>
<IMG Name=Logo src="AniFloppy.gif">
Caminho atual: <%= CurrentPath%></B>
<IMG Name=Logo src="AniFloppy.gif">
</FONT>
</TD>
</TR>
<TR>
<TD valign=top>
<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
<TR align=Center BorderColor="#808080" BGColor="D3D3D3">
<TH colspan=2 align=Center>Drives</TH>
</TR>
<%
For each oDrive in oFSO.Drives
%>
<TR BorderColor="#FFFFFF">
<TD align=right>
<%Select Case oDrive.DriveType %>
<%Case 1 'Removable %>
<IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif">
<%Case 2 'HardDrive %>
<IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif">
<%Case 3 'Newtork %>
<IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif">
<%Case 4 'CD %>
<IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif">
<%End Select %>
</TD>
<TD align=left>
<Font Face="Verdana" SIZE ="2"><B>
<A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>>
<%= "(" & oDrive.DriveLetter & ":)"%></A></B>
</FONT>
</TD>
<%
Next
%>
</TR>
</TABLE>
</TD>
<TD valign=top>
<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
<TR align=center BorderColor="#808080" BGColor="D3D3D3">
<TH align=left colspan=2 border=1>Nome</TH>
<TH align=left border=1>Tipo</TH>
<TH border=1><span id="result_box2"><span title="File Size">Tamanho do Arquivo</span></span></TH>
<TH border=1><span id="result_box"><span title="Last Modified">Última modificação</span></span></TH>
</TR>
<%
If Not oFolder.IsRootFolder Then
%>
<TD align=right>
<IMG Name="Arrow" src="Arrow.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
<A HREF=default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>>
...</A></B>
</FONT>
</TD>
<%
End If
For Each oSubFolder in oFolder.SubFolders
%>
<TR BorderColor="#FFFFFF" >
<TD align=right>
<IMG Name="Folder" src="Folder.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
<A HREF=default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>>
<%= oSubFolder.Name %></A></B>
</FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT>
</TD>
<TD>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT>
</TD>
</TR>
<%
Next
For Each oFileItem in oFolder.Files
%>
<TR BorderColor="#FFFFFF">
<TD align=right>
<IMG Name="File" src="Files.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT>
</TD>
<TD align=right>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
</TD>
</TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>
<head>
<title>Directory</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" Background="Sandston.gif">
<%
Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
CurrentPath = Request("Path")
If CurrentPath = "" Then CurrentPath = "C:\"
Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
%>
<FORM ACTION="default.asp" METHOD="Get">
<CENTER>
<TABLE cellpadding=1 border=3>
<TR>
<TD align="Center" colspan="2">
<Font Face="Verdana" SIZE ="5"><B>
<IMG Name=Logo src="AniFloppy.gif">
Caminho atual: <%= CurrentPath%></B>
<IMG Name=Logo src="AniFloppy.gif">
</FONT>
</TD>
</TR>
<TR>
<TD valign=top>
<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
<TR align=Center BorderColor="#808080" BGColor="D3D3D3">
<TH colspan=2 align=Center>Drives</TH>
</TR>
<%
For each oDrive in oFSO.Drives
%>
<TR BorderColor="#FFFFFF">
<TD align=right>
<%Select Case oDrive.DriveType %>
<%Case 1 'Removable %>
<IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif">
<%Case 2 'HardDrive %>
<IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif">
<%Case 3 'Newtork %>
<IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif">
<%Case 4 'CD %>
<IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif">
<%End Select %>
</TD>
<TD align=left>
<Font Face="Verdana" SIZE ="2"><B>
<A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>>
<%= "(" & oDrive.DriveLetter & ":)"%></A></B>
</FONT>
</TD>
<%
Next
%>
</TR>
</TABLE>
</TD>
<TD valign=top>
<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
<TR align=center BorderColor="#808080" BGColor="D3D3D3">
<TH align=left colspan=2 border=1>Nome</TH>
<TH align=left border=1>Tipo</TH>
<TH border=1><span id="result_box2"><span title="File Size">Tamanho do Arquivo</span></span></TH>
<TH border=1><span id="result_box"><span title="Last Modified">Última modificação</span></span></TH>
</TR>
<%
If Not oFolder.IsRootFolder Then
%>
<TD align=right>
<IMG Name="Arrow" src="Arrow.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
<A HREF=default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>>
...</A></B>
</FONT>
</TD>
<%
End If
For Each oSubFolder in oFolder.SubFolders
%>
<TR BorderColor="#FFFFFF" >
<TD align=right>
<IMG Name="Folder" src="Folder.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
<A HREF=default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>>
<%= oSubFolder.Name %></A></B>
</FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT>
</TD>
<TD>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT>
</TD>
</TR>
<%
Next
For Each oFileItem in oFolder.Files
%>
<TR BorderColor="#FFFFFF">
<TD align=right>
<IMG Name="File" src="Files.gif">
</TD>
<TD align=left>
<FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT>
</TD>
<TD align=right>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT>
</TD>
<TD align=left>
<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT>
</TD>
</TR>
<%
Next
%>
</TABLE>
</TD>
</TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>
