Dosya ve Klasör İşlemleri
Yeni klasör oluşturmak
Bir klasörün varlığını test etmek
Yeni dosya oluşturmak
Bir dosyanın varlığını test etmek
Yeni Klasör Oluşturmak
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodu yazın
System.IO.Directory.CreateDirectory("c:\Deneme")
Bir Klasörün Varlığını Test Etmek
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodu yazın.
Dim KlasorVar As Boolean
KlasorVar = System.IO.Directory.Exists("C:\Deneme")
If KlasorVar = True Then
MessageBox.Show("Bu klasör var")
Else
MessageBox.Show("Bu klasör yok")
End If
Yeni Dosya Oluşturmak
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodları yazın
Dim Dosya As System.IO.FileStream
Dosya = System.IO.File.Create("c:\Deneme.txt")
Bir Dosyanın Varlığını Test Etmek
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodu yazın.
Dim DosyaVar As Boolean
DosyaVar = System.IO.File.Exists("C:\Deneme\deneme.txt")
If DosyaVar = True Then
MessageBox.Show("Bu dosya var")
Else
MessageBox.Show("Bu dosya yok")
End If
Bir Dosyaya Veri Yazmak
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodu yazın.
Dim Dosya As New System.IO.StreamWriter("c:\deneme\deneme.txt",True) 'True Append modda açar
Dosya.WriteLine("Selam dünyalı biz dostuz")
Dosya.Close()
Bir Dosyadan Veri Okumak
Yeni bir proje açarak Form1 üzerine bir Button sürükleyin.
Button1’in Click olayı içine aşağıdaki kodu yazın.
Dim Dosya As New System.IO.StreamReader("c:\deneme\deneme.txt")
Dim Satir As String
Do
Satir = Dosya.ReadLine
If Satir = "" Then Exit Do
MessageBox.Show(Satir)
Loop
Dosya.Close()
ads
Hiç yorum yok: