Imports System
Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Collections

Public Module modmain

    Sub Main()

        ' Get an isolated store for this assembly and put it into an
        ' IsolatedStorageFile object.

        Dim isoStore As IsolatedStorageFile
        isoStore = IsolatedStorageFile.GetStore(IsolatedStorageScope.User Or IsolatedStorageScope.Assembly Or IsolatedStorageScope.Domain, Nothing, Nothing)

        ' This code creates a few files so that they can be enumerated.

        Dim FileA As IsolatedStorageFileStream
        FileA = New IsolatedStorageFileStream("TestFileA.Txt", FileMode.Create, isoStore)
        Dim FileB As IsolatedStorageFileStream
        FileB = New IsolatedStorageFileStream("TestFileB.Txt", FileMode.Create, isoStore)
        Dim FileC As IsolatedStorageFileStream
        FileC = New IsolatedStorageFileStream("TestFileC.Txt", FileMode.Create, isoStore)
        Dim FileD As IsolatedStorageFileStream
        FileD = New IsolatedStorageFileStream("TestFileD.Txt", FileMode.Create, isoStore)

        FileA.Close()
        FileB.Close()
        FileC.Close()
        FileD.Close()

        ' There might be a small delay between when the above code
        ' executes and when the files are created in the store. 
        ' Closing and opening the store in this example ensures that
        ' the common language runtime has finished creating the files.

        isoStore.Close()
        isoStore = IsolatedStorageFile.GetStore(IsolatedStorageScope.User Or IsolatedStorageScope.Assembly, Nothing, Nothing)


        ' This line of code calls a method at the bottom of the program
        ' that puts all the files in isoStore into an IEnumerator.

        Dim allFiles As IEnumerator
        allFiles = EnumerateTheStore(isoStore)

        Dim totalSize As Long

        ' This code counts up the sizes of all the stores.

        While (allFiles.MoveNext())
            Dim store As IsolatedStorageFile

            ' Explicity convert the current object in allFiles
            ' into an IsolatedStorageFile.

            store = CType(allFiles.Current, IsolatedStorageFile)

            ' Find the current size of the IsolatedStorageFile as
            ' an UInt64, and convert that to a string. Get the value
            ' of the string as a double and convert that to a Long.

            totalSize += CLng(Val(store.CurrentSize.ToString))

        End While

        ' Print out the value.

        System.Console.WriteLine("The size of all the isolated stores in the user scope = " + totalSize.ToString)

    End Sub

    Function EnumerateTheStore(ByVal isoStore As IsolatedStorageFile) As IEnumerator

        Return isoStore.GetEnumerator(IsolatedStorageScope.User)

    End Function
End Module