Need to make zeros

[outlawspeeder]

I am using execl to make a txt file. what I need to make is a 6 digit numer Int((100000 * Rnd) + 1) but if the number is less that 6 I need it to put zeros in front to make up the lead.

If Print #1, Int((10000 * Rnd) + 1) returns 345
I need it to Print #1, 000345

Of course execl will kill any leading zeros...

Thoughts??

 

[Andrew Poulsom]

Try:

Print #1, Format(Int((10000 * Rnd) + 1), "000000")

 

[outlawspeeder]

Thank you!