VBS教程：对象-FileSystemObject 对象

FileSystemObject 对象

提供对计算机文件系统的访问。

说明

以下代码举例说明如何使用 FileSystemObject 对象返回一个 TextStream 对象，此对象可以被读取或写入：

Dim fso, MyFileSet fso = CreateObject("Scripting.FileSystemObject")Set MyFile = fso.CreateTextFile("c:/testfile.txt", True)MyFile.WriteLine("This is a test.")MyFile.Close

以前代码中，CreateObject 函数返回 FileSystemObject 对象 (fso)。CreateTextFile 方法创建一个文件作为 TextStream 对象 (a)，然后 WriteLine 方法在此文件中写入一行文本。最后 Close 方法刷新缓冲区并关闭文件。

以下是对FileSystemObject 对象的详细解释

文件系统是所有操作系统最重要的部分之一，脚本经常会需要对文件及文件夹进行访问和管理，在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO)，这个对象特别复杂，是vbs进行文件操作的核心。

FSO包含的常见对象有：

如何使用FSO

要用FSO对象模型来编程，使用CreateObject方法来创建FileSystemObject对象，例如：　　

Dim fso
Set fso = wscript.createobject("scripting.filesystemobject")

在这个示例中，Scripting 是类型库的名字，而 FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象，接下来就可以使用fso对象了。如果要释放的话也很简单，例如：

Set fso = nothing

FileSystemObject对象总共一个属性即Drives

描述：获得所有可用驱动器的集合。

说明：无论是否本地磁盘、插入媒体、可移动媒体驱动器都显示在 Drives 集合中。

具体示例代码如下所示：获取本计算机上所有的磁盘的盘符　　

Set fso = CreateObject("Scripting.FileSystemObject")
Set Drivers = fso.Drives
For Each Driver in Drivers
Msgbox Driver.DriveLetter '输出计算机上所有的磁盘盘符
Next

　　方法：(仅常用的方法)

　　CreateFile

描述：创建一个空文件

语法：object. CreateTextFile(strFile,blnOverWrite)

参数：strFile为文件名称

blnOverWrite为Ture强制覆盖，为False不覆盖

示例：创建文件C:/test.txt

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CreateTextFile创建文件,不覆盖存在的文件Fso.CreateTextFile "C:/test.txt",False'覆盖存在的文件Fso.CreateTextFile "C:/test.txt",True

CreateFolder

描述：创建一个空的文件夹

语法：object. CreateFolder(strFolder)

参数：strFolder为想要创建的文件夹名称

示例：创建文件夹: c:/test

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MyFolder创建文件夹Fso.CreateFolder("c:/test")

DeleteFile

描述：删除一个文件

语法：object. DeleteFile (strFile，force)

参数：strFile为想要删除的文件。组成部分中可用通配符。

force如果要删除只读文件，则该值为 True；否则为 False（默认）

示例：删除文件： c:/test.txt 　　

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFile("c:/test.txt")'强制删除只读的文件Fso.DeleteFile "c:/test.txt",True

DeleteFolder

描述：删除一个文件夹

语法：object. DeleteFolder(strFolder，force)

参数：strFolder为想要删除的文件夹名称。组成部分中可用通配符。

force如果要删除只读文件夹，则该值为 True；否则为 False（默认）

示例：删除文件夹： c:/test

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFolder("c:/test")'强制删除只读的文件Fso.DeleteFolder "c:/test",True

FileExists

描述：判断指定文件是否存在，如果不判断直接修改，代码出现错误，导致代码无法运行或一些状况出现，可以提高你写代码的严谨性

语法：object. FileExists (strFile)

参数：strFile为指定的文件

示例：检查文件： c:/test.txt是否存在

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FileExists判断指定文件是否存在MsgBox Fso.FileExists("c:/test.txt")

FolderExist

描述：判断指定文件夹是否存在

语法：object. FolderExists (strFolder)

参数：strFolder为指定的文件夹

示例：检查文件夹： c:/test是否存在

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FolderExists判断指定文件夹是否存在MsgBox Fso.FolderExists("c:/test")

CopyFile

描述：将一个或多个文件从某位置复制到另一位置

语法：object.CopyFile "source", "destination"[, overwrite]

参数：source必选项。表示指定文件的路径。组成部分中可用通配符。

destination必选项。表示目标位置路径

overwrite可选项。Boolean 值表明是否覆盖现有文件。如果是 True，则覆盖文件；如果是 False，则不覆盖现有文件。默认值是 True

示例：将 c:/test.txt文件复制到D:/下

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:/test.txt","D:/",False'True覆盖已存在文件Fso.CopyFile "c:/test.txt","D:/",True

示例：将 c:/下所有的txt文件复制到D:/下

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用*.txt,可以同时将多个文件复制到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:/*.txt","D:/",False'True表示覆盖已存在文件Fso.CopyFile "c:/*.txt","D:/",True

CopyFolder

描述：将文件夹从某位置复制到另一位置

语法：object. CopyFolder "source", "destination"[, overwrite]

参数：source必选项。表示指定文件夹的路径。组成部分中可用通配符。

destination必选项。表示目标位置的路径

overwrite可选项。Boolean 值表明是否覆盖现有文件夹。如果是 True，则覆盖文件夹；如果是 False，则不覆盖现有文件夹。默认值是 True

示例：将 c:/test文件夹复制到D:/下

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,默认为True覆盖已存在文件Fso.CopyFolder "c:/test","D:/"'False不覆盖已存在文件Fso.CopyFolder "c:/test","D:/",False

MoveFile

描述：将一个或多个文件从某位置移动到另一位置

语法：object.MoveFile source, destination

参数：source必选项。要移动的文件的路径。组成部分中可用通配符。

destination必选项。指定路径，表示要将文件移动到该目标位置。destination 参数不能包含通配符。

示例：将 c:/test文件夹移动到D:/下

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFile移动文件到另一个位置Fso.MoveFile "c:/test.txt","D:/"

MoveFolder

描述：将一个或多个文件夹从某位置移动到另一位置

语法：object.MoveFolder source, destination

参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。

destination必选项。指定路径，表示要将文件夹移动到该目标位置。

示例：

Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFolder移动文件夹到另一个位置Fso.MoveFolder "c:/test","D:/" 

GetExtensionName

描述：获取文件后缀名

语法：object.MoveFolder source, destination

参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。

destination必选项。指定路径，表示要将文件夹移动到该目标位置。

示例：获取”c:/test.txt”文件后缀名

Dim FsoDim GetExtensionName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetExtensionName获取文件后缀名GetExtensionName = fso.GetExtensionName("c:/test.txt")MsgBox GetExtensionName '输出txt

GetBaseName

描述：获取文件当前所在文件夹

语法：object.GetBaseName Path

参数：Path必选项。文件路径名。

示例：获取”c:/test.txt”文件名称

Dim FsoDim GetBaseName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetBaseName获取文件的文件名称GetBaseName = Fso.GetBaseName("c:/test/test.txt")MsgBox GetBaseName '输出test

GetParentFolderName

描述：将一个或多个文件夹从某位置移动到另一位置

语法：object.GetParentFolderName Path

参数：Path必选项。文件路径名。

示例：获取”c:/test.txt”文件所在的文件夹

Dim FsoDim GetParentFolderName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetParentFolderName获取文件当前所在的文件夹GetParentFolderName = Fso.GetParentFolderName("c:/test/test.txt")MsgBox GetParentFolderName '输出c:/test

好了，这篇文章就介绍这么多了，建议大家多看看相关的实例进行学习。