Как правильно сгенирировать?

[Druid-2004]

Нужно сгенирировать файл, имя которого будет состоять из цифр.
Должно получиться типа этого:

Private Sub CreateFile()
NameFile=int(rnd*1000000) //от сюда берем имя будующего файла
open /здесь мне нужна помощь/ for append as #1
print #1, "Что-нибудь"
close #1
end sub

До файла с именем NameFile должен стоять полный путь к нему... Например "C:\test\"

...короче, как правильно соеденить путь и сгенированное циферное имя?

[Aleksej]

Код: Выделить всё

Open "C:\test\" & NameFile For Append As #1