VB.Net by API/System.IO.IsolatedStorage/IsolatedStorageFile — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
IsolatedStorageFile.CreateDirectory
<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>
IsolatedStorageFile.GetDirectoryNames
<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>
IsolatedStorageFile.GetFileNames
<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>