VB FileSystemObject对象实例详解
FileSystemObject是ASP开发中操作服务器文件系统的核心对象，提供Drives属性及二十多种方法，可创建、读取、修改、删除文件和文件夹，并支持驱动器、路径处理及文件对象属性与方法的调用，功能全面且易于使用。
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.txtGetBaseName 方法
返回文件或文件夹的基本名称（不带扩展名和路径）。
一、语法
FileSystemObject.GetBaseName(path)二、例子
<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetBaseName("c:winntcursors3dgarro.cur"))
set fs=nothing
%>
输出: 3dgarroGetDrive 方法
返回指定驱动器对应的 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
%>
输出: htmGetFile 方法
返回指定路径对应的 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 AMGetFileName 方法
返回路径中最后部分的文件名或文件夹名。
一、语法
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
%>
输出: testGetFolder 方法
返回指定路径的 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 AMGetParentFolderName 方法
返回路径中最后部分的父文件夹路径。
一、语法
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:winntcursorsGetSpecialFolder 方法
返回 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:WINNTsystem32GetTempName 方法
生成一个随机的临时文件名或文件夹名。
一、语法
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.tmpMoveFile 方法
移动一个或多个文件。
一、语法
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 对象）都有一系列属性，可以用来获取或设置文件元数据。下表整理了常用属性：
| 属性 | 描述 |
|---|---|
| Attributes | 设置或返回文件的属性 |
| DateCreated | 返回文件创建日期和时间 |
| DateLastAccessed | 返回文件最后访问日期和时间 |
| DateLastModified | 返回文件最后修改日期和时间 |
| Drive | 返回文件所在驱动器的盘符 |
| Name | 设置或返回文件名 |
| ParentFolder | 返回父文件夹的 Folder 对象 |
| Path | 返回文件的完整路径 |
| ShortName | 返回文件的短文件名（8.3 格式） |
| ShortPath | 返回文件的短路径 |
| Size | 返回文件字节数 |
| Type | 返回文件类型描述 |
Methods（文件对象的方法）
File 对象本身也提供了几个方法用于操作文件：
| 方法 | 描述 |
|---|---|
| Copy | 将文件复制到另一个位置 |
| Delete | 删除文件 |
| Move | 将文件移动到另一个位置 |
| OpenAsTextStream | 打开文件并返回 TextStream 对象 |
掌握 FileSystemObject 的这些属性和方法，基本上就可以随心所欲地处理服务器上的文件系统了。在实际项目中，注意权限控制和路径的正确性，就能避免大部分坑。
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
