一、学前实例
例子：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
CreateObject 函数返回 FileSystemObject 对象 (fso)
CreateTextFile 方法创建一个文件作为 TextStream 对象，然后 WriteLine 方法在此文件中写入一行文本，最后 Close 方法刷新缓冲区并关闭文件。
二、方法
1、BuildPath
描述：向现有路径后添加名称。
语法：object.BuildPath(path, name)
解释：object应为 FileSystemObject 返回的对象的名称。
path要附加name的现有路径，可以是绝对或相对路径且无需指定现有文件夹。
name必选项。要附加到现有 path 的名称。
例子：
Dim fso, newpath
Set fso = CreateObject("Scripting.FileSystemObject")
path="c:\program files"
newpath = fso.BuildPath(path, "microsoft")
GetBuildPath = newpath
msgbox GetBuildPath
将会显示c:\program files\microsoft
2、CopyFile
描述：将一个或多个文件从某位置复制到另一位置。
语法：object.CopyFile "source", "destination"[, overwrite]
解释：object必选项。应为 FileSystemObject 对象的名称。
source必选项。表示指定文件的字符串。要复制一个或多个文件时，文件名中可以有通配符。
destination必选项。表示目标位置的字符串，从 source 复制文件到该位置。不允许用通配符。
overwrite可选项。Boolean 值表明是否覆盖现有文件。如果是 True，则覆盖文件；如果是 False，则不覆盖现有文件。默认值是 True。要注意，无论 overwrite 设置为何值，只要设置 destination 为只读属性，CopyFile 操作就无法完成。
例子
Dim fso, newpath
Set fso = CreateObject("Scripting.FileSystemObject")
将会复制那个文本文档到d盘，并且会改名称，如果指定目标为"d:\"就会不改名称。
3、CopyFolder
描述：将文件夹从某位置递归复制到另一位置。
语法：object.CopyFolder source, destination[, overwrite]
解释：object必选项。应为 FileSystemObject 对象的名称。
source必选项。表示指定文件夹的字符串。要复制一个或多个文件夹时，可使用通配符。
destination必选项。表示目标位置的字符串，复制 source 文件夹或子文件夹到该位置。不允许用通配符。
overwrite可选项。Boolean 值表明是否覆盖现有文件夹。如果为 True，则覆盖文件；如果为 False，则不覆盖文件。默认值是 True。
例子：
Dim fso, newpath
Set fso = CreateObject("Scripting.FileSystemObject")
4、CreateFolder
描述：创建文件夹
语法：object.CreateFolder(foldername)
解释：object必选项。应为 FileSystemObject 对象的名称。
foldername必选项。字符串表达式，指明要
创建的文件夹。
例子1：
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("c:\New Folder")
例子2：
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
msgbox f
将会显示c:\New Folder
5：CreateTextFile
描述：创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。
语法：object.CreateTextFile(filename[, overwrite[, unicode]])
解释：object必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename必选项。字符串表达式，指明要创建的文件。
overwrite可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为  True，如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。
unicode可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
例子：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
6、DeleteFile
描述：删除指定的文件。
语法：object.DeleteFile filespec[, force]
解释：object必选项。应为 FileSystemObject 的名称。
filespec必选项。要删除的文件名。filespec 在路径的最后一个组成部分中可包含通配符。
force可选项。Boolean 值。如果要删除只读文件，则该值为 True；否则为 False（默认）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
fso.deletefile("c:\")
7：DeleteFolder
描述：删除指定的文件夹和其中的内容。
语法：object.DeleteFolder folderspec[, force]
解释：object必选项。应为 FileSystemObject 的名称。
folderspec必选项。要删除的文件夹名称。folderspec 在路径的最后一个组成部分中可包含通配符。
force可选项。Boolean 值。如果要删除只读文件夹，则该值为 True； 否则为 False（默认）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
fso.deletefolder("c:\test")
8、DriveExists
描述：如果指定的驱动器存在，则返回 True；否则返回 False。
语法：object.DriveExists(drivespec)
解释：object必选项。应为 FileSystemObject 对象的名称。
drivespec必选项。驱动器号或指定的完整路径。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.driveexists("c")
注意：必须加上引号，驱动器冒号可以不加。
9、FileExists
描述：如果指定的文件存在返回 True；否则返回 False。
语法：object.FileExists(filespec)
解释
：object必选项。应为 FileSystemObject 对象的名称。
filespec必选项。文件名，表示要确定是否存在的文件。如果文件不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.fileexists("c:\")
10、FolderExists
描述：如果指定的文件夹存在，则返回 True；否则返回 False。
语法：object.FolderExists(folderspec)
解释：object必选项。应为 FileSystemObject 的名称。
folderspec必选项。文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.folderexists("c:\test")
11、GetAbsolutePathName
描述：从提供的指定路径中返回完整且含义明确的路径。
语法：object.GetAbsolutePathName(pathspec)
解释：object必选项。应为 FileSystemObject 的名称。
pathspec必选项。指定的路径，该路径要转换为完整且含义明确的路径。
例子1：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.GetAbsolutePathName("")
会得到"当前路径"
例子2:
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.GetAbsolutePathName("ddd\aaa")
会得到"当前路径\ddd\aaa"
12、GetBaseName
描述：返回字符串，其中包含文件的基本名 (不带扩展名), 或者提供的路径说明中的文件夹。
语法：object.GetBaseName(path)
解释：object必选项。应为 FileSystemObject 的名称。
path必选项。指定文件或文件夹的路径，要返回其组成部分的基本名。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.GetbaseName("c:\")
将会显示"test"
13、GetDrive
描述：返回与指定的路径中驱动器相对应的 Drive 对象。
语法：object.GetDrive drivespec
解释：object必选项。应为 FileSystemObject 的名称。
drivespec必选项。drivespec 可以是驱动器号 (c)、带冒号的驱动器号 (c:)、带有冒号与路径分隔符的驱动器号 (c:\) 或任何指定的网络共享 (\\computer2\share1)，但是不能包含文件夹或路径。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getdrive("c:")
将会返回c:
14、GetDriveName
描述：返回包含指定路径中驱动器名的字符串。
语法：object.GetDriveName(path)
解释：object必选项。应为 FileSystemObject 的名称。
path必选项。指定路径或者文件名，要返回其组成部分的驱动器名。
例子:
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getdrivename("c:")
会返回"c:"
15、GetExtensionName
描述：返回字符串，该字符串包含路径最后一个组成部分的扩展
名。
语法：object.GetExtensionName(path)
解释：object必选项。应为 FileSystemObject 的名称。
path必选项。指定路径，用于返回其组成部分的扩展名。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getextensionname("c:")
将会返回"txt"
16、GetFile
描述：返回与指定路径中某文件相应的 File 对象。
语法：object.GetFile(filespec)
解释：object必选项。应为 FileSystemObject 的名称。
filespec必选项。filespec 是指定文件的路径（绝对路径或相对路径）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getfile("")
比如本文件夹下有个文件，即可得到这个文件的绝对路径
17、GetFileName
描述：返回指定路径（不是指定驱动器路径部分）的最后一个文件或文件夹。
语法：object.GetFileName(pathspec)
解释：object必选项。应为 FileSystemObject 的名称。
pathspec必选项。指定文件的路径（绝对路径或相对路径）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getfilename("c:\")
将会返回文件名称
18、GetFolder
描述：返回与指定的路径中某文件夹相应的 Folder 对象。
语法：object.GetFolder(folderspec)
解释：object必选项。应为 FileSystemObject 的名称。
folderspec必选项。folderspec 是指定文件夹的路径（绝对路径或相对路径）。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getfolder("c:\test")
好像没有什么用，写什么就返回什么。
19、GetParentFolderName
描述：返回字符串，该字符串包含指定的路径中最后一个文件或文件夹的父文件夹。
语法：object.GetParentFolderName(path)
解释：object必选项。应为 FileSystemObject 的名称。ascii文件夹怎么创建
path必选项。指定路径，要返回文件或文件夹的父文件夹名。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Getparentfoldername("c:\test\t")
将会返回"c:\test"
20、GetSpecialFolder
描述：返回指定的特殊文件夹。
语法：object.GetSpecialFolder(folderspec)
解释：object必选项。应为 FileSystemObject 的名称。
folderspec必选项。要返回的特殊文件夹名称。可以是“设置”部分列出的任何常数。
folderspec 可为下列值：
常数
值
描述
WindowsFolder
0
Windows 文件夹，包含 Windows 操作系统安装的文件。
SystemFolder
1
System 文件夹，包含库、字体和设备驱动程序文件。
TemporaryFolder
2
Temp 文件夹，用于保存临时文件。可以在 TMP 环境变量中到该文件夹的路径。
21、GetTempName
描述：返回随机生成的临时文件或文件夹的名称，用于执行要求临时文件或文件夹的操作。
语法：object.GetTempName
解释
：可选项参数 object 应为 FileSystemObject 对象的名称。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
msgbox fso.Gettempname
将会返回一个文件名rad?????.tem
22、MoveFile
描述：将一个或多个文件从某位置移动到另一位置。
语法：object.MoveFile source, destination
解释：object必选项。应为 FileSystemObject 的名称。
source必选项。要移动的文件的路径。source 参数字符串仅可在路径的最后一个组成部分中用通配符。
destination必选项。指定路径，表示要将文件移动到该目标位置。destination 参数不能包含通配符。
例子：
dim fso
set fso=createobject("scripting.filesystemobject")
23、MoveFolder
描述：将一个或多个文件夹从某位置移动到另一位置。
语法：object.MoveFolder source, destination
解释：object必选项。应为 FileSystemObject 的名称。
source必选项。要移动的文件夹的路径。source 参数字符串仅可在路径的最后一个组成部分中包含通配符。
destination必选项。指定路径，表示要将文件夹移动到该目标位置。destination 参数不能包含通配符。
例子:
dim fso
set fso=createobject("scripting.filesystemobject")
24、OpenTextFile
描述：打开指定的文件并返回一个 TextStream 对象，可以读取写此对象或将其追加到文件。
语法：object.OpenTextFile(filename[, iomode[, create[, format]]])
解释：object必选项。应为 FileSystemObject 对象的名称。
filename必选项。字符串表达式，指明要打开的文件名称。
iomode可选项。输入/输出模式，是下列三个常数之一：ForReading，ForWriting，或 ForAppending。
create可选项。Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True，否则为 False。默认值为 False。
format可选项。三个 Tristate 值之一，指出以何种格式打开文件。若忽略此参数，则文件以 ASCII 格式打开。
iomode 参数可为下列设置之一：
常数
值
描述
ForReading
1
以只读模式打开文件。不能对此文件进行写操作。
ForWriting
2
以只写方式打开文件。不能对此文件进行读操作。
ForAppending
8
打开文件并在文件末尾进行写操作。
format 参数可为下列设置之一：
常数
值
描述
TristateUseDefault
-2
以系统默认格式打开文件。
TristateTrue
-1
以 Unicode 格式打开文件。
TristateFalse
0
以 ASCII 格式打开文件。
例子：
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\", 2, True)
f.Write "嗨，你好！"
f.Close

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。