VBS教程

VBS教程-wscript对象

一、wscript对象

描述：提供对Windows 脚本宿主对象模型根对象的访问。

详述：WScript 对象是Windows 脚本宿主对象模型层次结构的根对象。它可在任何脚本文件中使用，不需要特定的声明。WScript 对象提供对以下信息的访问命令行参数，脚本文件的名称，宿主文件名，宿主版本信息。WScript 对象可用来创建对象，连接对象，与对象断开连接，同步事件，以编程方式停止脚本的执行，将信息输出到默认输出设备（Windows 对话框或命令控制台）。WScript 对象也可用来设置脚本运行的模式（交互模式或批处理模式）。

就像刚才我们说的一样，对象通过两种其自有的特性想我们提供工具，这两种特性分别是―属性‖和―方法‖。

二、属性

1、Arguments属性

描述：用于返回Arguments 对象（这个对象我们以后会学，现在只需要了解就行）。

语法：object.Arguments

参数：object ，WScript 对象

例子：显示本vbs文件运行的参数

Set Arg=WScript.Arguments

For i=0 to Arg.Count-1

msgbox Arg(i)

Next

将上面这些代码保存为vbs文件，然后将一个或者数个任意的文件拖放到这个vbs文件上面上，那么他会逐个显示你拖放的文件。（这仅仅给出了一个实例，用到了Arguments对象，其的具体用法我们以后再了解）2、FullName 属性

描述：返回主机可执行文件（CScript.exe 或WScript.exe）的完全限定路径。

语法：object.FullName

参数：object ，WScript 对象

例子：显示本机wscript的路径

msgbox wscript.fullname

在默认的情况下会显示‖C:\WINDOWS\system32\wscript.exe―

3、Interactive 属性

描述：设置或确定脚本模式。

语法：object.Interactive

参数：object ，WScript 对象

说明：Interactive 属性返回一个布尔值。

有批处理和交互两种模式。在交互模式（默认模式）下，该脚本为用户提供交互功能。启用对Windows 脚本宿主的输入和输出。该脚本可以将信息显示在对话框中并等待用户提供反馈。在批处理模式下，不支持这种类型的用户交互,所有对WSH 的输入和输出被禁用。还可以使用Windows 脚本宿主命令行开关//I（对于交互式）和//B（对于批处理模式）来设置脚本模式。

例子：显示本机的脚本模式

msgbox WScript.Interactive

4、Name 属性

描述：返回WScript 对象（主机可执行文件）的名称。

语法：https://www.360docs.net/doc/a13312268.html,

参数：object ，WScript 对象

例子：

msgbox https://www.360docs.net/doc/a13312268.html,

5、Path 属性

描述：返回包含主机可执行文件（CScript.exe 或WScript.exe）的路径名称

语法：object.Path

参数：object ，WScript 对象

例子：

msgbox WScript.Path

如果你的wscript.exe是在‖C:\WINDOWS\system32\wscript.exe―那么本属性会显示‖C:\WINDOWS\system32―6、ScriptFullName 属性

描述：返回当前运行脚本的完整路径。

语法：object.ScriptFullName

参数：object ，WScript 对象

例子：显示本vbs的完整路径

msgbox WScript.ScriptFullName

神奇吧，这个vbs竟然知道他自己的名字。

7、ScriptName 属性

描述：返回当前运行脚本的文件名。

语法：object.ScriptName

参数：object ，WScript 对象

说明：刚才我们知道了用ScriptFullName可以获取vbs文件自身的完整路径，加入你只想要这个文件的名字改怎么办？看例子。

例子：显示本VBS文件的名字

msgbox WScript.ScriptName

怎么样？看到了吗？

8、Version 属性

描述：返回Windows 脚本宿主的版本。

语法：object.Version

参数：object ，WScript 对象

例子：显示本机脚本宿主版本

msgbox WScript.version

三、方法

1、CreateObject方法

描述：创建一个对象

语法：CreateObject(appname.objecttype,[servername])

解释：appname 必需的，Variant（字符串）。提供该对象的应用程序名。

objecttype 必需的；Variant（字符串）。待创建对象的类型或类。

servername 可选的；Variant (String). 要在其上创建对象的网络服务器名称。

说明：要创建ActiveX 对象，只需将CreateObject 返回的对象赋给一个对象变量：

Set ExcelSheet = CreateObject("Excel.Sheet")'的引用。

