Arkadaşlar iş yerinde kullandıgım bi program var msdos destekli bi program

cok ağar ve cok eksiği var buna benzer bi program yazıyorum visual basicte nerdeyse bitti sayılır ama dosyalama işlemini bi turlu yapamadım

kullandıgım program program klasorune bulundugu ay adında klasor acıyo ve icinde kayıtları yazıyo mesela "12-2007.dat" kendi yaptıgım programda buraya kadar herseyi tamam

ama program rapor alırken satılan mal kac tane ve kac para olarak alamıyorum ve ya bi tarih girip o tarihler arasında satılan malları listeleyemiyorum bunun hakkında biraz bilgi verirseniz sevinirim


bağzı kayıtlarda kullandıgım kodlar



Kod:
Private Sub Command1_Click() Dim kayitvar As Boolean kayitvar = False For i = 0 To List1.ListCount - 1 If Text12.Text = List1.List(i) Then kayitvar = True End If Next If kayitvar = False Then List1.AddItem Text12 Text12.Text = "" Else MsgBox ("Aynı kayıt var zaten") End If Text12.SetFocus Text12 = "" Open Date & ".dat" For Output As #1 For i = 0 To List1.ListCount - 1 a = List1.List(i) Write #1, a Next Close #1 End Sub

Kod:
Private Sub Form_Load() If Dir(date & ".dat") "" Then Open "date & ".dat" For Input As #1 While Not EOF(1) Input #1, a List1.AddItem a Wend Close #1 End If End Sub

__________________