Hola, tengo un problema con una página para descargar archivos al servidor, con el componente Persits.Upload
Me inventé una forma para renombrar los archivos, con un nombre aleatorio, para luego poder borrarlos con facilidad, sin tener problemas con los espacios o las ñ etc.
1º genero el nº con una funcion:
Function GenerarPassword(largo)
Dim Resultado, Caracter, Password
caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
Randomize()
Do While Len(Resultado) < largo
Resultado = Resultado & Caracter(Int(10 * Rnd()))
Loop
GenerarPassword = Resultado
End Function
Password= GenerarPassword(16)
Luego invoco al componente:
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save "C:\Inetpub\wwwroot\resadmin\servidor\carpeta"
Y luego se graba el archivo con el nuevo nombre:
If Not Upload.Files("Attachment") Is Nothing Then
NewName=Password
Upload.Files("Attachment").SaveAs "C:\Inetpub\wwwroot\resadmin\servidor\carpeta\ " & NewName &""&Upload.Files("Attachment").ext
End if
El problema que tengo, es que el archivo con el nombre original no se borra, y luego lo tengo que hacer a mano por Ftp.
Y en Persis no he encontrado informacion para borrar.
Muchas gracias por adelantado y un cordial saludo
