VBS教程
一、时间与日期函数 01：Date 函数 例子：Msgbox date
将会显示“2009-03-13” 02：time 函数 例子 ：Msgbox time
将显示“15:21:38” 03:now 函数 例子Msgbox now
将显示“2009-03-13 15:23:13”
04：year(),month(),day(),hour(),minute(),second()函数，参数是时间表达式， 例子：Msgbox year(now)
将显示 2009
注意：当月份是个位数时不补零。
05：函数weekday( day ，[first day of week])默认vbsunday
Weekday 函数返回如下值：
06：monthname(month,[????])函数
month 可以使数字月份比如monthname （3）
可选参数是显示完全名的开关，默认是false 可以 是 true 例子：Msgbox monthname(month(now))
将显示“三月”
07：weekdayname(weekday, [abbreviate,][ first day of week])
第二项为布尔型四缩写与否的开关，默认是false 第三项是星期的开始天
08：dateadd(interval, number, date)函数interval 参数可以有以下值：
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。
例如：Msgbox DateAdd("m", 1, "31-Jan-2009")
将返回2009-2-28
09:DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])返回两个日期之间的时间间隔。
interval 参数可以有以下值：
interval 必选项。字符串表达式表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。 date1, date2 必选项。日期表达式。用于计算的两个日期。
Firstdayofweek 可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置
”部分。 Firstweekofyear 可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
返回给定日期的指定部分
二、数学函数
01：Abs()绝对值函数
02：Sin()，cos()，tan()，Atn()(反)三角函数
03:Log()自然对数是以e 为底的对数
04:Rnd[(number)]随机数函数
参数
number Rnd 生成
小于零每次都相同的值，使用number 作为种子。
大于零序列中的下一个随机数。
等于零最近生成的数。
省略序列中的下一个随机数。
Rnd 函数返回一个小于1 但大于或等于0 的值
05：Sqr()平方根函数
06：Hex(number)将number转化为16进制数显示
oct（number）将number转化为8进制数显示
三、字符串处理函数
01：filter(array,string)返回在array中搜索包含string的那个元素赴欧在的整个字符串
例如：dim a
dim b(3)
b(0)="xxk"
b(1)="xx"
b(2)="xxkmnm"
a=filter(b,"xxk")
msgbox a(0)
msgbox a(1)
msgbox a(2)'
就此题目而言如果不注释掉则溢出出错，因为a只包含两个元素。
结果显示Xxk ，Xxkmnm
02：InStr([start开始位置默认1 ，]被查找str, 要查str[, compare])返回某字符串在另一字符串中第一次出现的位置。例如：a=instr("mnmxxkmnm","xxk")
msgbox a
将输出4.
03:InStrRev(被查找str, 要查str[, compare])
返回某字符串从结尾数第一次出现的位置。
04:Join(array)把数组内字符组成一个长的字符串
MyArray(0) = "hello"
MyArray(1) = "xu"
MyArray(2) = "xiang"
MyArray(3) = "kai"
MyString = Join(MyArray)
则mystring输出helloxuxiangkai
05:LCase(string)把字符串中所有大写字母转化为小写的，其他字符不变
UCase(string)把字符串中所有小写字母转化为大写的，其他字符不变
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含"VBS"。
MSGBOX LeftString
Mid(string, start[, length])从字符串string中返回第star个数开始的lenth个字符a=mid("1234567890",4,4)
msgbox a
将返回4567
07：Len(string)
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含8
08:Round(number[, 小数位数])返回按指定位数进行四舍五入的数值
pi= 3.14159
MyVar=Round(pi,2)
msgbox MyVar
将返回 3.14
09：Space(number)
返回由指定数目的空格组成的字符串
10：StrReverse(string1)
返回字符串，此字符串与指定字符串顺序相反
11：StrComp(string1, string2[, 0二进制1文本])
1大返回++1
2大返回--1
一样返回0
四、类型转换函数
01：asc函数
Asc(string)返回与字符串的第一个字母对应的ANSI 字符代码
Dim MyNumber
MyNumber = Asc("A") '返回65。
MyNumber = Asc("a") '返回97。
MyNumber = Asc("Apple") '返回65。
02：cbool函数
CBool(number)
如果number等于0则返回false，否则返回ture
03：cint函数
cint（string）
把string转换为int型
04：cstr函数
cstr（number）
把number转换为string型
IsArray(varname)
IsDate(expression)
IsEmpty(expression)
IsNull(expression)
IsNumeric(expression)
是则返回ture否则返回false
五、系统常数
因为这些常数是在VBScript中设置, 您在应用之前不必定义它们. 您可在代码中任意处应用它们以表明说明值。
3:MsgBox 常数下列常数与MsgBox 函数一起使用，标识在消息框中出现的按钮、图标，并指定默认按钮。另外，还可以指定消息框的样式。因为这些常数在VBScript中被建立，您在使用之前不必定义它们。您可在代码中任意处使用它们以表示说明值。
下列常数与MsgBox 函数一起使用，标识用户选定的按钮。仅当类型库中包含以下常数定义，且在您的工程文件中已经显式引用该类型库后，才允许使用这些常数。对于VBScript，必须在代码中显式声明这些常数。
4:日期格式常数因为这些常数在VBScript 中被建立, 您在应用之前不必定义它们. 您可在代码中任意处使用它们以表示说明值.
5:字符串常。因为这些常数在VBScript中被建立，您在使用之前不必定义它们。您可在代码中任意处使用它们以表示说明值。
6：三态常数，这些常数在VBScript中被建立，因此您在使用之前不必定义它们您可在代码中任意处使用它们表示说明值。
六、输入函数：InputBox(提示[,标题][,默认][,x位置][,位置][,helpfile,context])
prompt 字符串表达式，作为消息显示在对话框中。如果prompt 中包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10)) 或回车换行符的组合(Chr(13) & Chr(10)) 以分隔各行。
Title 显示在对话框标题栏中的字符串表达式。如果省略title，则应用程序的名称将显示在标题栏中。
Default 显示在文本框中的字符串表达式，在没有其它输入时作为默认的响应值。如果省略default，则文本框为空。
Xpos 数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为缇）。如果省略xpos，则对话框会在水平方向居中。
Ypos 数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为缇）。如果省略ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
Helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供helpfile，则必须提供context。
Context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供context，则必须提供helpfile。
如果同时提供了helpfile 和context，就会在对话框中自动添加“帮助”按钮。
如果用户单击确定或按下ENTER，则InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串("")。
输出函数：MsgBox(提示[, 按钮类型（数字）][, 标题][, helpfile, context])
参数
prompt 作为消息显示在对话框中的字符串表达式。如果prompt 中包含多个行，则可在各行之间用回车(Chr(13))、换行符(Chr(10)) 或回车换行符的组合(Chr(13) & Chr(10)) 分隔各行。
Buttons 数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则buttons 的默认值为0。
Title 显示在对话框标题栏中的字符串表达式。如果省略title，则将应用程序的名称显示在标题栏中。
Helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供helpfile，则必须提供
context。在16 位系统平台上不可用。
Context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供context，则必须提供helpfile。在16 位系统平台上不可用。
一、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方法刷新缓冲区并关闭文件。
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")
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必选项。字符串表达式，指明要创建的文件夹。
例子：Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("c:\New Folder")
此方法有返回值
Dim fso, f
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：FileExists 方法如果指定的文件存在返回True；否则返回False。
object.FileExists(filespec)
object必选项。应为FileSystemObject 对象的名称。
filespec必选项。文件名，表示要确定是否存在的文件。如果文件不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。
例子：dim fso
msgbox fso.fileexists("c:\test.txt")
10：FolderExists 方法如果指定的文件夹存在，则返回True；否则返回False。
object.FolderExist s(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.txt")
将会显示"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:test\s.txt")
会返回"c:"
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必选项。要返回的特殊文件夹名称。可以是“设置”部分列出的任何常数。
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参数可为下列设置之一：
〈P〉format参数可为下列设置之一：
例子：Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)
f.Write "嗨，你好！"
f.Close
二、Drive 对象--提供对磁盘驱动器或网络共享的属性的访问。
注意：此对象无任何方法，所以不存在filesystemobject一样的那种操作。
只能先获取filesystemobject对象再获取drive对象
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c:\")
这样才可以操作，操作时属性放在d的后面，d全权代表了drive
01:AvailableSpace 属性--返回指定的驱动器或网络共享对于用户的可用空间大小。
object.AvailableSpace
object应为Drive对象的名称。
AvailableSpace属性与FreeSpace属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c:\")
msgbox d.AvailableSpace/1024/1024&"MB"
02:DriveLetter 属性--返回本地驱动器或网络共享的驱动器号。只读。
object.DriveLetter
object应为Drive对象的名称。如果指定的驱动器没有与驱动器号相关联（例如，一个网络共享未映射驱动器号），则DriveLetter属性返回零长度字符串("")。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("c:"))
msgbox d.DriveLetter
将会返回"c"这一个字符。
03：DriveType 属性--返回一个描述指定驱动器的类型的值。
object.DriveType
object应为Drive对象的名称。
驱动器类型
0: "未知"1: "可移动"2: "固定"3: "网络"4: "CD-ROM"5: "RAM 磁盘"
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("c:"))
msgbox d.Drivetype
04;FileSystem 属性--返回指定的驱动器使用的文件系统的类型。
object.FileSystem
object应为Drive对象的名称。
可用的返回类型包括FAT、NTFS 和CDFS。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
将会返回"NTFS"
05：FreeSpace 属性--返回指定的驱动器或网络共享对于用户的可用空间大小。只读。
object.FreeSpace
object应为Drive对象的名称。
FreeSpace属性与AvailableSpace属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("c:"))
msgbox d.freespace/1024/1024&MB
06：IsReady 属性--如果指定的驱动器就绪，返回True；否则返回False。
object.IsReady
object应为Drive对象的名称。
对于可移动媒体驱动器和CD-ROM 驱动器，仅当插入相应的媒体并准备接受访问时，IsReady返回True。
例子：Dim fso, d
set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c")
msgbox d.isready
07:Path 属性--返回指定文件、文件夹或驱动器的路径。
object.Path
object 应为File、Folder 或Drive 对象的名称。
对于驱动器，路径不包含根目录。例如，C 驱动器的路径是C:，而不是C:\。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c")
msgbox d.path
将会返回"c:"仅有冒号。
08:RootFolder 属性--返回一个Folder对象，表示指定驱动器的根文件夹。只读。
object.RootFolder
object应为Drive对象的名称。
使用返回的Folder对象，可以访问指定驱动器包含的所有文件和文件夹。
例子：Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive("c:\")
msgbox f.RootFolder
将会返回"c:\"注意，有反斜杠。
09：SerialNumber 属性--返回十进制序列号，用于唯一标识一个磁盘卷。
object.SerialNumber
object应为Drive对象的名称。可以使用SerialNumber属性以确保在可移动媒体驱动器中插入正确的磁盘。
例子：Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c:\")
msgbox d.SerialNumber
将会显示c盘的序列号。
10：ShareName 属性--返回指定的驱动器的网络共享名。
object.ShareName
object应为Drive对象的名称。如果object不是一个网络驱动器，则ShareName属性返回零长度字符串("")。
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("c:\")
msgbox d.sharename
因为c盘不是网络驱动器，所以他返回空。
11：TotalSize 属性--返回驱动器或网络共享的总字节数。
object.TotalSize
object应为Drive对象的名称。
例子:Dim fso, d, s, t
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.volumename
d.volumename="系统盘"
msgbox d.volumename
三、File 对象提供对文件的所有属性的访问。
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\test.txt")
msgbox f.DateCreated
注意：只能先获取filesystemobject对象再获取file对象。
Set f = fso.GetFile("c:\test.txt")
这样才可以操作，操作时属性放在f的后面，d全权代表了文件。
1：Copy 方法--将指定的文件或文件夹从某位置复制到另一位置。
object.Copy destination[, overwrite]
object必选项。应为File或Folder对象的名称。
destination必选项。复制文件或文件夹的目标位置。不允许使用通配符。
overwrite可选项。Boolean 值。如果覆盖现有文件或文件夹，则Boolean 值为True（默认）；否则为False。
对File 或Folder 应用Copy 方法的结果与使用FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 执行的操作完全相同。在FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 中，使用object 引用文件或文件夹，并将文件或文件夹作为参数传递给FileSystemObject.CopyFile 或FileSystemObject.CopyFolder。然而，应该注意的是FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 方法可以复制多个文件或文件夹。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Copy ("c:\test1.txt")'注意，这个路径中不可以包含不存在文件夹。
2：Delete 方法--删除指定的文件或文件夹。
object必选项。应为File或Folder对象的名称。
force可选项。Boolean 值。如果要删除的文件或文件夹的属性设置为只读属性，则该值为True；否则为False（默认）。若指定文件或文件夹不存在，错误发生。有内容的文件夹和无内容的文件夹所使用的Delete方法无异。无论有无内容，指定文件夹皆被删除。
对File 或Folder 应用Delete 方法的结果与使用FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder 执行的操作完全相同。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
wscript.sleep(3000)
set MyFile =fso.GetFile("c:\testfile.txt")
MyFile.delete
一定不要忘了执行delete一定是先获取了该文件才行。
3：Move 方法--将指定的文件或文件夹从某位置移动到另一位置。
object.Move destination
object
必选项。应为File或Folder对象的名称。
destination必选项。目标位置。表示要将文件或文件夹移动到该位置。不允许使用通配符。
对File 或Folder 应用Move 方法的结果与使用FileSystemObject.MoveFile 或FileSystemObject.MoveFolder 执行的操作完全相同。然而，要注意的是FileSystemObject.MoveFile 或FileSystemObject.MoveFolder 方法可移动多个文件或文件夹。例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFi le.WriteLine(“这是一个测试。”)
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Move "c:\windows\desktop\"
4：OpenAsTextStream 方法--打开指定的文件并返回一个TextStream对象，此对象用于对文件进行读、写或追加操作。
object.OpenAsTextStream([iomode, [format]])
object必选项。应为File对象的名称。
iomode可选项。输入/输出模式，是下列三个常数之一：ForReading、ForWriting 或ForAppending。
format可选项。三个Tristate值之一，指出以何种格式打开文件。忽略此参数，则文件以ASCII 格式打开。iomode参数可为下列设置之一：
OpenAsTextStream 方法可提供与FileSystemObject 对象的OpenTextFile 方法相同的功能。另外，使用OpenAsTextStream 方法可对文件进行写操作。
01：Attributes 属性---【file、folder】设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。
object.Attributes [= newattributes]
object必选项。应为File或Folder对象的名称。
newattribute可选项。如果指定此参数，则newattributes为指定的object的属性的新值。
忽略对只读属性（别名，压缩或目录）所作的改变. 当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.
例子：1：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.Attributes
2：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.Attributes
MyFile.Attributes=1
msgbox MyFile.Attributes
02：DateCreated 属性--【file、folder】返回指定的文件或文件夹的创建日期和时间。只读。
object.DateCreated
object 应为File 或Folder 对象的名称。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.datecreated
会返回2009-05-25 19:20:10
03:DateLastAccessed 属性--【file、folder】返回指定的文件或文件夹的上次访问日期和时间。只读。
object.DateLastAccessed
object 应为File 或Folder 对象的名称。
例子：Dim fso, MyFile
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.DateLastAccessed
04：DateLastModified 属性--【file、folder】
返回指定的文件或文件夹的上次修改日期和时间。只读。
object.DateLastModified
object 应为File 或Folder 对象的名称。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.DateLastModified
05:Drive 属性--【file、folder】返回指定的文件或文件夹所在的驱动器的驱动器号。只读。
object.Drive
object 应为File 或Folder 对象的名称。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.drive
会返回"c:"注意，只有冒号。
06：Name 属性设置或返回指定的文件或文件夹的名称。可读写。
https://www.wendangku.net/doc/b210667519.html, [= newname]
object必选项。应为File或Folder对象的名称。
newname可选项。如果提供此参数，则指定的object名称更新为newname。
例子：1：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox https://www.wendangku.net/doc/b210667519.html,
会返回"test.txt"
2:
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox https://www.wendangku.net/doc/b210667519.html,
https://www.wendangku.net/doc/b210667519.html,="test1.txt"'注意要有引号
msgbox https://www.wendangku.net/doc/b210667519.html,
07：ParentFolder 属性--【file、folder】返回指定文件或文件夹的父文件夹。只读。
object.ParentFolder
object 应为File 或Folder 对象的名称。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
set MyFile =fso.GetFile("c:\test.txt")
msgbox MyFile.parentfolder
会显示"c:\"
08:Path 属性--【file、folder】返回指定文件、文件夹或驱动器的路径。
object.Path，object 应为File、Folder 或Drive 对象的名称。对于驱动器，路径不包含根目录。例如，C 驱动器的路径是C:，而不是C:\。
例子：Dim fso, d
Set d = fso.GetDrive("c")
msgbox d.path
将会返回"c:"仅有冒号。
09：ShortName 属性返回按照早期8.3 文件命名约定转换的短文件名。
object.ShortName ，object 应为File 或Folder 对象的名称。
例子：Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
msgbox f.ShortName
将会返回"japrof~1.dll"
10:ShortPath 属性
返回按照8.3 命名约定转换的短路径名。
object.ShortPath
object 应为File 或Folder 对象的名称。
例子:Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
msgbox f.shortpath
将会返回"c:\progra~1\intern~1\jsprof~1.dll"
11:Size 属性对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。
object.Size
object 应为File 或Folder 对象的名称。
例子：Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
msgbox f.size/1024&kB
将会返回115KB
12:Type 属性返回文件或文件夹的类型信息。例如，对于扩展名为.TXT 的文件，返回“Text Document”。
object.Type ，object 应为File 或Folder 对象的名称。
例子：Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
msgbox f.type
将会返回"应用程序扩展"
四、Folder 对象提供对文件夹所有属性的访问。
以下代码举例说明如何获得Folder对象并查看它的属性：
Dim fso, f,
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
msgbox f.DateCreated
以下属性为重复属性，参见File 对象
Attributes 属性| DateCreated 属性| DateLastAccessed 属性| DateLastModified 属性| Drive 属性| Name Property | ParentFolder 属性| Path Property | ShortName 属性| ShortPath 属性| Size 属性| Type 属性
1：Files 属性返回由指定文件夹中所有File对象（包括隐藏文件和系统文件）组成的Files集合。
object.Files object应为Folder对象的名称。
例子：Dim fso, f, f1, fc, s
Set f = fso.GetFolder("c:\test")
Set fc = f.Files
For Each f1 in fc
s = s & https://www.wendangku.net/doc/b210667519.html,
Next
msgbox s
将会列举c:\test下面的所有文件，不包含子目录中的文件。
2:IsRootFolder 属性如果指定的文件夹是根文件夹，返回True；否则返回False。
object.IsRootFolder ，object应为Folder对象的名称。
例子：Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\")
msgbox f.isrootfolder
会返回ture
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\test")
msgbox f.isrootfolder
会返回false
3：SubFolders 属性
返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的Folders集合。
object.SubFolders object应为Folder对象的名称。
例子：Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\test")
Set sf = f.SubFolders
For Each f1 in sf
s = s&https://www.wendangku.net/doc/b210667519.html,
Next
msgbox s
会返回test下所有文件夹的名字。
以下方法重复，参见File 对象
Copy 方法| Delete 方法| Move 方法| CreateTextFile 方法
五、TextStream有助于顺序访问文件。
在下列代码中，a 是由FileSystemObject 中的CreateTextFile 方法返回的TextStream 对象：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
1：Close 方法关闭打开的TextStream文件。
object.Close，object 应为TextStream 对象的名称。
例子：Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
2：Read 方法从TextStream文件中读入指定数目的字符并返回结果字符串。
object.Read(characters)
object必选项。应为TextStream 对象的名称。
characters必选项。要从文件读的字符数目。
例子：1：
Dim fso, f, Msg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)
f.Write "世界你好!"
Set f = fso.OpenTextFile("c:\testfile.txt", 1)
msgbox f.Read(2)
将会返回"世界"
2：将会一个字符一个字符地读取。
Dim fso, f,ch
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\test.txt",1, False)
Do While f.AtEndOfLine <> True
ch =f.Read(1)
msgbox ch
Loop
f.Close
3：ReadAll 方法读入全部TextStream文件并返回结果字符串。
object.ReadAll，object 应为TextStream 对象的名称。
例子:Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 1)
msgbox f.ReadAll
4:Skip 方法
读取TextStream文件时跳过指定数目的字符。
object.Skip(characters)
object必选项。应为TextStream对象的名称。
characters必选项。读取文件时跳过的字符数目。
例子：Dim fso, f, Msg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)
f.Write "世界你好!"
Set f = fso.OpenTextFile("c:\testfile.txt", 1)
f.skip(2)
msgbox f.read(3)
将会返回“你好！”注意这个方法本身返回值为空。
5：SkipLine 方法当读到TextStream文件时，跳过下一行。
object.SkipLine，object 应为TextStream 对象名称。跳过一行意味着读并放弃本行所有字符并包括下一新行字符内容。如果文件不是以读方式打开则会出现错误。
例子:Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)
记事本编vbs对话框教程
记事本编vbs对话框教程 Vb语言是Microsoft visual basic软件的脚本语言 大家好，我是记忆….今天给大家带来：记事本编程VBS对话框 大家应该都懂的吧，VBS格式的文件是对话框文件，而利用vb编写vbs文件其实是简单的不能再简单的事情，我也相信大家都对微软公司的windows 系统自带的对话框有浓厚 的兴趣吧！ 下面，教程开始 首先，大家先创建一个txt 文档…. 文档创建好了以后，大家往里
输入以下代码： Msgbox "欢迎光临" Msgbox其实是Microsoft visual basic软件中的一个函数，它可以弹出一个对话框。 如图： 看到了图片以后，也许你会问我：“对话框不是都有标题的吗？为什么你的就没有呢？” 要加上标题的话可以输入以下代码Msgbox "欢迎光临",0,"***" 当然，后面双引号中的“***”可以改变成你想要的内容，反正都是标题
如图： 下面，我再教大家做一个“输入对话框”，那什么是“输入对话框”呢？ 输入对话框的功能是弹出 一个对话框，对话框内显示 着提示，到了用户按下了对 话框内的按钮后，再返回用 户输入文字……. 输入对话框主要用到的函
数：Inputbox函数 在记事本内输入以下代码： Inputbox "hello",0,"hero" 试试看，后面的hero不是标题，而是对话框内显示的提示。 下面再教大家弄一个最好 玩的对话框，用到函数是： WScript.Echo，它的功能 是：弹出对话框，用户没有
按完你所编的所有代码制作的对话框，是关不掉程序的…….不是高手的话，不想按了，关机子解决问题…好好学这个，愚人节时去弄弄你的朋友们吧 看好了啊！！ 在记事本输入以下代码：WScript.Echo("哟，有人来了?") WScript.Echo("会是谁呢") WScript.Echo("哈哈，既然
VBS脚本编程简明教程精编
V B S脚本编程简明教程 精编 Document number：WTT-LKK-GBB-08921-EIGG-22986
第一章 VBS脚本编程简明教程 第一节◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机()吗 Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程
很好的VBS教程(带实例)
很好的VBS教程（带实例） 推荐第一篇： 讲一下VBScript。主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。 什么是VBScript呢？VBScript的全称是：Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。正如其字面所透露的信息，VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。我进一步解释一下，Microsoft Visual Basic是微软公司出品的一套可视化编程工具，语法基于Basic.脚本语言，就是不编译成二进制文件，直接由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给用户发送.vbs 的源程序，用户就能执行了。 我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了，答案是：记事本(Notepad).我不是开玩笑，其实任何一种文本编辑器都可以用来开发VBS开发，只不过记事本是由系统自带的，比较好找而已. 尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些工具可以提供"语法高亮"等功能，更加方便开发，用哪一个随你喜好，我比较喜欢Edit Plus (2.10). OK，我们先来写一个VBScript程序热热身. REM 输入并回显你的名字 '使用InputBox和Msgbox函数 Dim name,msg msg="请输入你的名字:" name=Inputbox(msg,"名称") Msgbox(name) 把上面的程序清单输入到记事本里面，然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行，观察运行结果. 注意:请自己输入程序清单，不要复制->粘贴! 我来解释一下这个程序，第一行和第二行的开头分别是"REM"语句和" ' "，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，信息等等. 注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰，简洁的注释。 Dim用来声明一个变量，在VBS中，变量类型并不是那么重要，就是说VBS会帮你自动识别变量类型，而且变量在使用前不一定要先声明，程序会动态分配变量空间. 在VBS 中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数")，也不用考虑是不是字符串(一串字符，比如:"Hello World")，VBS会自动帮你搞定. 所以第三行语句可以删除，效果不会变，但我强烈反对这么做，一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字，但不能使用vbs已经定义的字，比如dim，也不能是纯数字。 下一行被称之为"赋值"，"="是赋值符号，并不是数学中的等于号，尽管看起来一样.这
VBScript微软官方教程
VBScript微软官方教程 Microsoft Visual Basic Scripting Edition 是程序开发语言 Visual Basic 家族的最新成员，它将灵活的 Script 应用于更广泛的领域，包括 Microsoft Internet Explorer 中的 Web 客户机 Script 和 Microsoft Internet Information Server 中的 Web 服务器 Script。 易学易用 如果您已了解Visual Basic 或Visual Basic for Applications，就会很快熟悉VBScript。即使您没有学过Visual Basic，只要学会VBScript，就能够使用所有的Visual Basic 语言进行程序设计。虽然您可以从本教程的几个Web 页面中学习VBscript，但是本教程并没有告诉您如何编程。要学习编程，请阅读由Microsoft Press 出版的《Step by Step》。 ActiveX Script VBScript 使用ActiveX? Script 与宿主应用程序对话。使用ActiveX Script，浏览器和其他宿主应用程序不再需要每个Script 部件的特殊集成代码。ActiveX Script 使宿主可以编译Script、获取和调用入口点及管理开发者可用的命名空间。通过ActiveX Script，语言厂商可以建立标准Script 运行时语言。Microsoft 将提供VBScript 的运行时支持。Microsoft 正在与多个Internet 组一起定义ActiveX Script 标准以使Script 引擎可以互换。ActiveX Script 可用在Microsoft? Internet Explorer 和Microsoft? Internet Information Server 中。 其他应用程序和浏览器中的VBScript 作为开发者，您可以在您的产品中免费使用VBScript 源实现程序。Microsoft 为32 位Windows? API、16 位Windows API 和Macintosh? 提供VBscript 的二进制实现程序。VBScript 与World Wide Web 浏览器集成在一起。VBScript 和ActiveX Script 也可以在其他应用程序中作为普通Script 语言使用。 SCRIPT 元素用于将 VBScript 代码添加到 HTML 页面中。