检测文件是否存在
如果需要了解一个特定的文件是否存在,你需要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
%>
页:
[1]