FELICIDADES!!
Hola tengo el codigo de freeaspupload que no cambia el nombre del fichero aunque dice que suí lo debería hacer.
Aquí una parte indicada por el sitio oficial donde debería cambiar el nombre:
Código HTML:
[CODE]
Dim Counter
Dim Flag
Dim strTempFileName
Dim FileExt
Dim NewFullPath
dim objFSO, p
Set objFSO = CreateObject("Scripting.FileSystemObject")
Counter = 0
p = instrrev(FileName, ".")
FileExt = mid(FileName, p+1)
strTempFileName = left(FileName, p-1)
NewFullPath = strSaveToPath & "\" & FileName
Flag = true
Do Until Flag = True
If objFSO.FileExists(NewFullPath) = False Then
Flag = True
GetFileName = Mid(NewFullPath, InstrRev(NewFullPath, "\") + 1)
Else
Counter = Counter + 1
NewFullPath = strSaveToPath & "\" & strTempFileName & Counter & "." & FileExt
End If
Loop
End Function
[/CODE]
Al instante de cargar tengo una sesion de nombre "cod" que se me ocurrió sumarla al nombre del fichero, pero no me resulta, ya probé varias formas y no se me ocurre otra.
Cómo solucionarlo? Porque el upload me reemplaza el archivo con el mismo nombe que ya está en el server .
He buscado y encontré varias formas pero no sé implementarlas correctamente.
Gracias.