Как получить все файлы в подкаталоге isostorage - PullRequest
Новая
       3

Как получить все файлы в подкаталоге isostorage

0 голосов
/ 15 января 2012

Я хочу перечислить все файлы в подкаталоге на istostorage 

Public Function GetAllFilesInDirectory(ByVal DirectoryName As String) As List(Of String)
        Dim isoStore As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForApplication()

        Dim L As New List(Of String)
        For Each di As String In isoStore.GetDirectoryNames
            If di = DirectoryName Or di & "/" = DirectoryName Then

                For Each fi As String In isoStore.GetFileNames'<-- fails because not the subdirectory is listed
                    If fi.StartsWith(DirectoryName) Then L.Add(fi)
                Next
            End If
        Next

        Return L
End Function

1 Ответ

1 голос
/ 15 января 2012

Я не разработчик VB.NET, поэтому я использовал конвертер для конвертации из моей старой версии C # . Посмотрите, поможет ли это прочитать все каталоги: 

Public Shared Sub GetIsolatedStorageView(pattern As String, storeFile As IsolatedStorageFile)   

    Dim root As String = System.IO.Path.GetDirectoryName(pattern)

    If root <> "" Then
        root += "/"
    End If

    Dim directories As String() = storeFile.GetDirectoryNames(pattern)
    'if the root directory has no FOLDERS, then the GetFiles() method won't be called.
    'the line below calls the GetFiles() method in this event so files are displayed
    'even if there are no folders
    If directories.Length = 0 Then
        GetFiles(root, "*", storeFile)
    End If


    For i As Integer = 0 To directories.Length - 1
        Dim dir As String = directories(i) + "/"



        'Write to output window
        Debug.WriteLine(root + directories(i))


        'Get all the files from this directory
        GetFiles(root + directories(i), pattern, storeFile)

        'Continue to get the next directory  
             GetIsolatedStorageView(root + dir + "*", storeFile)
    Next


End Sub

Private Shared Sub GetFiles(dir As String, pattern As String, storeFile As IsolatedStorageFile)

    Dim fileString As String = System.IO.Path.GetFileName(pattern)

    Dim files As String() = storeFile.GetFileNames(pattern)    


    Try
        For i As Integer = 0 To storeFile.GetFileNames(dir + "/" + fileString).Length - 1    
            'Files are prefixed with "--" 
            Debug.WriteLine("--" + dir + "/" + storeFile.GetFileNames(dir + "/" + fileString)(i))
        Next

    Catch ise As IsolatedStorageException
        Debug.WriteLine("An IsolatedStorageException exception has occurred: " + ise.InnerException)

    Catch e As Exception

        Debug.WriteLine("An exception has occurred: " + e.InnerException)
    End Try


End Sub

Если вы хотите использовать его в целях разработки, вы можете использовать вместо него инструмент wp7explorer .

...