Cita:
Iniciado por haga41 
Hola Shiryu_Libra,
Cita:
Iniciado por haga41 De todas formas no se si será por como es mi xelupload o por que pero el FSo que comentas en mi archivo de xelpuload aparece en: Public Sub Guardar(ruta) y en Public Sub GuardarComo(nombrefichero, ruta). Es decir que el Fso comprueba el archivo justo antes de guardarlo en la carpeta correspondiente.
podrias utilizar el guardarcomo, para renombrarlo directamente, ya que este te da la oportunidad de renombrarlo en el mismo procedimiento de carga del archivo
Cita:
Iniciado por haga41 Cuando dices "3.- despliegas mediante FSO los archivos" ¿a qué te refieres exactamente? Esa parte no la he entendido bien.
.... una funcion sencillita seria asi
Código ASP:
Ver originalsub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Muestro la info de la carpeta (si quiero)
'Response.Write("<li><b>" & folder.Name & "</b> - " _
' & folder.Files.Count & " files, ")
'Response.Write(Round(folder.Size / 1024) & " KB total." _
' & vbCrLf)
'nothing there.. print
if folder.Files.Count = 0 then
Response.Write "<table border=""0"""&_
"cellspacing=""1"" cellpadding=""2"""&_
"><tr><td>Este archivo no se ha subido.</td></tr></table>"
else
' Response.Write("" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
'Display a list of files.
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""2"">"&_
"<tr>"&_
"<td>Nombre del archivo</td>"&_
"<td>Tamaño</td>"&_
"<td>Contenido</td>"&_
"<td>Fecha de Modificacion</td>"&_
"<td>Borrar</td>"&_
"</tr></table>"
'"Attributes,DateCreated,DateLastAccessed,DateLastModified,Drive,Name,ParentFolder,Path,ShortName,ShortPath,Size,Type"
response.Write "<table>"
for each item in folder.Files
if fs.GetExtensionName(item)="txt" then
url = MapURL(item.path)
nami = item.name
getDeleteLink = Server.Urlencode(item.name)
Response.Write "<tr><td><a href="&_
unescape(url) & " target=_blank>" &_
item.Name & "</a></td><td>" &_
item.Size & " (Bytes)</td>" &_
"<td>" & leer(fs,item) & "</td>"&_
"<td>" & dateValue(item.DateLastModified) & "</td>"&_
"<td><a href=" & pagina & "?file=" &_
unescape(getDeleteLink) & "> Delete this file </a>" &_
"</td></tr>"'<br />"
end if
next
Response.Write("</table>")
end if
end sub
Cita:
Iniciado por haga41 Gracias por tu paciencia.
