Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] intantly clean-up de diretórios

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Esta ferramenta varre o diretório atual e todos os sub-diretórios,as pastas podem ser apagadas instantaneamente com esta ferramenta. Útil para intantly clean-up de seu web diretórios de pastas e arquivos não utilizados. Utiliza o Scripting.FileSystemObject.

 

<%@Language="VBScript" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type"CONTENT="text/html;CHARSET=iso-8859-1">
<TITLE>FileSystem Scanner</TITLE>
</HEAD>
<BODY BGCOLOR="#ECECEC">
<DIV ALIGN="center"><B><font size="2" face="arial, helvetica, sans-serif"><%= Request.ServerVariables("SERVER_NAME") %></font></B></DIV>
<BR>
<script LANGUAGE="JavaScript" TYPE="text/javascript">
function folConfirm()
{
return window.confirm('\tCuidado!\n\nTodas as  sub-pastas e arquivos desta pasta serão apagados também.\n\nIsto não pode ser desfeito! ");
return true;
}
function filConfirm()
{
return window.confirm('Deleta este arquivo!');
return true;
}
</SCRIPT>
<%
Dim objFSO, filSize
If Request.QueryString("md") <> "" And Request.QueryString("df") = 1 Then
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	If objFSO.FolderExists(Request.QueryString("md")) Then
		objFSO.DeleteFolder Request.QueryString("md")
	End If
	Set objFSO = Nothing
	If Err = 0 Then
		Response.Write "<DIV ALIGN=""center""><font size=""2"" face=""arial, helvetica, sans-serif"" color=""red"">A pasta foi excluída com sucesso!</font></DIV>" & vbcrlf
	Else
		Response.Write "<DIV ALIGN=""center""><font size=""2"" face=""arial, helvetica, sans-serif"" color=""red"">ERRO!<BR><BR>" & Err.Description & "</font></DIV>" & vbcrlf
	End If
End If
Dim Path, Fso, sFile, sPosi
sFile = Request.ServerVariables("SCRIPT_NAME")
sFile = StrReverse(sFile)
sPosi = Instr(sFile, "/")
sFile = Left(sFile, sPosi - 1)
sFile = StrReverse(sFile)
Path = Server.MapPath(".")
Dim fs, f, folder, fc, s
Set FSO = CreateObject("Scripting.FileSystemObject")
%><font size="1" face="arial, helvetica, sans-serif"><%
Call ScanFolders(Path)
%></font><%
Function ScanFolders(PathSpec)
	Dim fs, f, Folder, fc, s, File, FileList, FolderInfo, FileName, Name, sLink
	Response.Write "<b><a href=""" & sFile & "?md=" & PathSpec & "&df=1"" OnClick=""return folConfirm();"">" & PathSpec & "</a></b><br><br>"
	Set f = FSO.GetFolder(PathSpec)
	Set fc = f.SubFolders
	For Each Folder In fc
%><BLOCKQUOTE><%
		Response.Write "<hr>Pasta: <Font color=Red>" & UCase(Folder.Name) & "</font>  -  tamanho total: <Font color=Green>" & FormatNumber(Folder.Size, 0) & " byte</font>  -  criada: <Font color=Maroon>" & FormatDateTime(Folder.Datecreated, 2) & "</font><br>"
		Call ScanFolders(PathSpec & "\" & Folder.Name)
%></BLOCKQUOTE><%
	Next
End Function
%>
</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito