VB.Net/Vb Dosyakaydetme olayı.

[Mithr]

Vb.net'de fileopen kullaniorum.FileOpen(1, "dosyaadı", OpenMode.Output) diye.Neyse kaydettiğim her dosya adının diğerinden farklı olması gerekiyor.Dosyaadına now() atadım.
Dim dosyaadi= now()
Neyse
Try
FileOpen(1, "" & dosyaadi & "", OpenMode.Output)
Print(1, RichTextBox1.Text)
FileClose(1)
MsgBox(dosya)
Catch
MsgBox("Yine Hatali Kod Yazdın Böühea")
End Try

Kısmında dosya değişkenini burada kullanıorum.Hata veriyor :(
Amacım her dosya kaydolduğunda farklı isimle kaydolması.Yardımcı olabilecek veya başka bir yöntem bilen varmı?

[Bu mesaj Mithr tarafından 02 Ocak 2006 19:37 tarihinde değiştirilmiştir]

[Mithr]

Yaptim yüppiee ^^
[spo1=Merak eden varsa = P]ad = Int(Rnd() * 10000)
FileOpen(1, ad, OpenMode.Output)
fln[/spo]

[Sailor]

pek güzel bi çözüm olmamış. random 10000 de desen üzerine yazma olasılığı var. while içinde denet en iyisi, öyle bir dosyanın olup olmadığını.[signature][hline]oasis.gen.tr
Mail/MSN: [email protected] , ICQ:6254196