Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    Anasayfa » Forum Anasayfa » Kategori: Visual Basic.Net
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Denetim Masası

Yazar: murat_okuyucu
Basit bir kontrol paneli için


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?

"vb.net dosyalama"

?yi günler arkada?lar, ?unu merak ediyorum ki, vb'de dosya okuma ve dosya yazma komutlar? var fakat bu yazma komutu örneklerinde genelde hep haz?r verilmi? bir dosya yolu üzerindeki bir .txt dosyas?na kaydediyor. Bu kay?t yolunu bir butona bas?p, kullan?c?ya seçtirmenin ve bu seçimden sonra kullan?c?n?n belirledi?i dosya yoluna .txt den ba?ka uzant?larla kaydetmenin bir yolu var m??

Üyeye Özelden Mesaj At garry2014 | 04.01.2014 01:49


Merhaba,

SaveFileDialog konusuna bakınız. Ben bir projemde aşağıdaki kodları kullanmıştım.

Çalışıyor.

Try
Dim file As String
TextBox1.Text = "C:"
TextBox2.Text = "*.TXT"
'*****************************************************************************************
SaveFileDialog1.InitialDirectory = TextBox1.Text
SaveFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
file = SaveFileDialog1.FileName()

Else
Exit Sub
End If
'*****************************************************************************************
Dim fs1 As FileStream = New FileStream(file, FileMode.OpenOrCreate)
Dim w As StreamWriter = New StreamWriter(fs1)
For Each itm As String In Me.ListBox1.Items
w.WriteLine(itm & vbCrLf)
Next
w.Close()
fs1.Close()
Dim fullyolk As String
Dim kelimek
Dim Dosyaadık
fullyolk = SaveFileDialog1.FileName
kelimek = Split(fullyolk, "", -1)
Dosyaadık = Filter(kelimek, "txt")
TextBox2.Text = Dosyaadık(0)
TextBox1.Text = SaveFileDialog1.FileName
'*****************************************************************************************
Catch ex As Exception
MsgBox(ex.Message)
End Try
'*****************************************************************************************

Üyeye Özelden Mesaj At BAYDIN | 22.02.2014 16:35



Tüm Kategoriler | Visual Basic.Net | Visual Basic.Net  1. Sayfa
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin