VBS学习日记（六） FSO相关操作

Vbs 脚本编程简明教程之FSO 的常见对象和方法

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

FSO 包含的常见对象有：
Drive 对象：包含储存设备的信息，包括硬盘、光驱、ram 盘、网络驱动器
Drives 集合：提供一个物理和逻辑驱动器的列表
File 对象：检查和处理文件
Files 集合：提供一个文件夹中的文件列表
Folder 对象：检查和处理文件夹
Folders 集合：提供文件夹中子文件夹的列表
Textstream 对象：读写文本文件
FSO 的常见方法有：
BulidPath ：把文件路径信息添加到现有的文件路径上
CopyFile：复制文件
CopyFolder ：复制文件夹
CreateFolder ：创建文件夹
CreateTextFile：创建文本并返回一个 TextStream 对象
DeleteFile：删除文件
DeleteFolder ：删除文件夹及其中所有内容
DriveExits ：确定驱动器是否存在
FileExits ：确定一个文件是否存在
FolderExists：确定某文件夹是否存在
GetAbsolutePathName：返回一个文件夹或文件的绝对路径
GetBaseName：返回一个文件或文件夹的基本路径
GetDrive：返回一个 dreve 对象
GetDriveName：返回一个驱动器的名字
GetExtensionName：返回扩展名
GetFile：返回一个 file 对象
GetFileName：返回文件夹中文件名称
GetFolder ：返回一个文件夹对象
GetParentFolderName：返回一个文件夹的父文件夹名
GetSpecialFolder: 返回指向一个特殊文件夹的对象指针
GetTempName:返回一个可以被 createtextfile 使用的随机产生的文件或文件夹的名称
MoveFile：移动文件
MoveFolder：移动文件夹
OpenTextFile：打开一个存在的文件并返回一个 TextStream 对象

Vbs 脚本编程简明教程之FSO 中文件夹的基本操作
1、使用 fso

由于 fso 不是 wsh 的一部分，所以我们需要建立他的模型例如

Set fso = CreateObject("scripting.filesystemobject")

这样就建立了 fso 的模型。如果要释放的话也很简单，

Set fso = nothing

2、使用文件夹
在创建前，我们一般需要检查该文件夹是否存在例如：

Dim fso,fsoTemp,folder
Set fso = WScript.CreateObject("Scripting.filesystemobject")
If (fso.FolderExists("D:\Temp")) Then
	fsoTemp = "is exists"
Else 
	fsoTemp = "not exists"
	Set folder = fso.CreateFolder("D:\Temp")
End If

拷贝：

Set fso = WScript.CreateObject("Scripting.filesystemobject")
fso.CopyFolder "D:\temp","c:\temp"

注意：如果D:\temp和 c:\temp 都存在，脚本会出错，复制也就会停止，如果要强制覆盖，使用fso.copyfolder “d:\temp”, “c:\temp ”，true

删除：

Set fso = WScript.CreateObject("Scripting.filesystemobject")
fso.DeleteFolder("c:\Temp")

移动：

Set fso = WScript.CreateObject("Scripting.filesystemobject")
fso.MoveFolder "d:\temp","D:\temp1\temp"

我们可以使用统配符，来方便操作：
例如， fs.movefolder :c:\data\te* ” , “d:\working”
注意：在目的路径最后没有使用“\” 也就是说我没有这样写：
fs.movefolder c:\data\te*” , “d:\working\”
这样写的话，如果 d:\working 目录不存在，windows 就不会为我们自动创建这个目录。
注意：上面我们所举的例子都是在利用 fso 提供的方法，如果使用 folder 对象也完全是可以的：

set fs= wscript.createobject("scripting.filesystemobject")
set f=fs.getfolder("d:\data")
f.copy "d:\working",true '拷贝到 d:\working
f.delete '删除文件夹 d:\data。如果有子目录，也会被删除
f.move "d:\temp" '移动到 d:\temp

3、特殊文件夹

一般指的就是系统文件夹：\windows\system32 ， 临时文件夹，windows 文件夹，在前几篇的时候，我们提过一下：例如

Set WshShell = WScript.CreateObject("Wscript.Shell")
WScript.Echo WshShell.ExpandEnvironmentStrings("%systemroot%")

运行结果：

当然，还有简单的方法 那就是使用 getspecialfolder()
这个方法使用 3 种值：

Constant	Value	Description	Translate
WindowsFolder	0	The Windows folder contains files installed by the Windows operating system.	表示 windows 文件夹
SystemFolder	1	The System folder contains libraries, fonts, and device drivers.	系统文件夹
TemporaryFolder	2	The Temp folder is used to store temporary files. Its path is found in the TMP environment variable.	临时目录

例如：

Set fso = WScript.CreateObject("Scripting.filesystemobject")
WScript.Echo fso.GetSpecialFolder(0)'返回windows目录
WScript.Echo fso.GetSpecialFolder(1)'返回系统文件夹system32\目录
WScript.Echo fso.GetSpecialFolder(2)'返回系统临时文件夹目录

回显结果：

更多关于FSO的详细操作请参见VBS学习日记（八） FSO 中文件的基本操作