Moving Files Between Azure Blob Storage Using F#
December 23, 2014 1 Comment
Dear Future Jamie:
In case you forget (again) about how to move files from one container to another on Azure Blob Storage, here is the code:
1 //http://azure.microsoft.com/en-us/documentation/articles/storage-dotnet-how-to-use-blobs/#configure-access 2 3 #r "../packages/WindowsAzure.Storage.4.3.0/lib/net40/Microsoft.WindowsAzure.Storage.dll" 4 5 open Microsoft.WindowsAzure.Storage 6 open Microsoft.WindowsAzure.Storage.Auth 7 open Microsoft.WindowsAzure.Storage.Blob 8 open System.IO 9 10 let connectionString = "youconnectionStringHere" 11 let storageAccount = CloudStorageAccount.Parse(connectionString) 12 let blobClient = storageAccount.CreateCloudBlobClient() 13 14 let sourceContainer = blobClient.GetContainerReference("source") 15 let targetContainer = blobClient.GetContainerReference("target") 16 17 let copyBlob (sourceBlob:CloudBlockBlob) = 18 sourceBlob.FetchAttributes() 19 let blobName = sourceBlob.Name 20 let arrayLength = int sourceBlob.Properties.Length 21 let byteArray = Array.zeroCreate(arrayLength) 22 sourceBlob.DownloadToByteArray(byteArray,0) |> ignore 23 24 let targetBlob = targetContainer.GetBlockBlobReference(blobName) 25 targetBlob.UploadFromByteArray(byteArray,0,arrayLength) 26 27 let sourceBlobs = sourceContainer.ListBlobs() 28 sourceBlobs |> Seq.map(fun b -> b :?> CloudBlockBlob) 29 |> Seq.iter(fun b -> copyBlob b) 30 31 32 let result = targetContainer.ListBlobs() 33 Seq.length result
Love,
Jamie from Dec 2014
PS: You really should exercise more….
Jamie Dixon's Home 
You should also consider using Azure’s native CopyBlob API which can do a lot of the heavy lifting for you. Particularly important is that in the above solution you will pay for both ingress and egress costs. Azure CopyBlob does the copy entirely by itself, so you don’t have to download the blob to your machine first. This is particularly useful if you have a really big file.
The downsides are that CopyBlob only allowed two files per account to transfer in parallel, and you aren’t guaranteed any performance minimums.