ADOLPH 手抄印帳

'檢查是否有檔案

        'MyFiles為FileUpload物件
        If MyFiles.HasFile Then 

' 建立目錄物件類別
' FilePath則是我依照上面說的檔案的存放根目錄+文件編號組成的目錄路徑
            Dim dir As New DirectoryInfo(FilePath)

' 檢查目錄是否存在 不存在就建立目錄
            If Not dir.Exists Then
                dir.Create()
            End If

' 進行檔案上傳
            Try

               ' 把檔案利用FileUpload物件的SaveAs方法進行上傳 
               ' 要給予完整的存檔路徑加上檔名 其中一般檔案資料夾結構需要注意的事項要在組出路徑時就處理好 
               ' 例如 不能有特殊字元 根目錄/子目錄/檔案 之間的 "/"要注意別遺漏了

                MyFiles.SaveAs(FilePath & MyFiles.FileName)
                Return True

            Catch ex As Exception

                ' 上傳失敗時回傳一個布林值 尤其他程序處理 
                ' 因為我的Function是設計回傳布林值的參數 當然也可以設計成回傳其他東西
                Return False
            End Try 
        End If

'判斷檔案是否存在 
        ' fileName是已經從資了庫取出路徑 檔名 組合好的完整檔案所在路徑
        ' 例如 //fileserver/Share/DocNumber/test.pd
        If fileName IsNot Nothing And System.IO.File.Exists(fileName) Then 
            ' 從緩衝區資料流清除所有標頭 
            Response.ClearHeaders()

            ' 從緩衝區清除所有內容輸出 
            Response.Clear()

            ' 快取分鐘數 0 表示快取立刻過期 
            Response.Expires = 0

            ' 使用緩衝輸出 在資料流完整處理後輸出 
            Response.Buffer = True

            ' 加入HTTP標頭.應該是設定語言吧.... 
           Response.AddHeader("Accept-Language", "zh-tw")

            ' 加入HTTP標頭 設定所取得的文件內容是一個附加檔而不是內嵌資料 這樣就不會用瀏覽器去開啟 
            Response.ContentType = "application/save-as"            

            '  加入HTTP標頭設定 
            '  content-disposition 是 增加一個MIME部署 
            '  attachment 表示內容是一個附加檔 
            '  fileName就是上面說的檔案完整路徑 比較特別的是 路徑要經過 HttpUtility.UrlEncode 來對Url的路徑進行編碼處理 
            '  不然 在小弟環境中的測試 是會發生一些其奇怪怪的狀況 
            '  例如 檔案下載了 卻發生損毀 或者 找到檔案 要下載卻沒有檔名 檔名 是該網頁的名稱 類別不明 
            Response.AddHeader("content-disposition", "attachment ; filename=" & HttpUtility.UrlEncode(fileName))

            '  開始輸出 有的範例是使用 Response.Write() 我的測試 一樣會有怪狀況
            Response.WriteFile(fileName) 

            '  結束輸出 有的範例沒有...不過 我個人認為還是養成好習慣 東西開完 不用了就要關
            Response.End() 
        Else 
            Response.Write("找不到檔案") 
        End If