Dim connstr As String = String.Format("DefaultEndpointsProtocol=https;AccountName={0};AccountKey={1};", accountName, accountKey) Dim storageAccount As CloudStorageAccount = CloudStorageAccount.Parse(connstr) '//建立 Blob 服務用戶端 '//CloudBlobClient 類別可擷取 Blob 儲存體中儲存的容器和 Blob Dim blobClient As CloudBlobClient = storageAccount.CreateCloudBlobClient() '//依照名稱找尋容器 Dim container As CloudBlobContainer = blobClient.GetContainerReference(containerName) '//如果容器不存在就建立 container.CreateIfNotExists() '//設定容器權限權限 container.SetPermissions(New BlobContainerPermissions With {.PublicAccess = access}) Dim tempF as new HttpPostedFileBase Dim blockBlob As CloudBlockBlob = container.GetBlockBlobReference(tempF.FileName) blockBlob.Properties.ContentType = tempF.ContentType Dim ms As MemoryStream tempF.InputStream.CopyTo(ms) ms.Seek(0, SeekOrigin.Begin) '使用MemoryStream 務必要使用seek 將指標回到起點 blockBlob.UploadFromStream(ms) Dim Url As String = blockBlob.StorageUri....