[RaggiTech]

التعامل مع التخزين المعزول:

قبل البدء قم باستيراد مساحات الاسم التالية:

كود :

Imports System.IO
Imports System.IO.IsolatedStorage

للحصول على محتوى معزول والمسمى Store والخاص بالتجميع الحالي للتطبيق الخاص بك Asembly:

كود :

Get the isolated store for this assembly
Dim isf As IsolatedStorageFile = _
IsolatedStorageFile.GetUserStoreForAssembly()

لإنشاء مجلد

تحتوي الفئة IsolatedStorageFile على أسلوب يقوم بإنشاء مجلدات داخل التخزين المعزول
' إنشاء مجلد في مخزن معزول

كود :

isf.CreateDirectory("Dir1")

لإنشاء مجلدات فرعية

كود :

isf.CreateDirectory("Dir1/Dir2")

لإنشاء ملف داخل المحتوى المعزول Store الحالي:

كود :

Dim isfs1 As IsolatedStorageFileStream = _
New IsolatedStorageFileStream("Rootfile.txt", _
FileMode.OpenOrCreate, FileAccess.Write, isf)

للكتابة داخل ملف موجود داخل المحتوى المعزول الحالي:

كود :

Dim isfs1 As IsolatedStorageFileStream = _
New IsolatedStorageFileStream("Rootfile.txt", _
FileMode.OpenOrCreate, FileAccess.Write, isf)

' يتم التعامل معه كأي stream
Dim sw As StreamWriter = New StreamWriter(isfs1)
sw.WriteLine("Isolated storage is keen.")
sw.WriteLine("You can treat it like a file.")
sw.Flush()
sw.Close()

القراءة من ملف داخل Store الحالي:

كود :

Dim isfs1 As IsolatedStorageFileStream = _
New IsolatedStorageFileStream("Rootfile.txt", _
FileMode.Open, FileAccess.Read, isf)


Dim sr As StreamReader = New StreamReader(isfs1)
Dim sw As StringWriter = New StringWriter()
While (sr.Peek() > -1)
sw.WriteLine(sr.ReadLine)
End While

MessageBox.Show(sw.ToString, _
"Isolated Storage contents")

لحذف ملف أو مجلد:

كود :

isf.DeleteFile("Dir3/Dir4/Anotherfile.txt")
isf.DeleteFile("Rootfile.txt")

لحذف مجلد فرعي:

كود :

isf.DeleteDirectory("Dir1/Dir2/")
isf.DeleteDirectory("Dir1/")