VB FileSystemObject对象实例详解

FileSystemObject 是 ASP 开发中绕不开的一个核心对象，它为我们提供了直接操作服务器文件系统的能力。简单来说，你可以在网页后台轻松地创建、读取、修改和删除文件与文件夹，甚至可以处理驱动器和目录路径。下面这段代码演示了如何创建一个文本文件并写入内容，这是最基础的用法：

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>

搞懂这个对象，关键在于掌握它的两个组成部分：属性和方法。下面我们逐一拆解。

一、属性

Drives：返回计算机上所有 Drive 对象的集合。语法很简单：

[drivecoll=]FileSystemObject.Drives

二、方法

FileSystemObject 提供了二十多个方法，覆盖了文件、文件夹、路径和驱动器的常规操作。先快速浏览一下完整清单：

• Bulidpath、CopyFile、CopyFolder、CreateFolder、CreateTextFile、DeleteFile、DeleteFolder
• DriveExists、FileExists、FolderExists、GetAbsolutePathName、GetBaseName
• GetDrive、GetDriveName、GetExtensionName、GetFile、GetFileName
• GetFolder、GetParentFolderName、GetSpecialFolder、GetTempName
• MoveFile、MoveFolder、OpenTextFile

接下来对每个方法做详细说明，附带语法和实际代码示例。

BuildPath 方法

给已有路径追加一个名字，相当于路径拼接。

一、语法

[newpath=]FileSystemObject.BuildPath(path,name)

参数：path 是现有路径，name 是要追加的名称。

二、例子

<%
dim fs,path
set fs=Server.CreateObject("Scripting.FileSystemObject")
path=fs.BuildPath("c:mydocuments","test")
response.write(path)
set fs=nothing
%>

输出：c:mydocumentstest

CopyFile 方法

将文件从一个位置复制到另一个位置，支持通配符。

一、语法

FileSystemObject.CopyFile source,destination[,overwrite]

source 指定要复制的文件，destination 指定目标路径，overwrite 为布尔值（默认 True）表示是否覆盖已有文件。

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:mydocumentsweb*.htm","c:webpages"
set fs=nothing
%>

CopyFolder 方法

复制文件夹，用法与 CopyFile 类似。

一、语法

FileSystemObject.CopyFolder source,destination[,overwrite]

二、例子

'复制所有文件夹
<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:mydocumentsweb*","c:webpages"
set fs=nothing
%>

'只复制 test 子文件夹
<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:mydocumentswebtest","c:webpages"
set fs=nothing
%>

CreateFolder 方法

创建一个新文件夹。

一、语法

FileSystemObject.CreateFolder(name)

二、例子

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("c:asp")
set f=nothing
set fs=nothing
%>

CreateTextFile 方法

创建一个文本文件并返回 TextStream 对象供后续读写。这个方法可以从 FileSystemObject 调用，也可以从 Folder 对象调用。

一、语法

FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]])
FolderObject.CreateTextFile(filename[,overwrite[,unicode]])

overwrite 默认为 True，unicode 默认为 False（ASCII）。

二、例子

从 FileSystemObject 创建：

<%
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile("c:somefile.txt")
tfile.WriteLine("Hello World!")
tfile.close
set tfile=nothing
set fs=nothing
%>

从 Folder 对象创建：

<%
dim fs,fo,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:test")
Set tfile=fo.CreateTextFile("test.txt",false)
tfile.WriteLine("Hello World!")
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%>

DeleteFile 方法

删除一个或多个指定文件。注意：如果文件不存在会报错。

一、语法

FileSystemObject.DeleteFile(filename[,force])

force 为 True 时可删除只读文件。

二、例子

<%
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile("c:test.txt",True)
if fs.FileExists("c:test.txt") then
  fs.DeleteFile("c:test.txt")
end if
set fs=nothing
%>

DeleteFolder 方法

删除一个或多个文件夹。同样，不存在的文件夹会报错。

一、语法

FileSystemObject.DeleteFolder(foldername[,force])

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists("c:temp") then
  fs.DeleteFolder("c:temp")
end if
set fs=nothing
%>

DriveExists 方法

检查指定驱动器是否存在，返回布尔值。

一、语法

FileSystemObject.DriveExists(drive)

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.DriveExists("c:")=true then
  response.write("Drive c: exists!")
else
  response.write("Drive c: does not exist.")
end If
set fs=nothing
%>

FileExists 方法

检查指定文件是否存在。

一、语法

FileSystemObject.FileExists(filename)

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("c:aspintroduction.asp")=true then
  response.write("File c:aspintroduction.asp exists!")
else
  response.write("File c:aspintroduction.asp does not exist!")
end if
set fs=nothing
%>

FolderExists 方法

检查文件夹是否存在。

一、语法

FileSystemObject.FolderExists(foldername)

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists("c:asp")=true then
  response.write("Folder c:asp exists!")
else
  response.write("Folder c:asp does not exist!")
end if
set fs=nothing
%>

GetAbsolutePathName 方法

将相对路径转换为绝对路径。

一、语法

FileSystemObject.GetAbsolutePathName(path)

二、例子

假设当前目录为 c:temptest：

'例1
<%
dim fs,path
set fs=Server.CreateObject("Scripting.FileSystemObject")
path=fs.GetAbsolutePathName("c:")
response.write(path)
%>
输出: c:temptest

