Borrar archivos de un folder con ASP clásico

Código ASP clásico

El siguiente código ASP clásico permite borrar archivos de una carpeta ubicada en el servidor web utilizando el objeto "Scripting.FileSystemObject"

<%
dim objFS
dim FolderPath
dim objFolder
dim objFiles

'creamos filesystem object... que bien va este objeto!!'
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'cojemos la carpeta actual en el objeto carpeta'
FolderPath=server.mappath(".") & "\"
Set objFolder = objFS.GetFolder(FolderPath)
'asignamos la colección de archivos de la carpeta a un objeto File'
Set objFiles = objFolder.Files

For Each objFile In objFiles
'Mi condición para borrar es que los archivos contengan 2 cadenas de carácteres en el nombre: la variable usuario y la extensión .htm'
if (instr(objFile.name,v_user) <> 0) and (instr(objFile.name,".htm") <> 0) then
objFS.deletefile(objFile.path)
end if
Next

set objFiles = nothing
set objFolder = nothing
set objFS = nothing
%>

tags: Borrar archivos ASP clásico, eliminar archivos ASP, eliminar archivos de una carpeta, manejo de archivos ASP, programación ASP clásico, depuración de ASP, automatización de tareas, sistema de archivos ASP

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por CoreASP. Estos recursos se comparten de buena fe con el único objetivo de servir como base de conocimiento en el desarrollo de aplicaciones en ASP Clásico. CoreASP no garantiza la precisión, vigencia ni funcionamiento de los artículos o fragmentos de código publicados, y no se hace responsable por el uso que se les dé. Se recomienda siempre revisar, adaptar y probar el código antes de implementarlo en entornos de producción.