Arkadaşlat VB2008 dersi için hocanın verdiği proje ödevinde bir sınıftaki öğrencilerin notlarının listelendiği bir programını kapatılınca verileri kaydetmek istiyor musunuz? Sorusuna verilen yanıt evet olduğu takdirde programı Notlar.txt adlı bir dosyada kaydetmesi gerekiyor. Kodları aşağıdaki gb yazdım
Private Sub btnçık_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnçık.Click
cevap = MsgBox("Verilerinizi Kaydetmek ister misiniz?", vbYesNo + vbQuestion, "Veri Kaydı")
If cevap = vbNo Then
End
End If
If cevap = vbYes Then
'Bu bölüm veri kaydı için
FileOpen(1, "C:\notlar.txt", OpenMode.Output)
For i = 0 To lstno.Items.Count - 1
WriteLine(1, lstno.Items(i), " ", lstviz1.Items(i), " ", lstviz2.Items(i))
Next
FileClose(1)
End If
End
End Sub
Debug yaparken hiç bir hata almıyorum; fakat notlar.txt adlı dosya C'de oluşturulmuyor. Kodlarda mı bir sıkıntı var?
Kodlarda bir sıkıntı yoksa acaba bu problemi nasıl aşabilirim?
Cevaplar için şimdiden teşekkürler