'例2
<%
dim fs,path
set fs=Server.CreateObject("Scripting.FileSystemObject")
path=fs.GetAbsolutePathName("mydoc.txt")
response.write(path)
%>
输出: c:temptestmydoc.txt

'例3
<%
dim fs,path
set fs=Server.CreateObject("Scripting.FileSystemObject")
path=fs.GetAbsolutePathName("privatemydoc.txt")
response.write(path)
%>
输出: c:temptestprivatemydoc.txt

GetBaseName 方法

返回文件或文件夹的基本名称（不带扩展名和路径）。

一、语法

FileSystemObject.GetBaseName(path)

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetBaseName("c:winntcursors3dgarro.cur"))
set fs=nothing
%>
输出: 3dgarro

GetDrive 方法

返回指定驱动器对应的 Drive 对象。

一、语法

FileSystemObject.GetDrive(drivespec)

drivespec 可以是 c、c:、c:\ 或网络共享路径。

二、例子

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
set fs=nothing
%>

GetDriveName 方法

返回路径中的驱动器名（如 c:）。

一、语法

FileSystemObject.GetDriveName(path)

二、例子

<%
dim fs,dname
set fs=Server.CreateObject("Scripting.FileSystemObject")
dname=fs.GetDriveName("c:testtest.htm")
Response.Write(dname)
set fs=nothing
%>
输出: c:

GetExtensionName 方法

获取文件扩展名。

一、语法

FileSystemObject.GetExtensionName(path)

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetExtensionName("c:testtest.htm"))
set fs=nothing
%>
输出: htm

GetFile 方法

返回指定路径对应的 File 对象，从而可以读取文件属性（如最后修改时间）。

一、语法

FileSystemObject.GetFile(path)

二、例子

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:testtest.htm")
Response.Write("The file was last modified on: ")
Response.Write(f.DateLastModified)
set f=nothing
set fs=nothing
%>
输出: The file was last modified on 01/01/20 4:23:56 AM

GetFileName 方法

返回路径中最后部分的文件名或文件夹名。

一、语法

FileSystemObject.GetFileName(path)

二、例子

'返回文件名
<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename("c:testtest.htm")
response.write(p)
set fs=nothing
%>
输出: test.htm

'返回文件夹名
<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.getfilename("c:test")
response.write(p)
set fs=nothing
%>
输出: test

GetFolder 方法

返回指定路径的 Folder 对象，可获取文件夹属性。

一、语法

FileSystemObject.GetFolder(path)

二、例子

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder("c:test")
Response.Write("The folder was last modified on: ")
Response.Write(f.DateLastModified)
set f=nothing
set fs=nothing
%>
输出: The folder was last modified on 01/01/20 4:23:56 AM

GetParentFolderName 方法

返回路径中最后部分的父文件夹路径。

一、语法

FileSystemObject.GetParentFolderName(path)

二、例子

<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetParentFolderName("c:winntcursors3dgarro.cur")
Response.Write(p)
set fs=nothing
%>
输出: c:winntcursors

GetSpecialFolder 方法

返回 Windows 系统特殊文件夹的路径，比如 Windows 目录、System 目录和临时文件夹。

一、语法

FileSystemObject.GetSpecialFolder(foldername)

foldername取值：0=WindowsFolder，1=SystemFolder，2=TemporaryFolder。

二、例子

<%
dim fs,p
set fs=Server.CreateObject("Scripting.FileSystemObject")
set p=fs.GetSpecialFolder(1)
Response.Write(p)
set p=nothing
set fs=nothing
%>
输出: C:WINNTsystem32

GetTempName 方法

生成一个随机的临时文件名或文件夹名。

一、语法

FileSystemObject.GetTempName

二、例子

<%
dim fs,tfolder,tname,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set tfolder=fs.GetSpecialFolder(2)
tname=fs.GetTempName
Set tfile=tfolder.CreateTextFile(tname)
Response.write(tfile)
%>
输出: trb2007.tmp

MoveFile 方法

移动一个或多个文件。

一、语法

FileSystemObject.MoveFile source,destination

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile "c:web*.gif","c:images"
set fs=nothing
%>

MoveFolder 方法

移动一个或多个文件夹。

一、语法

FileSystemObject.MoveFolder source,destination

二、例子

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFolder "c:testweb","c:windows"
set fs=nothing
%>

OpenTextFile 方法

打开一个文件并返回 TextStream 对象，可进行读写或追加操作。

一、语法

FileSystemObject.OpenTextFile(fname,mode,create,format)

参数说明：mode 为 1（只读）、2（写入）、8（追加）；create 布尔值表示是否创建不存在的文件；format 指定文件格式（0=ASCII，-1=Unicode，-2=系统默认）。

二、例子

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("testread.txt"),8,true)
f.WriteLine("This text will be added to the end of file")
f.Close
set f=Nothing
set fs=Nothing
%>

Property（文件对象的属性）

每个文件（File 对象）都有一系列属性，可以用来获取或设置文件元数据。下表整理了常用属性：

Methods（文件对象的方法）

File 对象本身也提供了几个方法用于操作文件：

掌握 FileSystemObject 的这些属性和方法，基本上就可以随心所欲地处理服务器上的文件系统了。在实际项目中，注意权限控制和路径的正确性，就能避免大部分坑。