MIS2000 Lab -- ASP.NET專題實務 / WebForm + MVC線上教學影片

這是備份，原文請看我的網站 --  

http://www.dotblogs.com.tw/mis2000lab/archive/2010/05/27/fileupload_io_create_dir_20100527.aspx

上禮拜的課程，討論到書本的第十七章（檔案與 I/O）、第十八章（FileUpload控制項）

有學員問道：「如果上傳檔案的 時候，發現上傳的目錄不存在，能否自動開一個同名目錄？」

底下的範例，用 「******************************」特別註明的這一段   就是這個功能。

我們可以利用書 本裡面，原本就有的範例

      第十七章，範例 File_Log_2.aspx  （功能：發現此一目錄不存在，自動開一個同名目錄)

      修改一下第十八章的範例 1.aspx   （功能：最基礎的檔案上傳功能)

兩者組合起來就能完成這一個簡單的小功能。

這個範例可以放 在第十八章 FileUpload做 補充。

VB範例如下：

01     Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
02
03         '-- 註解：先設定好檔案上傳的路徑，這是Web Server電腦上的目錄。
04         Dim savePath As String = "C:\temp\uploads\"
05
06         '*******************************************
07         '** 需搭配 System.IO 命名空間
08         Dim my_Dir As String = "C:\temp\uploads\"
09
10         If Not Directory.Exists(my_Dir) Then
11             Directory.CreateDirectory(my_Dir)  '--如果這目錄不存在，就建立它。
12         End If
13         '*******************************************
14
15         If (FileUpload1.HasFile) Then
16             Dim fileName As String = FileUpload1.FileName
17
18             savePath = savePath & fileName
19
20             FileUpload1.SaveAs(savePath)
21
22             Label1.Text = "上傳成功，檔名---- " & fileName
23
24         Else
25             Label1.Text = "請先挑 選檔案之後，再來上傳"
26         End If
27
28     End Sub

C#範例如下：

01     protected void Button1_Click(object sender, EventArgs e)
02     ...{
03         //-- 註解：先設定好檔案上傳的路徑，這是Web Server電腦上的目錄。
04         //       C#語法在撰寫磁碟的目錄位置時，請留意以下的寫法：
05         string savePath = "c:\\temp\\uploads\\";
06
07
08         //************************************************
09         //** 需搭配 System.IO 命名空間
10         string my_Dir = "c:\\temp\\uploads\\" ;
11         if (!Directory.Exists(my_Dir))
12         ...{
13             Directory.CreateDirectory(my_Dir);  //--如果這目錄不存在，就建立它。
14         }
15         //************************************************
16
17
18         if (FileUpload1.HasFile)
19         ...{
20             string fileName = FileUpload1.FileName;
21
22             savePath = savePath + fileName;
23             FileUpload1.SaveAs(savePath);
24
25             Label1.Text = "上傳成功，檔名---- " + fileName;
26         }
27         else
28         ...{
29             Label1.Text = "請先挑 選檔案之後，再來上傳";
30         }
31     }

......  寄信給我    mis2000lab (at) 雅虎.com.台灣  ..............................................................................................................
ASP.NET 4.0 專題實務 (I)  （松崗出版，VB版  / C#版）

範 例比上一本書增加 166%，內容（頁數）增加 135%        上 / 下兩集 (2010年)已經出版囉 ～ 歡迎到此參加團購

ASP.NET專題實務(II)：範例集 與 4.0新功能（文魁出版）

.............................................................................................................. 寄信給我    mis2000lab (at) 雅虎.com.台灣 .......