Borrar archivos de un folder con ASP clásico
Código ASP clásico
- Por Programador ASP clásico /
- 17/05/2013 @ 09:44:37 /
- 1008 visitas
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: