ASP編程入門進階（十八）：FSO組件之檔案操作（下）

一，fso.GetFile
提取檔案相應的 File 對象

1，getfile.asp

<% whichfile=Server.MapPath("cnbruce.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(whichfile,true) f1.Write ("This is a test.My Name is cnbruce.") f1.Close Set f2 = fso.GetFile(whichfile) s = "檔案名稱：" & f2.name & "<br>" s = s & "檔案短路徑名：" & f2.shortPath & "<br>" s = s & "檔案物理地址：" & f2.Path & "<br>" s = s & "檔案屬性：" & f2.Attributes & "<br>" s = s & "檔案大小： " & f2.size & "<br>" s = s & "檔案類型： " & f2.type & "<br>" s = s & "檔案建立時間： " & f2.DateCreated & "<br>" s = s & "最近訪問時間: " & f2.DateLastAccessed & "<br>" s = s & "最近修改時間: " & f2.DateLastModified response.write(s) %>

其效果正如右鍵某檔案，看到的具體屬性資訊。
其中Attributes返回的數值“32”表示：（Archive）上次備份後已更改的檔案。可讀寫。

其它值附錄如下：

Normal 0 普通檔案。 沒有設定任何屬性。 ReadOnly 1 唯讀檔案。 可讀寫。 Hidden 2 隱藏檔案。 可讀寫。 System 4 系統檔案。 可讀寫。 Directory 16 檔案夾或目錄。 唯讀。 Archive 32 上次備份後已更改的檔案。 可讀寫。 Alias 1024 連結或捷徑。 唯讀。 Compressed 2048 壓縮檔。 唯讀。

二，file.move
作用將指定的檔案或檔案夾從某位置移動到另一位置。其實該方法仍然屬於fso.GetFile後的一個應用。

2，movefile.asp

<% whichfile=Server.MapPath("cnbruce.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(whichfile,true) f1.Write ("This is a test.My Name is cnbruce.") f1.Close Set f2 = fso.GetFile(whichfile) f2.Move "C:\" %> <a href="C:\">查看下有沒有</a>

簡單的剪下粘貼的功能實現。

三，File.Copy
同樣屬於fso.GetFile後的一個應用。就只是單純地拷貝檔案到某位置。

3，copyfile.asp

<% whichfile=Server.MapPath("cnbruce.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(whichfile,true) f1.Write ("This is a test.My Name is cnbruce.") f1.Close Set f2 = fso.GetFile(whichfile) f2.Copy "D:\" %> <a href="D:\">查看下有沒有</a>

和本ASP頁面同在目錄下的cnbruce.txt檔案依然存在。

四，file.Delete
很顯然，就是直接刪除檔案了。

4，delfile.asp

<% whichfile=Server.MapPath("cnbruce.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile(whichfile,true) f1.Write ("This is a test.My Name is cnbruce.") f1.Close Set f2 = fso.GetFile(whichfile) f2.move "d:\" Set f3 = fso.GetFile("d:\cnbruce.txt") f3.delete %> <a href="d:\">查看下是沒有該檔案的</a>

當然FSO還沒有結束，比如上傳檔案，ASP轉HTML等都需要用到FSO。更精彩的依然是在後面。