如何在通用应用程序中读取任意文件夹?

Friend Async Function GetLogFolder() As Task(Of StorageFolder)
    Dim myLogFolder As StorageFolder
    If ApplicationData.Current.LocalSettings.Values.ContainsKey("LogFolder") Then
        Dim sToken As String = ApplicationData.Current.LocalSettings.Values("LogFolder")
        myLogFolder = StorageApplicationPermissions.FutureAccessList.GetFileAsync(sToken)
    Else
        Dim myFolderPicker As FolderPicker = New FolderPicker
        myFolderPicker.FileTypeFilter.Add("*")
        myLogFolder = Await myFolderPicker.PickSingleFolderAsync

        Dim sToken As String = StorageApplicationPermissions.FutureAccessList.Add(myLogFolder)
        ApplicationData.Current.LocalSettings.Values.Add("LogFolder", sToken)
    End If
    Return myLogFolder
End Function

但这似乎不起作用。在这个阶段,我有一个只包含文本块和按钮的表单。单击按钮将调用一个方法,该方法将解析所有*。指定文件夹中的日志文件。它做的第一件事是:

Dim myFolder As StorageFolder = GetLogFolder.Result

当代码运行时,我单击按钮,会显示一个文件夹浏览器对话框,但随后所有内容都冻结,我必须切换到Visual Studio并点击停止。我可能犯了一些愚蠢的错误,但我不知道是什么。

任何帮助都将不胜感激。