每个支持自动化的应用程序都至少提供一种对象类型。

例如，一个字处理应用程序可能会提供Application 对象，Document 对象，以及Toolbar 对象。要创建

ActiveX 对象，只需将CreateObject 返回的对象赋给一个对象变量：

例子：

Dim ExcelSheet As Object'声明一个对象变量来存放该对象

Set ExcelSheet = CreateObject("Excel.Sheet")

ExcelSheet.Application.Visible = True '设置Application 对象使Excel 可见

ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"'在表格的第一个单元中写些文本

ExcelSheet.SaveAs "C:\ TEST.xls"'将该表格保存到C:\test.xls 目录

ExcelSheet.Application.Quit'使用应用程序对象的Quit 方法关闭Excel。

Set ExcelSheet = Nothing'释放该对象变量

上述代码将启动该应用程序创建该对象，在本例中就是创建一个Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量ExcelSheet 来访问新建对象的属性和方法，以及访问Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。

2、GetObject方法

描述：从文件中检索一个Automation 对象，或检索strProgID 参数所指定的对象

语法：object.GetObject(strPathname [,strProgID], [strPrefix])

参数：object必选项。WScript 对象。

strPathname必选项。包含要获取的对象的完整路径和名称。

strProgID可选项。表示对象的程序标识符(ProgID)的字符串。

strPrefix可选项。如果指定了参数strPrefix，Windows 脚本宿主将在创建对象之后把对象的输出接口与脚本文件连接起来。在对象中触发事件时，Windows 脚本宿主将调用一个子例程，其名称包括strPrefix 和事件的名称。

例如，如果strPrefix 为"MYOBJ_"，对象产生的事件为"OnBegin,"，那么Windows 脚本宿主将调用脚本中的"MYOBJ_OnBegin" 子例程。

说明：

如果当前存在对象的实例或者希望使用已经被装载的文件创建对象，可使用GetObject 方法。如果当前不存在实例，而且不希望从已经装载的文件中启动对象，请使用CreateObject 方法。

如果一个对象将自己注册为单实例对象（例如，Microsoft Word 7.0 中的Word.Basic 对象），那么无论执行CreateObject 多少次也只能创建对象的一个实例。此外，对于单实例的对象，如果用零长度的字符串语法("")调用，GetObject 总是返回同样的实例，而且如果省略路径参数将导致错误。使用GetObject 不能获得对Visual Basic 4.0 以及以前版本创建的Microsoft Visual Basic(R)类的引用。

GetObject 适用于所有的COM 类，不受创建对象所用语言的限制。

示例

在执行下列代码时，与指定的strPathname 相关联的应用程序被启动，指定文件中的对象被激活。如果strPathname 是一个零长度的字符串("")，GetObject 将返回指定类型的新对象实例。如果strPathname 参数完全被省略，GetObject 将返回指定类型的当前活动对象。如果不存在指定类型的对象，将发生错误。

Dim MyObject As Object

Set MyObject = GetObject("C:\CAD\SCHEMA.CAD")

MyApp = MyObject.Application

某些应用程序允许激活一个文件的某些部分。如果要这样做，需要在文件名后添加一个惊叹号(!)，然后跟一个字符串，标识出文件中希望被激活的部分。关于如何创建该字符串的信息，请参阅创建对象的应用程序的有关文档。

例如，在一个绘图应用程序中，文件中存储的一幅图可能包含多层。可以使用下面的代码激活绘图文件中称为schema.cad 的一层：

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")

如果不指定对象的类，COM 将根据所提供的文件名来确定要启动的应用程序和要激活的对象。但是，某些文件可能支持多个对象类。例如，一幅图纸可能支持三种不同类型的对象：一个应用程序对象，一个绘图对象，以及一个工具栏对象，它们都是同一个文件的组成部分。

在下例中，FIGMENT 是一个绘图应用程序的名称，DRAWING 是它支持的对象类型之一。

Dim MyObject As Object

Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")

3、Quit方法

描述：退出执行，返回指定的错误代码。

语法：object.Quit [intErrorCode]

解释：object 必选项。WScript 对象。

intErrorCode可选项。如果包含此参数，WScript 将把它作为进程终止码返回。如果省略了intErrorCode，WScript 将返回零(0) 作为进程终止码。

例子：

下例退出执行并返回错误代码1：

WScript.Quit

4、Sleep方法

