Mi recomendación es que agarres un tema ya hecho y lo modifiques a tu gusto.
Puedes desde sólo cambiar las imágenes hasta modificar el código.
Puedes desde sólo cambiar las imágenes hasta modificar el código.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
' Funcion para generar nombres aleatorios
Function GeneraNombreRandom(strNombreArchivo)
Dim strFecha
'Quita caracteres ilegales
strFecha = Year(Now) & String(2 - Len(Month(Now)), "0") & Month(Now) & String(2 - Len(Day(Now)), "0") & Day(Now)
Randomize
'Regresa
GeneraNombreRandom = strNombreArchivo & strFecha & "_" & CStr(Round(Rnd * 1000000))
End Function