VB.Net Tutorial/Stream File/IsolatedStorageFile
Версия от 19:40, 26 мая 2010; (обсуждение)
Содержание
Create IsolatedStorageFile
<source lang="vbnet">Imports System.IO.IsolatedStorage
Public Class Tester
Public Shared Sub Main Dim myIsoStore As IsolatedStorageFile Dim myISS As IsolatedStorageScope Try myISS = IsolatedStorageScope.Domain Or IsolatedStorageScope.Assembly Or IsolatedStorageScope.User myIsoStore = IsolatedStorageFile.GetStore(myISS, Nothing, Nothing) Catch ex As IsolatedStorageException Console.WriteLine(ex.Message) End Try End Sub
End Class</source>
Create IsolatedStorageFileStream
<source lang="vbnet">Imports System.IO.IsolatedStorage
Public Class Tester
Public Shared Sub Main Dim myIsoStore As IsolatedStorageFile Try myIsoStore.CreateDirectory("newDir") Dim myIsoStroeStream As New IsolatedStorageFileStream("test.txt", IO.FileMode.Create.Create, myIsoStore) myIsoStroeStream.Close() Catch ex As IsolatedStorageException Console.WriteLine(ex.Message) End Try End Sub
End Class</source>
Get Directory and Files in an IsolatedStorageFile
<source lang="vbnet">Imports System.IO.IsolatedStorage Public Class Tester
Public Shared Sub Main Dim strFile As String Dim strDir As String Dim myIsoStore As IsolatedStorageFile Try For Each strDir In myIsoStore.GetDirectoryNames("*") Console.WriteLine(strDir) For Each strFile In myIsoStore.GetFileNames(strDir + "/*.*") Console.WriteLine(strFile) Next Next Catch ex As IsolatedStorageException Console.WriteLine(ex.Message) End Try End Sub
End Class</source>
Use IsolatedStorageFile.DeleteFile, DeleteDirectory
<source lang="vbnet">Imports System.IO.IsolatedStorage Public Class Tester
Public Shared Sub Main Dim myIsoStore As IsolatedStorageFile Try myIsoStore.CreateDirectory("oldDir") Dim myIsoStroeStream As New IsolatedStorageFileStream("oldDir/oldFile", IO.FileMode.Create.Create, myIsoStore) myIsoStroeStream.Close() myIsoStore.DeleteDirectory("oldDir") myIsoStore.DeleteFile("oldeDir/oldFile") Catch ex As IsolatedStorageException Console.WriteLine(ex.Message) End Try
End Sub
End Class</source>