描述：使脚本进程在指定的毫秒数内处于非活动状态，然后继续执行。

语法：object.Sleep(intTime)

参数：object必选项。WScript 对象。

intTime脚本进程在非活动状态的时间长度，以毫秒为单位。

说明：

在睡眠状态下，脚本将继续执行所处理的事件。如果脚本引擎超时或被中断，睡眠将立即结束。

例子：

wscript.sleep(3000)

set apprun=createobject("wscript.shell")

apprun.run "%windir%\notepad.exe"

此例子将会延迟3秒启动记事本。

5、timeout方法

描述：设置脚本的生存时间

语法：wscript.timeout

例子：

wscript.timeout=10

msgbox "hello"

6、Echo方法

描述：将输出发送到对话框或控制台。

语法：object.Echo [Arg1] [,Arg2] [,Arg3] ...

参数：object必选项。WScript 对象。

Arg1, Arg2, Arg3 ...所显示的项的列表。

说明：

如果宿主为WScript.exe，本方法将把输出显示在对话框中；如果宿主为CScript.exe，结果将显示在控制台上。每一项将被一个空格隔开。在CScript.exe 下，输出的末尾被加上换行符。如果未提供任何项，显示的将是空行。

例子：

set fso=createobject("scripting.filesystemobject")

set f=fso.opentextfile("c:\test.txt")

wscript.echo f.readall

将会显示这个文件里面的所有内容。这么看来，他的功能跟msgbox一样，不过不如他强大。

7、ConnectObject方法

描述：将一个对象事件源连接到具有给定前缀的函数。

语法：object.ConnectObject strObject, strPrefix

参数：object必选项。WScript 对象。

strObject要连接的对象的名称。

strPrefix事件函数的前缀。

说明：

对象必须能够枚举自己类的事件集合。

例子：

下例实例化了一个假想的对象，并将其连接到脚本文件。然后脚本调用该对象的"SomeMethod" 方法。如果对象中发生了名为"Event"的事件，将调用MyEvent_Event 子例程。

Set MyObject = WScript.CreateObject("SomeObject")

MyObject.SomeMethod

WScript.ConnectObject MyObject, "MyEvent"

Sub MyEvent_Event(strName)

WScript.Echo strName

End Sub

WScript.DisconnectObject MyObject

8、DisconnectObject 方法

描述：将原先与Windows 脚本宿主连接的对象断开。

语法：object.DisconnectObject obj

参数：object必选项。WScript 对象。

obj要断开连接的对象的名称。

说明：

如果所指定的对象尚未被连接到Windows 脚本宿主，则此方法不起任何作用。

例子：

下例创建了一个假想的对象并将其连接到脚本文件。然后脚本调用对象的"SomeMethod" 方法。如果对象中发生名为"Event" 的错误，MyEvent_Event 子例程将被调用。

Set MyObject = WScript.CreateObject("SomeObject", "MyEvent")

MyObject.SomeMethod

Sub MyEvent_Event(strName)

WScript.Echo strName

End Sub

WScript.DisconnectObject MyObject

VBS教程-FileSystemObject对象

一、FileSystemObject对象

简述：FileSystemObject对象模型，可以简称为FSO对象，也可以说是文件系统对象，它可以让我们对文件、文件夹、磁盘、文本内容等进行操作。FSO 对象模型包含在Scripting 类型库中，该库位于Scrrun.dll 文件中。因而，要使用FSO 对象模型，必须把Scrrun.dll 放在Web 服务器的适当系统目录中。

1、FileSystemObject(FSO) 对象模型包含下面的对象和集合。

对象/集合描述

FileSystemObject主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。和该对象相关联的许多方法，与其他FSO 对象中的方法完全相似；它们是为了方便才被提供的。

Drive对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是CD-ROM 驱动器，RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。

Drives集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。

File对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种其他属性。Files集合。提供包含在文件夹内的所有文件的列表。

Folder对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路径和多种其他属性。

Folders集合。提供在Folder 内的所有文件夹的列表。

TextStream对象。用来读写文本文件。

2、怎样使用FSO对象

要用FileSystemObject (FSO) 对象模型来编程，则：使用CreateObject 方法来创建FileSystemObject 对象。在创建的对象上使用适当的方法。访问对象的属性。首先，使用CreateObject 方法来创建FileSystemObject 对象。

例子：下面代码显示如何创建FileSystemObject

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

