استفاده از فضای امن IsolatedStorage برای ذخیره اطلاعات

IsolatedStorage یک فایل خصوصی سیستمی است که توسط دات نت مدیریت می شود.

Imports System.IO
Imports System.IO.IsolatedStorage

برای ساختن یک فایل IsolatedStorage

Dim IsoStore As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly
Dim IsoFile As IsolatedStorageFileStream = New IsolatedStorageFileStream("mytextfile.txt", FileMode.Create, IsoStore)
Dim sw As New StreamWriter(IsoFile)
sw.WriteLine("my computer name is: " & My.Computer.Name)
sw.Close()

برای خواندن از یک فایل IsolatedStorage

Dim IsoStorage As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly
Dim IsoFile As IsolatedStorageFileStream = New IsolatedStorageFileStream("mytextfile.txt", FileMode.Open, IsoStorage)
Dim sr As New StreamReader(IsoFile)
MsgBox(sr.ReadToEnd.ToString)
sr.Close()

فشرده کردن فایل ها و بازکردن آنها با استفاده از GZipStream

Imports System.IO
Imports System.IO.Compression

ساخت یک فایل فشرده:

Dim gzOut As New GZipStream(File.Create("data.zip"), CompressionMode.Compress)
Dim sw As New StreamWriter(gzOut)
For i As Integer = 1 To 999
     sw.Write("Hello, World! ")
Next
sw.Close()
gzOut.Close()

برای خواندن و باز کردن فایل های فشرده نیز مانند کد های پایین عمل میکنیم:

Dim gzIn As New GZipStream(File.OpenRead("data.zip"), CompressionMode.Decompress)
Dim sr As New StreamReader(gzIn)
MsgBox(sr.ReadToEnd())
sr.Close()
gzIn.Close()

ذخیره داده در حافظه توسط MemoryStream

MemoryStream نوع داده ای است برای ذخیره موقت در حافظه و سپس ذخیره آن به طور یکجا در دیسک.

در محیط های چند کاربره ، وقتی شما میخواهید روی یک سری اطلاعات فرایندی را انجام دهید و سپس نیاز به ذخیره آن داشته باشید استفاده میشود.

Imports System.IO

Dim ms As New MemoryStream()

Dim sw As New StreamWriter(ms)
sw.WriteLine("Hello, World!")
sw.Flush()
ms.WriteTo(File.Create("d:\memory.txt"))
sw.Close()
ms.Close()

خواندن و نوشتن در یک فایل متنی و باینری

Imports System.IO

'1- نوشتن متنی
Dim tw As TextWriter = File.CreateText("d:\text1.txt")
     tw.Write("Hello word.")
tw.Close()

'2- نوشتن متنی
Dim sw As New StreamWriter("d:\text2.txt")
     sw.Write("Hello word.")
sw.Close()

'1- خواندن متنی
Dim tr As TextReader = File.OpenText("d:\text1.txt")
     MsgBox(tr.ReadToEnd())
tr.Close()

'2- خواندن متنی
Dim sr As New StreamReader("d:\text2.txt")
     MsgBox(sr.ReadToEnd())
sr.Close()

بعد از نوشتن در فایل برای اجرای تغییرات حتما فایل باید بسته شود

در غیر اینصورت فقط یک فایل خالی درست میشود
اگر فقط میخواهیم که تغییرات اعمال شود و فایل بسته نشود از روال Flush مانند زیر باید استفاده کرد

sr.Flush ()

تحت نظر گرفتن شاخه ای خاص از درایو توسط کنترل FileSystemWatcher

Imports System.IO

Dim Checkdir As New FileSystemWatcher("d:\")

'مشخص کردن اینکه زیر شاخه ها را تحت نظر قرار دهد یا خیر
Checkdir.IncludeSubdirectories = True

'نوع تحت نظر قراردادن
Checkdir.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.LastWrite

AddHandler Checkdir.Created, AddressOf Checkdir_creat


'تابع مورد نظر که باید انجام شود
Private Sub Checkdir_creat(ByVal sender As Object, ByVal e As FileSystemEventArgs)
     MsgBox("creat file")
End Sub