Código:
Set v1 = CreateObject("Scripting.FileSystemObject")
Set v2 = v1.CreateTextFile("C:\MiLog.log")
v2.WriteLine "####################################"
v2.WriteLine " "
v2.WriteLine "LO QUE ESCRIBAS AQUI"
v2.WriteLine "SE IMPRIME DENTRO DEL ARCHIVO TXT"
v2.WriteLine "-----------FIN-------"
v2.Close
Esto crea 1 archivo , pero quiero crear infinitos archivos por ej adentro de C:\WINDOWS
Intente meter el code dentro de un timer pero no se puede crear nuevos archivos con el mismo nombre.
Se me ocurrio la funcion Rnd ( Randomize ) , para que cambie el nombre del archivo a guardarse y asi cada vez.
Alguien sabe como implementarlo ??