在这个例子中，Scripting 是类型库的名字，而FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象，接下来就可以使用fso对象了。

其次，使用FileSystemObject 对象的适当方法。

例如，要创建一个新的文本文件或者文件夹，则使用CreateTextFile 或CreateFolder （FSO 对象模型不支持驱动器的创建或删除）。

要删除文件或者文件夹，则使用FileSystemObject 对象的DeleteFile 和DeleteFolder 方法，或File 和Folder 对象的Delete 方法。也可以使用适当的方法，来复制和移动文件与文件夹。

注意：FileSystemObject 对象模型中的某些功能是与其他对象重复的。例如，可以用FileSystemObject 对象的CopyFile 方法，也可以用File 对象的Copy 方法来复制文件。这两种方法功能是相同的；两种方法都能使编程更灵活。

或者、访问对象的属性。一旦有了对象的句柄，就可以访问它的属性。例如，要获得特定文件夹的名字，首先创建该对象的一个实例，然后用适当的方法获得它的句柄（在这个例子中是GetFolder 方法，因为该文件夹已经存在了）。

用该代码来获得GetFolder 方法的一个句柄：

Set fso = CreateObject("Scripting.FileSystemObject")

Set fd = fso.GetFolder("c:\windows")

现在，已经有了Folder 对象的句柄，就可以检查它的Name 属性了。

Msgbox https://www.360docs.net/doc/a13312268.html,

二、FileSystemObject对象的属性

FileSystemObject对象总共一个属性即Drives

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

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

例子：获取本计算机上所有的磁盘的盘符

Set fso = CreateObject("Scripting.FileSystemObject")

Set ds=fso.Drives

For Each d in ds

msgbox d.DriveLetter

Next

三、FileSystemObject对象的方法

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

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")

fso.copyfile "c:\test.txt","d:\a.txt"

将会复制那个文本文档到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")

fso.copyfolder "c:\test","d:\"

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:\test.txt", 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:\test.txt")

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、GetBaseName

描述：返回字符串，其中包含文件的基本名(不带扩展名), 或者提供的路径说明中的文件夹。

语法：object.GetBaseName(path)

解释：object必选项。应为FileSystemObject 的名称。

path必选项。指定文件或文件夹的路径，要返回其组成部分的基本名。

例子：

dim fso

set fso=createobject("scripting.filesystemobject")

msgbox fso.GetbaseName("c:\test.txt")

将会显示"test"

13、GetDrive

描述：返回与指定的路径中驱动器相对应的Drive 对象。

语法：object.GetDrive drivespec

解释：object必选项。应为FileSystemObject 的名称。

