ListAllBlobsInBlobContainer.fs

//package Microsoft.WindowsAzure.Storage
open Microsoft.WindowsAzure.Storage
let getBlobsInDirectory storageKey containerName =
    let acct = CloudStorageAccount.Parse(storageKey)
    let client = acct.CreateCloudBlobClient()
    let container = client.GetContainerReference(containerName)
    let rec getBlobs (d: string) t blobs =
        async {
            let! response = container.ListBlobsSegmentedAsync(d,true,BlobListingDetails.None,Nullable<int>(20),t,null,null) |> Async.AwaitTask
            let result = response.Results |> Seq.map (fun i -> i :?> CloudBlockBlob) |> Seq.fold (fun s y -> y::s) blobs
            match response.ContinuationToken with
            | null ->  return result |> List.rev
            | x -> return! getBlobs d x result
        }
    fun (dir: string) ->
        async {
            return! getBlobs dir null []
        }