borrar varios archivos

[dabadubab]

Hola compis!

sabeis cómo puedo hacer para borrar varios archivos de un directorio??
un rollo deletefile("c:\kk\*1.txt")
saludos!!

bernat

[u_goldman]

Utiliza el FilesystemObject, en este foro hay muchos ejemplos para hacer eso..

Despues necesitarás un bucle y quizás una condición para borrar aquellos archivos que quieras borrar

Código:

For each archivo in Carpeta.Files
  Si archivo = alguna_condicion
   Borra archivo
  Fin Si
Next

Hace mucho que no ocupo el FSO je je, por lo tanto no recuerdo muy bien, pero usa el buscador, seguro encontrarás lo que quieres

Salu2,

[dabadubab]

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