gracias colegui!
el código exacto por si a alguien + le interesa...
dim objFS
dim FolderPath
dim objFolder
im 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
gracias a todos por todo!!
Bernat
