VB FileSystemObject对象实例详解

FileSystemObject对象被用来访问服务器上的文件系统。这个对象能够处理文件、文件夹和目录路径。用它来检索文件系统信息也是可能的。

下面的代码创建了一个文本文件，并写入了一些文本：

<%
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
%>

FileSystemObject对象的属性和方法如下：

一、属性

Drives：返回计算机上关于所有Drive对象的集。
语法：
[drivecoll=]FileSystemObject.Drives

二、方法

Bulidpath：给已存在的路径增加一个名字。
CopyFile：从一处复制一个或多个文件到另一处。
CopyFolder：从一处复制一个或多个文件夹到另一处。
CreateFolder：创建一个新的文件夹。
CreateTextFile：创建一个文本文件并返回一个TextStream对象用来读写所创建的文本文件。
DeleteFile：删除一个或多个指定的文件。
DeleteFolder：删除一个或多个指定的文件夹。
DriveExists：检查指定的驱动器是否存在。
FileExists：检查指定的文件是否存在。
FolderExists：检查指定的文件夹是否存在。
GetAbsolutePathName：返回指定路径的完整路径。
GetBaseName：返回指定文件或文件夹的基本名。
GetDrive：返回指定路径的在驱动器的相应Drive对象。
GetDriveName：返回指定路径的驱动器名。
GetExtensionName：返回指定路径中最后部分的文件扩展名。
GetFile：返回一个关于指定路径的文件对象。
GetFileName：返回指定路径中最后部分的文件名或文件夹名。
GetFolder：返回一个关于指定路径的文件夹对象。
GetParentFolderName：返回指定路径中最后部分的父文件夹名。
GetSpecialFolder：返回Windows某个专门文件夹的路径。
GetTempName：返回一个随机生成的临时文件或文件夹。
MoveFile：将一个或多个文件从一个地方移动到另一地方。
MoveFolder：将一个或多个文件从一个地方移动到另一地方。
OpenTextFile：打开一个文件并返回一个TextStream对象用来读写所打开的文件。

BuildPath方法

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:\mydocuments\test

CopyFile方法

CopyFile方法从一处复制一个或多个文件到另一处。

一、语法
FileSystemObject.CopyFile source,destination[,overwrite]
参数说明：
source：必须的。所要复制的文件。
destination：必须的。复制到的目的地。
overwrite：可选的。是个布尔值，它指出是否覆盖已存在的文件。True表示覆盖，False表示不覆盖。默认为True 。

二、例子

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

CopyFolder方法

CopyFolder方法一处复制一个或多个文件到另一处。

一、语法
FileSystemObject.CopyFolder source,destination[,overwrite]
参数说明：
source：必须的。所要复制的文件夹。
destination：必须的。复制到的目的地。
overwrite：可选的。是个布尔值，它指出是否覆盖已存在的文件。True表示覆盖，False表示不覆盖。默认为True 。

二、例子

<%
'copy all the folders in c:\mydocuments\web
'to the folder c:\webpages

dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\mydocuments\web\*","c:\webpages\"
set fs=nothing
%>

<%
'copy only the folder test from c:\mydocuments\web
'to the folder c:\webpages

dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\mydocuments\web\test","c:\webpages\"
set fs=nothing
%>

CreateFolder方法

CreateFolder方法创建一个新的文件夹。

一、语法

FileSystemObject.CreateFolder(name)
参数说明：
name：必须的。要创建的文件夹的名字。

二、例子

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

CreateTextFile方法

CreateTextFile方法在当前文件夹下创建一个新的文本文件，并返回一个TextStream对象用来读写这个新的文件。

一、语法

FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]])
FolderObject.CreateTextFile(filename[,overwrite[,unicode]])
参数说明：
filename：必须的。所要创建的文件的名字。
overwrite：可选的。是一布尔值，以指出是否覆盖已存在的文件。True表示覆盖，False表示不覆盖。默认为True 。
unicode：可选的。为一布尔值，指出所创建的文件是Unicode文件还是ASCII文件。True为Unicode文件，False为ASCII文件。默认是False。

二、例子

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方法

DeleteFile方法删除一个或多个指定的文件。
注意：如果试图删除不存在的文件将会发生错误。

一、语法

FileSys

以上就是VB FileSystemObject对象实例详解的详细内容，更多请关注0133技术站其它相关文章！