TÜM Dosya İşlemleri

Bu derste VB.Net'te nasıl dosya işlemleri yapacağımızı öğreneceğiz.Başlayalım: 

Dosya Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")

Klasör Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveDirectory("C:\eski_klasor", "C:\yeni_klasor")

 

Dosya Yaratma: 

Source Code

1. My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)

 

Klasör Yaratma: 

Source Code

1. My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")

Dosya Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")

Klasör Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")

Sorgulu Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgulu Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgusuz Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Sorgusuz Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Belirtilen Dosya Var mı?: 

Source Code

1. Dim dvarmi As Boolean = My.Computer.FileSystem.FileExists("C:\Test.txt")If dvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

 

Belirtilen Klasör Var mı?: 

Source Code

1. Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")If kvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

Belirtilen Dosyanın Boyutu Kaç?: 

Source Code

1. Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("C:\dosya.txt").Length

Belirtilen Diskin Boş Boyutunu Ne?: 

Source Code

1. Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace

Belirtilen Dosyadan Metin Okuma: 

Source Code

1. Dim dicerigi As String = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

Dosyayı Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")

Klasörü Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")

Paylaş :