polkorn
Bovino maduro
- Desde
- 5 Jun 2009
- Mensajes
- 471
- Tema Autor
- #1
Buen día bakunos, hoy vengo con una duda sobre como puedo cambiar el nombre de un archivo antes de guardarlo en un servidor, la manera en lo que lo estoy realizando es la siguiente:
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
'' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
NOMBRE_ARCHIVO = complete & Upload.UploadedFiles(fileKey).FileName
Lo que necesito es cambiar el FileName antes de guardar o renombrar el archivo, ¿porque movito? porque los usuarios suelen subir el nombre del archivo con espacios oh con ascentos y requiero que no lleve ascentos el nombre del archivo, me podrían apoyar con esto por favor.
De antemano muchas gracias bakunos.
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
'' If something fails inside the script, but the exception is handled
If Err.Number <> 0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
resumen = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
NOMBRE_ARCHIVO = complete & Upload.UploadedFiles(fileKey).FileName
Lo que necesito es cambiar el FileName antes de guardar o renombrar el archivo, ¿porque movito? porque los usuarios suelen subir el nombre del archivo con espacios oh con ascentos y requiero que no lleve ascentos el nombre del archivo, me podrían apoyar con esto por favor.
De antemano muchas gracias bakunos.