如何獲得所有文件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代替。