Open "C:\nombre.bat" For Append As #1
C:\nombre.bat
Dim aleatorio As Stringaleatorio = Str(Int(Rnd(1000) * 1000))Open aleatorio & ".bat" For Append As #1
Call Shell("C:\" & aleatorio & ".bat")
C:\Users\Alex Jurado>echo C:\%random%.txtC:\26423.txt