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: