如何获得所有文件isostorage

Question

我想列出对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 

Answer 1

我不是一个VB.NET开发的子目录，所以我用一个转换器从我的转换old C# version。看看这有助于阅读所有目录：

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 tool代替。