ASP编程入门进阶（4）：FSO组件之文件操作（下）

ASP编程入门进阶（4）：FSO组件之文件操作（下）2010-02-25一，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>

简单的剪切粘贴的功能实现。