drivespec必选项。drivespec 可以是驱动器号(c)、带冒号的驱动器号(c:)、带有冒号与路径分隔符的驱动器号(c:\) 或任何指定的网络共享(。

例子：

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:test\s.txt")

会返回"c:"

15、GetExtensionName

描述：返回字符串，该字符串包含路径最后一个组成部分的扩展名。

语法：object.GetExtensionName(path)

解释：object必选项。应为FileSystemObject 的名称。

path必选项。指定路径，用于返回其组成部分的扩展名。

例子：

dim fso

set fso=createobject("scripting.filesystemobject")

msgbox fso.Getextensionname("c:test\s.txt")

将会返回"txt"

16、GetFile

描述：返回与指定路径中某文件相应的File 对象。

语法：object.GetFile(filespec)

解释：object必选项。应为FileSystemObject 的名称。

filespec必选项。filespec 是指定文件的路径（绝对路径或相对路径）。

例子：

dim fso

set fso=createobject("scripting.filesystemobject")

msgbox fso.Getfile("test.txt")

比如本文件夹下有个test.txt文件，即可得到这个文件的绝对路径

17、GetFileName

描述：返回指定路径（不是指定驱动器路径部分）的最后一个文件或文件夹。语法：object.GetFileName(pathspec)

解释：object必选项。应为FileSystemObject 的名称。

pathspec必选项。指定文件的路径（绝对路径或相对路径）。

例子：

dim fso

set fso=createobject("scripting.filesystemobject")

msgbox fso.Getfilename("c:\test.txt")

将会返回文件名称test.txt

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 的名称。

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")

fso.movefile "c:\test.txt","d:\test.txt"

23、MoveFolder

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

语法：object.MoveFolder source, destination

解释：object必选项。应为FileSystemObject 的名称。

source必选项。要移动的文件夹的路径。source 参数字符串仅可在路径的最后一个组成部分中包含通配符。destination必选项。指定路径，表示要将文件夹移动到该目标位置。destination 参数不能包含通配符。

例子:

dim fso

set fso=createobject("scripting.filesystemobject")

fso.movefile "c:\test","d:\"

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:\testfile.txt", 2, True)

f.Write "嗨，你好！"

f.Close

VBS教程-Drive对象

一、Drive对象

描述：提供对特定磁盘驱动器或网络共享属性的访问，从FSO对象的GetDrive方法获得。

1、使用Drive对象

要用Drive对象模型来编程必须先用FileSystemObject(FSO)对象的GetDrive方法获取文件的句柄。

使用CreateObject 方法来创建FileSystemObject 对象。

使用GetDrive方法获取文件夹的句柄

在创建的Drive对象上使用适当的方法。

访问对象的属性。

例子：

首先，使用CreateObject 方法来创建FileSystemObject 对象。

Set fso = CreateObject("Scripting.FileSystemObject")

其次、使用GetDrive方法获取驱动器的句柄

Set FD = fso.GetDrive("C:\")

然后、访问对象的属性。比如显示C盘的可用空间的大小

msgbox fd.AvailableSpace

合起来就是：(显示C盘的可用空间的大小)

Set fso = CreateObject("Scripting.FileSystemObject")

Set fd = fso.Getdrive("C:\")

msgbox fd.AvailableSpace

二、属性

1、AvailableSpace

描述：返回指定的驱动器或网络共享对于用户的可用空间大小。

语法：object.AvailableSpace

参数：object 应为Drive 对象的名称。

说明：AvailableSpace 属性与FreeSpace 属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。

例子：显示C盘的可用空间大小

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:\")

msgbox d.AvailableSpace/1024/1024&"MB"

2、DriveLetter

描述：返回本地驱动器或网络共享的驱动器号。

语法：object.DriveLetter

参数：object 应为Drive 对象的名称。

注意：如果指定的驱动器没有与驱动器号相关联（例如，一个网络共享未映射驱动器号），则DriveLetter 属性返回零长度字符串("")。

例子：

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:")

msgbox d.DriveLetter

将会返回"c"这一个字符。

3、DriveType

描述：返回一个描述指定驱动器的类型的值。

语法：object. DriveType

参数：object 应为Drive 对象的名称。

返回值：

0: "未知磁盘类型"

1: "可移动磁盘"

2: "本地磁盘"

3: "网络磁盘"

4: "CD-ROM"

5: "RAM 磁盘"

例子：获取C盘的磁盘类型

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:")

msgbox d.DriveType

4、FileSystem

描述：返回指定的驱动器使用的文件系统的类型。

语法：object. FileSystem

参数：object 应为Drive 对象的名称。

说明：可用的返回类型包括FAT、NTFS 和CDFS。

例子：查看C盘的文件系统格式

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:")

msgbox d.filesystem

5、FreeSpace

描述：返回指定的驱动器或网络共享对于用户的可用空间大小，只读。

语法：object. FreeSpace

参数：object 应为Drive 对象的名称。

注意：FreeSpace 属性与AvailableSpace 属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。

例子：

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:")

msgbox d.freespace/1024/1024&MB

6、IsReady

描述：如果指定的驱动器就绪，返回True；否则返回False。

语法：object. IsReady

参数：object 应为Drive 对象的名称。

注意：对于可移动媒体驱动器和CD-ROM 驱动器，仅当插入相应的媒体并准备接受访问时，IsReady才返回True。

例子：查看C盘是否就绪

Dim fso, d

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c")

msgbox d.IsReady

7、Path

描述：返回指定文件、文件夹或驱动器的路径。

语法：object.Path

参数：object 应为File、Folder 或Drive 对象的名称。

说明：对于驱动器，路径不包含根目录。例如，C 驱动器的路径是C:，而不是C:\。

例子：

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c")

msgbox d.path

将会返回"c:"仅有冒号。

8、RootFolder

描述：返回一个Folder 对象，表示指定驱动器的根文件夹。只读。

语法：object. RootFolder

参数：object 应为Drive 对象的名称。

说明：使用返回的Folder 对象，可以访问指定驱动器包含的所有文件和文件夹。

例子：

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetDrive("c:\")

msgbox f.RootFolder

将会返回"c:\"注意，有反斜杠。

9、SerialNumber

描述：返回十进制序列号，用于唯一标识一个磁盘卷。

语法：object. SerialNumber

参数：object 应为Drive 对象的名称。

说明：可以使用SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。

例子：查看C盘序列号

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:\")

msgbox d.SerialNumber

将会显示c盘的序列号。

注意：如果指定的磁盘是磁盘的非第一分区将会返回负值。

10、ShareName

描述：返回指定的驱动器的网络共享名。

语法：object.ShortName

参数：object 应为Drive 对象的名称。

说明：如果object 不是一个网络驱动器，则ShareName 属性返回零长度字符串("")。例子：

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:\")

msgbox d.ShareName

因为c盘不是网络驱动器，所以他返回空。

11、TotalSize

描述：返回驱动器或网络共享的总字节数。

语法：object.TotalSize

参数：object 应为Drive 对象的名称。

例子:

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:\")

msgbox d.totalsize/1024/1024&MB

返回的是c盘的总大小。

12、VolumeName

描述：设置或返回指定驱动器的卷标。可读写。

语法：object. VolumeName [= newname]

参数：object必选项。应为Drive 对象的名称。

newname可选项。如果提供此参数，则newname 为指定的object 的新名称。例子：

Dim fso, d, s, t

Set fso = CreateObject("Scripting.FileSystemObject")

Set d = fso.GetDrive("c:\")

msgbox d.V olumeName

d.V olumeName="系统盘"

msgbox d.V olumeName

VBS教程-File对象

一、File对象

描述：提供对文件所有属性的访问，从FSO对象的GetFile方法获得。

1、使用File对象

要用File对象模型来编程必须先用FileSystemObject(FSO)对象的GetFile方法获取文件的句柄。

使用CreateObject 方法来创建FileSystemObject 对象。

使用GetFile方法获取文件的句柄在创建的File对象上使用适当的方法。

访问对象的属性。

例子：

首先，使用CreateObject 方法来创建FileSystemObject 对象。

Set fso = CreateObject("Scripting.FileSystemObject")

在这个例子中，Scripting 是类型库的名字，而FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象，接下来就可以使用fso对象了。

其次、使用GetFile方法获取文件的句柄

set f=fso.getfile("c:\windows\explorer.exe")

然后，使用File对象的适当方法。

例如，复制这个文件到D盘根目录。

f.copy("d:\")

然后、访问对象的属性。比如获取这个文件的大小

msgbox f.size

合起来就是：(复制获取的文件并显示文件的大小)

set fso=CreateObject("Scripting.FileSystemObject")

set f=fso.getfile("c:\windows\explorer.exe")

f.copy("d:\")

msgbox f.size

二、方法

1、Copy方法

描述：将指定的文件或文件夹从某位置复制到另一位置。

语法：object.Copy(destination[, overwrite])

参数：object,必选项。应为File 或Folder 对象的名称。

destination,必选项。复制文件或文件夹的目标位置。不允许使用通配符。

overwrite,可选项。Boolean值。如果覆盖现有文件或文件夹，则为True（默认），否则为False。

注意：

对File 或Folder 应用Copy 方法的结果与使用FSO对象的CopyFile 或FSO对象的CopyFolder 执行的操作完全相同。然而，应该注意的是FSO对象的CopyFile或FSO对象的CopyFolder方法可以复制多个文件或文件夹。

目标路径中必须是个存在的路径。

例子：复制c:\testfile.txt这个文件到D盘

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.GetFile("c:\testfile.txt")

MyFile.Copy ("D:\")

2、Delete方法

描述：删除指定的文件或文件夹。

语法：object.Delete force

参数：object必选项。应为File 或Folder 对象的名称。

force可选项。Boolean 值。如果要删除的文件或文件夹的属性设置为只读属性，则该值为True；否则为False（默认）。

注意：若指定文件或文件夹不存在，错误发生。有内容的文件夹和无内容的文件夹所使用的Delete方法无异。无论有无内容，指定文件夹皆被删除。对File 或Folder 应用Delete 方法的结果与使用FSO对象的DeleteFile或FSO对象的DeleteFolder执行的操作完全相同。

例子：删除c:\testfile.txt这个文件

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\testfile.txt")

MyFile.delete

3、Move方法

描述：将指定的文件或文件夹从某位置移动到另一位置。

语法：object.Move(destination)

参数：object必选项。应为File 或Folder 对象的名称。

destination必选项。目标位置。表示要将文件或文件夹移动到该位置。不允许使用通配符。

注意：对File 或Folder 应用Move 方法的结果与使用FileSystemObject.MoveFile 或FileSystemObject.MoveFolder 执行的操作完全相同。然而，要注意的是FileSystemObject.MoveFile 或FileSystemObject.MoveFolder 方法可移动多个文件或文件夹。

例子：移动c:\testfile.txt到d盘

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.GetFile("c:\testfile.txt")

MyFile.Move "d:\"

4、OpenAsTextStream方法

描述：打开指定的文件并返回一个TextStream对象，此对象用于对文件进行读、写或追加操作。

语法：object.OpenAsTextStream([iomode, [format]])

参数：object必选项。应为File对象的名称。

iomode可选项。输入/输出模式。

format可选项。指出以何种格式打开文件。忽略此参数，则文件以ASCII 格式打开。

iomode 参数可为下列设置之一：

常数值描述

ForReading

1--以只读模式打开文件。不能对此文件进行写操作。

ForWriting

2--以可读写模式打开文件。如果已存在同名的文件，则覆盖旧的文件。

ForAppending

8--打开文件并在文件末尾进行写操作。

format 参数可为下列设置之一：

常数值描述

TristateUseDefault

-2--以系统默认格式打开文件。

TristateTrue

-1--以Unicode 格式打开文件。

TristateFalse

0---以ASCII 格式打开文件。

说明：OpenAsTextStream 方法可提供与FileSystemObject 对象的OpenTextFile 方法相同的功能。另外，使用OpenAsTextStream 方法可对文件进行写操作。

三、属性

1、Attributes属性

描述：设置或返回文件或文件夹的属性，可读写或只读（与属性有关）。

语法：object.Attributes [= newattributes]

参数：object 必选项。应为File 或Folder 对象的名称。

newattributes可选项。如果指定此参数，则newattributes 为指定的object 的属性的新值。newattributes 参数可为下列设置之一或下列设置的合理组合：

Normal 0 普通文件。没有设置任何属性。

ReadOnly 1 只读文件。可读写。

Hidden 2 隐藏文件。可读写。

System 4 系统文件。可读写。

Directory 16 文件夹或目录。只读。

Archive 32 上次备份后已更改的文件。可读写。

Alias 1024 链接或快捷方式。只读。

Compressed 2048 压缩文件。只读。

说明：忽略对只读属性（别名，压缩或目录）所作的改变.

当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.

例子1：获取c:\test.txt的属性

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox MyFile. Attributes

例子2：设置c:\test.txt的属性为只读并显示出来

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

MyFile.Attributes=1

msgbox MyFile.Attributes

2、DateCreated属性

描述：返回指定的文件或文件夹的创建日期和时间。

语法：object.DateCreated

参数：object 应为File 或Folder 对象的名称。

例子：显示c:\test.txt的创建时间

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox MyFile. DateCreated

3、DateLastAccessed属性

描述：返回指定的文件或文件夹的上次访问日期和时间。只读。

语法：object. DateLastAccessed

参数：object 应为File 或Folder 对象的名称。

例子：显示c:\test.txt的上次访问时间

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox MyFile. DateLastAccessed

4、DateLastModified属性

描述：返回指定的文件或文件夹的上次修改日期和时间。只读。

语法：object. DateLastModified

参数：object 应为File 或Folder 对象的名称。

例子：显示c:\test.txt的创建时间

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox MyFile. DateLastModified

5、Drive属性

描述：返回指定的文件或文件夹所在的驱动器的驱动器号。

语法：object. Drive

参数：object 应为File 或Folder 对象的名称。

例子：显示c:\test.txt所在驱动器的盘符

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox MyFile.drive

会返回"c:"注意，只有冒号而没有反斜杠。

6、Name属性

描述：设置或返回指定的文件或文件夹的名称，可读写。

语法：object. Name [= newname]

参数：object必选项。应为File 或Folder 对象的名称。

newname可选项。如果提供此参数，则指定的object 名称更新为newname。例子1：显示c:\test.txt的名字

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox https://www.360docs.net/doc/a13312268.html,

会返回"test.txt"

例子2:修改c:\test.txt的名字为test1.txt

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

set MyFile =fso.GetFile("c:\test.txt")

msgbox https://www.360docs.net/doc/a13312268.html,