VB 2008 Disk Üzerinde Metin Oluşturma Hakkında?

YKA PROJECT
01-01-2013, 21:20   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
1 mesaj
Kayıt Tarihi:Kayıt: Oca 2013

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

nsgnc
20-01-2013, 02:07   |  #2  
Taze Üye
Teşekkür Sayısı: 2
18 mesaj
Kayıt Tarihi:Kayıt: May 2008

fileopen kullanman konusunda bir kısıtlama yoksa streamwriter yada http://msdn.microsoft.com/en-us/library/ms143356.aspx adresindeki metodu kullanç