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
%>
