VB.Net by API/System.IO.IsolatedStorage/IsolatedStorageFileStream

Материал из VB Эксперт
Перейти к: навигация, поиск

IsolatedStorageFileStream.CreateDirectory

<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>


IsolatedStorageFileStream.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>


IsolatedStorageFileStream.DeleteFile

<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>


New 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>