Eliminar ficheros del servidor

[Canicasjr]

'Elimina archivos de carga una vez hecha esta, para evitar problemas!
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<br>"
Set a = fso.GetFile(folderspec&"\"&f1.name)
if right(f1.name,3)="txt" then
a.Delete
end if
Next
ShowFolderList = s
End Function

Ahi tienes la funcion que yo uso, me funciona super bien, no le puse permisos especiales que yo recuerde y le puse un filtro para eliminar el Tipo de archivos que yo quiera :P jejeje

mucha suerte
Alejandro !!!