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
|