Me pueden explicar esto??????

[karmish]

alguien me explica esto

Código:

<%
Function cambiar_nombre(archivo_original,este_folder_variable,letras)
directorio_final = server.MapPath(".") & este_folder_variable


x = revisar(directorio_final)

If x = "1" then
Response.write "Se creó un directorio"
Else
Response.write "Se agrego el siguiente archivo a tu directorio."
End if 


Randomize 
cadena_variable = ""
temp = directorio_final & archivo_original 
temp2 = temp
caracteres_a_agregar = letras



For i = 1 to caracteres_a_agregar
cadena_variable = cadena_variable & chr(int(Rnd * 26) + 65) 
Next 

temp = directorio_final & cadena_variable & "-" & archivo_original 


Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(temp)) Then
cambiar_nombre(temp2) 
Else
cambiar_nombre = temp 
exit function
End If

End Function

%>