<<<返回

检测文件是否存在
如果需要了解一个特定的文件是否存在，你需要FileSystemObject对象的FileExists()方法，只需要传递其物理地址就可以从返回值是True和False来判断其是否存在，下面就是这样一个例子： <HTML> <HEAD><TITLE>文件是否存在示例</TITLE></HEAD> <BODY> <%
MySelf=Request.ServerVariables(“PATH_TRANSLATED”)
‘创建一个FileSystemObject对象事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
IF MyFileObject.FileExists(“MySelf”)
Response.write(“存在这个文件”)
Else
Response.write(“不存在这个文件”)
END IF
%>
</BODY>
</HTML>
这个脚本就是检查是否存在一个指定的文件，在本例中，显然是存在的，因为MySelf就是当前这个文件（这里面使用了ServerVariables变量PATH_TRANSLATED来获取当前文件的物理地址），当前这个文件无论如何肯定是存在的，因此返回值肯定是TRUE，那么显示为
存在这个文件
接受文件属性
当处理文件时，有些属性是需要了解的，下面是File对象的属性列表：
·Attributes.这个属性类似于Dos命令的Attrib，显示当前文件的系统属性。例如Read-Only，Hidden，System等等
·DateCreated.这个属性返回文件创建的时间和日期。
·DateLastAccessed.这个属性返回该文件上一次被使用的日期和时间
·DateLastModified.这个属性返回该文件上一次被修改的日期和时间
·Drive. 这个属性返回值为该文件所在的驱动器
·Name.这个属性返回该文件文件名
·ParentFolder.这个属性返回值为该文件所处的文件夹
·Path.返回该文件的全路径
·Size.返回该文件的字节数
·Type.返回该文件类型，例如Text文本，Asp文件，或者网络资源(HTML)
在使用这些属性之前，依然首先需要创建一个File对象的事例。下一个例子就是显示c:\test.txt的各项属性。
<HTML>
<HEAD><TITLE>xxx网络ASP教程之文件属性示例</TITLE></HEAD>
<BODY>
<%
‘创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
‘创建一个File对象的事例
Set Myfile=MyFileObject.GetFile(“c:\test.txt”)
%>
<Br>名称：<%=Myfile.Name %>
<Br>路径：<%=Myfile.Path %>
<Br>驱动器：<%=Myfile.Drive %>
<Br>大小：<%=Myfile.size %>
<Br>类型：<%=Myfile.type %>
<Br>属性：<%=Myfile.Attributes %>
<Br>创建日期：<%=Myfile.DateCreated %>
<Br>上次进入日期：<%=Myfile.LastAccessed %>
<Br>上次修改日期：<%=Myfile.LassModified %>
</BODY>
</HTML>
那么显示结果如下：
名称：test.txt
路径：c:\test.txt
驱动器：C:
大小：572
类型：Text Document
属性：34
创建日期：4/21/98 4:55:23 PM
上次进入日期：4/25/98
上次修改日期：4/25/98 6:33:22 PM
Attributes属性需要解释，它的返回值是对应于下表的数字：
Attribute
值
Normal
0
Read-Only
1
Hidden
2
System
4
Volume
8
Directory
16
Archive
32
Alias
64
Compressed
128
那么，由于这里面属性为Archive和Hidden，所以结合起来就是2(Hidden)+32(Archieve)=34，从数学上可以理解，每一个整数对应这样的2的幂次的累加和肯定是唯一的，
这些属性还可以进行设置，例如，使c:\test.txt变成具有Archieve,Read-Only两种属性 ，那么用下面这个脚本
<%
‘创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject(“Scripting.FileSystemObject”)
‘创建一个File对象的事例
Set Myfile=MyFileObject.GetFile(“c:\test.txt”)
‘进行属性设置
MyFile.attributes=31
%>