检测文件是否存在

saintom · 发表于 2004-1-14 18:40:31

如果需要了解一个特定的文件是否存在，你需要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”)

%>

 名称：<%=Myfile.Name %>

 路径：<%=Myfile.Path %>

 驱动器：<%=Myfile.Drive %>

 大小：<%=Myfile.size %>

 类型：<%=Myfile.type %>

 属性：<%=Myfile.Attributes %>

 创建日期：<%=Myfile.DateCreated %>

 上次进入日期：<%=Myfile.LastAccessed %>

 上次修改日期：<%=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

%>

账号		自动登录	找回密码
密码			注册