Dim dirNames As String() = isoFile.GetDirectoryNames("*")
Dim fileNames As String() = isoFile.GetFileNames("*")
Dim name As String

' List directories currently in this Isolated Storage.
If dirNames.Length > 0 Then

    For Each name In dirNames
        Console.WriteLine("Directory Name: " & name)
    Next name
End If

' List the files currently in this Isolated Storage.
' The list represents all users who have personal preferences stored for this application.
If fileNames.Length > 0 Then

    For Each name In fileNames
        Console.WriteLine("File Name: " & name)
    Next name
End If

' 导入命名空间
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