Welcome to the Lounge

'Take in any string, parse the information and returns the file from the users OneDrive
   Public Async Function RetrieveFile(FullPath As String) As Task(Of Windows.Storage.IStorageFile)

       Dim CurrentFolderInfo As Microsoft.Live.LiveOperationResult
       Dim CurrentlyFoundFolders As Microsoft.Live.LiveOperationResult
       Dim CurrentlyFoundFiles As Microsoft.Live.LiveOperationResult

       Dim FileName = ""
       Dim Result As Unidex.Reference.OldStructures.Strings = FullPath

       If Result.Items(0).ToLower <> "me" Then Throw New Exception("First word of path must be me!")


       Select Case Result.Items(1).ToLower
           Case "skydrive" : CurrentFolderInfo = Await Me.GetRootFolder
           Case "calendars" : CurrentFolderInfo = Await Me.GetCalendars
           Case "contacts" : CurrentFolderInfo = Await Me.GetContacts
           Case "events" : CurrentFolderInfo = Await Me.GetEvents
           Case Else : Throw New Exception("Second word of path is invalid!")
       End Select

       CurrentlyFoundFolders = Await Me.GetFolders(CurrentFolderInfo)

       For Each Current In Result.Separators
           Try
               Select Case Current.Separator
                   Case "/", "\"
                       Select Case Current.WordBefore
                           Case "", "me", "skydrive", "calendars", "contacts", "events"
                           Case Else
                               CurrentFolderInfo = Await Me.GetFolder(Current.WordBefore, CurrentlyFoundFolders)
                               CurrentlyFoundFolders = Await Me.GetFolders(CurrentFolderInfo)
                       End Select
                   Case "."
                       CurrentlyFoundFiles = Await Me.GetFiles(CurrentFolderInfo)
                       FileName = Current.WordBefore & "." & Current.WordAfter
                       Return Await Me.GetFile(CurrentFolderInfo, FileName)
               End Select
           Catch
           End Try
       Next

       Throw New Exception("Sequence completed without locating a filename.")
   End Function

'Get a Directory
   Public Async Function GetFolder(FolderName As String, FolderInfo As ResultsStructure) As Task(Of Microsoft.Live.LiveOperationResult)
       Dim SubFolder As ResultsStructure = FolderInfo.Results.FirstOrDefault(Function(f) f.Key = FolderName)
       Return Await LiveConnectClient.GetAsync(SubFolder.ID)
   End Function

   'Get the folders of a directory of any given name
   Public Async Function GetFolders(FolderInfo As ResultsStructure) As Task(Of Microsoft.Live.LiveOperationResult)
       Return Await LiveConnectClient.GetAsync(FolderInfo.ID & "/files?filter=folders")
   End Function


   'Get the files of a directory of any given name
   Public Async Function GetFiles(FolderInfo As ResultsStructure) As Task(Of Microsoft.Live.LiveOperationResult)
       Return Await LiveConnectClient.GetAsync(FolderInfo.ID & "/files")
   End Function


   'Get the URI of any given file name
   Public Async Function GetFile(FolderInfo As ResultsStructure, FileName As String) As Task(Of Microsoft.Live.LiveOperationResult)
       Dim File As ResultsStructure = FolderInfo.Results.FirstOrDefault(Function(f) f.Key = FileName)
       Return Await LiveConnectClient.GetAsync(File.DownloadPath)
   End Function


   'Create local target of the file in a temporary folder
   Public Async Function TemporaryStorageFile(FileName As String) As Task(Of Windows.Storage.StorageFile)
       Return Await Windows.Storage.ApplicationData.Current.TemporaryFolder.CreateFileAsync(FileName, Windows.Storage.CreationCollisionOption.ReplaceExisting)
   End Function



   'Set as background task for the OS the continue the process
   Public Async Function SetBackgroundTask(DownLoadPath As String, OutputFile As Windows.Storage.StorageFile) As Task(Of Microsoft.Live.LiveDownloadOperationResult)
       Return Await LiveConnectClient.BackgroundDownloadAsync(DownLoadPath, OutputFile)
   End Function