VBScript语法错误对照

vbs 语法
vbs 语法
VBScript是一种基于Visual Basic的脚本语言，它有以下的语法规则：
1. 注释：在VBScript中，使用单引号（'）表示注释，即使单引号出现在语句的中间也不会被视为代码。

2. 命名规则：VBScript中的名称必须以字母开头，可以包含字母、数字和下划线，但不能包含空格。

3. 变量：需要用Dim 关键词声明变量。

它们可以存储各种不同的数据类型，包括数字、字符串、日期等。

4.运算符：常见的算术运算符包括加号+、减号-、乘号*和除号/等。

5. 条件语句：VBScript中的条件语句可以用If语句来判断。

语法形式为：If condition Then statement1 [ElseIf condition2 Then statement2] … [Else statement3] End If。

6. 循环语句：VBScript中的循环语句有For…Next、While…Wend 和Do…Loop等。

其中For循环语句可用于处理循环中的重复任务。

7. 函数：VBScript中可以定义函数来执行特定的任务。

这些函数可以接受参数，并根据需要返回值。

8. 对象：VBScript是一种面向对象编程语言，它支持创建和操作对象。

可以使用CreateObject函数创建各种对象，如文件系统对象、网络对象等。

9. 错误处理：VBScript中的错误处理使用On Error语句来识别并处理错误。

如果出现运行时错误，程序将执行指定的错误处理程序。

vbscript程序员参考手册前三章摘要：1.VBScript 简介2.VBScript 的基本语法3.VBScript 的控制结构4.VBScript 的函数和过程5.VBScript 的文件操作6.VBScript 的错误处理正文：VBScript（Visual Basic Script）是一种基于Visual Basic 的脚本语言，通常用于编写Windows 操作系统中的批处理文件和Microsoft Office 应用程序中的宏。

作为一种解释型语言，VBScript 具有简单易学、语法简洁的特点，因此在程序员和系统管理员中广受欢迎。

一、VBScript 简介VBScript 最早出现在1995 年，随着Windows 95 的发布而流行起来。

它的设计初衷是为了让用户能够更轻松地编写批处理文件和宏，而不需要具备深入的编程知识。

VBScript 的语法类似于Visual Basic，因此对于已经熟悉Visual Basic 的程序员来说，学习VBScript 将会非常容易。

二、VBScript 的基本语法VBScript 的基本语法包括变量声明、数据类型、运算符、控制语句等。

下面是一些基本的VBScript 语法示例：1.变量声明：在VBScript 中，变量不需要显式声明，它们在第一次赋值时自动创建。

变量的数据类型也是根据赋的值自动确定的。

```Dim a, ba = 10b = "Hello, world!"```2.数据类型：VBScript 支持基本的数据类型，如整数、浮点数、字符串、布尔值等。

```Dim intNum As IntegerDim floatNum As DoubleDim strText As StringDim boolFlag As Boolean```3.运算符：VBScript 支持各种算术、逻辑和位运算符。

```a = 10 + 5b = 2 * 3c = a And b```4.控制语句：VBScript 提供了各种控制语句，如条件语句（If...Else）、循环语句（For...Next、While...Wend）等。

错误编号说明十进制十六进制5 800A0005 无效过程调用或参数6 800A0006 溢出7 800A0007 内存不足9 800A0009 下标越界10 800A000A 该数组为定长的火临时被锁定11 800A000B 被零除13 800A000D 类型不匹配14 800A000E 字符串空间溢出17 800A0011 无法执行请求的操作28 800A001C 堆栈溢出35 800A0023 未定义Sub或function48 800A0030 加载dll错误51 800A0033 内部错误52 800A0034 坏文件名或数53 800A0035 文件未找到54 800A0036 坏文件模式55 800A0037 文件已经打开57 800A0039 设备I\0错误58 800A003A 文件已经存在61 800A003D 磁盘空间已满62 800A003E 输入超出文件尾67 800A0043 文件太多68 800A0044 设备不可用70 800A0046 权限禁用71 800A0047 磁盘未准备好74 800A004A 不能用不同的驱动器重新命名75 800A004B 路径\文件访问错误76 800A004C 路径未找到91 800A005B 未设置对象变量92 800A005C For循环未初始化94 800A005E 非法使用Null322 800A0142 不能建立所需临时文件424 800A01A8 需要对象429 800A01AD ActiveX部件无法创建对象430 800A10AE 类不支持自动化432 800A01B0 在自动化操作中未找到文件名或类名438 800A01B6 对象不支持该属性或方法440 800A01B8 Automation错误445 800A01BD 对象不支持此操作446 800A01BE 对象不支持指定的参数447 800A01BF 对象不支持当前的区域设置448 800A01C0 未找到命名参数449 800A01C1 参数不可选450 800A01C2 错误的参数个数或无效的参数属性值451 800A01C3 对象不是一个集合453 800A01C5 指定的DLL函数未找到455 800A01C7 代码源锁错误457 800A01C9 这个键已经是本集合的一个元素关联458 800A01CA 变量使用了一个VBScipt中不支持的自动化类型462 800A01CE 远程服务器不存在或不能访问481 800A01E1 无效图片500 800A01F4 变量未定义501 800A01F5 违法的分配502 800A01F6 脚本对象不安全503 800A01F7 对象不能安全初始化504 800A01F8 对象不能安全创建505 800A01F9 无效的或不合格的引用506 800A01FA 类未被定义507 800A01FB 发生异常5016 800A1398 需要正则表达式对象5017 800A1399 正则表达式中的语法错误5018 800A139A 错误的数量词5019 800A139B 在正则表达式中需要“]”5020 800A139C 在正则表达式中需要“）”5021 800A139D 字符集越界32811 800A802B 元素未找到。

VBScript错误代码及对应解释大全VBScript 运行时错误如果 VBScript 脚本执行系统无法实施的操作，则会产生 VBScript 运行时错误。

只有在运行脚本、为变量表达式赋值或分配内存时，才会产生 VBScript 运行时错误。

错误编号描述429 ActiveX 部件无法创建对象507 发生异常449 参数不可选17 无法执行请求的操作430 类不支持自动化506 类未被定义11 被零除48 加载 DLL 错误5020 在正则表达式中需要’)’5019 在正则表达式中需要’]’432 在自动化操作中未找到文件名或类名92 For 循环未初始化5008 非法赋值51 内部错误505 无效的或不合格的引用481 无效图片5 无效过程调用或参数5021 字符集越界94 非法使用 Null448 未找到命名参数447 对象不支持当前的区域设置445 对象不支持此操作438 对象不支持该属性或方法451 对象不是一个集合504 对象不能安全创建503 对象不能安全初始化502 脚本对象不安全424 需要对象91 未设置对象变量7 内存不足28 堆栈溢出14 字符串空间溢出6 溢出35 未定义 Sub 或 Function9 下标越界5017 正则表达式中的语法错误462 远程服务器不存在或不能访问10 该数组为定长的或临时被锁定13 类型不匹配5018 错误的数量词500 变量未定义458 变量使用了一个 VBScript 中不支持的自动化类型450 错误的参数个数或无效的参数属性值VBScript 语法错误如果 VBScript 语句结构违反了一个或多个 VBScript 脚本语言语法规则，就会产生 VBScript 语法错误。

VBScript 语法错误通常在执行程序前，编译程序时产生。

错误编号描述1052 在类中不能有多个缺省的属性/方法1044 调用 Sub 时不能使用圆括号1053 类初始化或终止不能带参数1058 只能在 Property Get 中指定’Default’1057 说明’Default’必须同时说明’Public’ "1005 需要’(’1006 需要’)’1011 需要’=’1021 需要’Case’1047 需要’Class’1025 需要语句的结束1014 需要’End’1023 需要表达式1015 需要’Function’1010 需要标识符1012 需要’If’1046 需要’In’1026 需要整数常数1049 在属性声明中需要 Let , Set 或 Get1045 需要文字常数1019 需要’Loop’1020 需要’Next’1050 需要’Property’1022 需要’Select’1024 需要语句1016 需要’Sub’1017 需要’Then’1013 需要’To’1018 需要’Wend’1027 需要’While’或’Until’1028 需要’While,’、’Until,’或语句未结束1029 需要’With’1030 标识符太长1014 无效字符1039 无效’exit’语句1040 无效’for’循环控制变量1013 无效数字1037 无效使用关键字’Me’1038 ’loop’没有’do’1048 必须在一个类的内部定义1042 必须为行的第一个语句1041 名称重定义1051 参数数目必须与属性说明一致1001 内存不足1054 Property Let 或 Set 至少应该有一个参数1002 语法错误1055 不需要的’Next’1015 未终止字符串常数。

VBScript语法速查及实例说明VBScript 函数功能说明例子Abs （数值）绝对值。

一个数字的绝对值是它的正值。

空字符串(null) 的绝对值，也是空字符串。

未初始化的变数，其绝对为0 例子：ABS(-2000)结果：2000Array （以逗点分隔的数组元素）Array 函数传回数组元素的值。

例子：A=Array(1,2,3)B=A(2)结果：2说明：变量Ｂ为Ａ数组的第二个元素的值。

Asc （字符串）将字符串的第一字母转换成ANSI （美国国家标准符号）字码。

例子：Ａsc（Inter net＂）结果：73说明：显示第一字母I 的ANSI 字码。

CBool（表达式）转换成布尔逻辑值变量型态（Ｔrue 或Ｆalse ）例子：CBool（1+2）结果：TrueCDate （日期表达式）换成日期变量型态。

可先使用IsDate 函数判断是否可以转换成日期。

例子：CDate (now( )+2)结果：2000/5/28 10:30:59CDbl（表达式）转换成DOUBLE变量型态。

Chr （ANSI 字码）将ASCII 字码转换成字符。

例子：Chr （72 ）结果：HCInt （表达式）转换成整数变量型态。

例子：CInt ("3.12")结果：3CLng （表达式）转换成LONG 变量型态。

CSng （表达式）转换成SINGLE 变量型态。

CStr （表达式）转换成字符串变量型态。

Date （）top 传回系统的日期。

例子：Date结果：2000/5/13DateAdd （I , N , D ）将一个日期加上一段期间后的日期。

I ：设定一个日期（Date ）所加上的一段期间的单位。

譬如interval="d" 表示N的单位为日。

I的设定值如下：yyyy Year 年q Quarter 季m Month 月d Day 日w Weekday 星期h Hour 时n Minute 分s Second 秒N ：数值表达式，设定一个日期所加上的一段期间，可为正值或负值，正值表示加（结果为>date 以后的日期），负值表示减（结果为>date 以前的日期）。

本帖最后由we似曾相识于2011-3-9 21:45 编辑//=====================<VBS对文件夹操作例子>(1)创建文件夹1.Dim fso, f2.'如果指定的文件夹已经存在，则会出现错误。

3.Set fso = CreateObject("Scripting.FileSystemObject")4.Set f = fso.CreateFolder("c:\New Folder")复制代码(2)删除文件夹1.Dim fso,filespec2.filespec="D:\电影" '要删除的文件夹路径3.Set fso = CreateObject("Scripting.FileSystemObject")4.fso.DeleteFolder(filespec)5.'若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true) 复制代码(3)判断文件夹是否存在1.Dim fso,msg,tt2.Set fso = CreateObject("Scripting.FileSystemObject")3.fldr="C:\Documents and Settings" '文件夹路径和名字4.tt = fso.FolderExists(fldr) '存在返回true;不存在返回false5.If tt=true Then6.msg = fldr & " 存在。

"7.Else8.msg = fldr & " 不存在。

"9.End If10.Msgbox msg复制代码(4)获取指定目录下所有文件的文件名(不包含文件夹名)1.Dim a2.a="D:\文件夹1" '目标文件夹完整路径3.Msgbox ShowFolderList(a)4.Function ShowFolderList(folderspec)5.Dim fso, f, f1, fc, s '定义变量6.Set fso = CreateObject("Scripting.FileSystemObject") '创建对象7.Set f = fso.GetFolder(folderspec) '得到文件夹下folder对象8.Set fc = f.Files9.For Each f1 in fc '查找所有符合条件的文件名10. s = s & 11. s = s & vbcrlf '得到结果并换行12.Next13.ShowFolderList = s14.End Function复制代码(5)分离路径中的文件名(不带扩展名)1.Msgbox GetTheBase("C:\tt.txt") 'GetTheBase返回值tt2.Function GetTheBase(filespec)3. Dim fso4. Set fso = CreateObject("Scripting.FileSystemObject")5. GetTheBase = fso.GetBaseName(filespec)6.End Function复制代码//=====================<VBS对文件操作例子>(1)创建文件1.Dim fso, MyFile2.Set fso = CreateObject("Scripting.FileSystemObject")3.Set MyFile = fso.CreateTextFile("c:\123.txt", True) 'true则可以覆盖已有的同名文件4.Msgbox "这是一个测试"5.MyFile.Close 'close是必要的,不要省复制代码(2)删除文件1.Dim fso,filespec2.filespec="C:\123.txt" '要删除的文件3.'设置成"C:\*.doc"则删除C目录下所有.doc扩展名的文档(但不会删除其子文件夹下.doc文档)4.Set fso = CreateObject("Scripting.FileSystemObject")5.fso.DeleteFile(filespec)6.'若删除只读文件则将上一行改为fso.DeleteFile(filespec,true)复制代码(3)判断文件是否存在1.Dim fso,msg,tt2.Set fso = CreateObject("Scripting.FileSystemObject")3.fle="C:\123.txt" '文件的完整路径4.tt = fso.FileExists(fle) '存在返回true;不存在返回false5.If tt=true Then6.msg = fle & " 存在。

ASP开发中遇到的错误信息中文说明大全大部分的ADO的错误码对应的含义除了在 Error 对象和 Errors 集合中说明的提供者错误之外，ADO 本身也将错误返回到运行时环境的异常处理机制之中。

使用编程语言的错误捕获机制（如 _blank> Microsoft®Visual Basic® 中的 On Error 语句）可捕获及处理下列错误。

下表将同时显示十进制和十六进制错误代码值。

常量名称编号说明adErrInvalidArgument3001 0x800A0BB9 应用程序使用的参数其类型错误、超出可接受的范围或者与其他参数冲突。

adErrNoCurrentRecord3021 0x800A0BCD BOF 或 EOF 为 True，或者当前记录已经删除。

应用程序请求的操作需要当前记录。

adErrIllegalOperation3219 0x800A0C93应用程序请求的操作不允许出现在该上下文中adErrInTransaction3246 0x800A0CAE在事务中应用程序无法显式关闭Connection 对象。

adErrFeatureNotAvailable3251 0x800A0CB3提供者不支持应用程序请求的操作。

adErrItemNotFound3265 0x800A0CC1ADO 无法在对应于应用程序请求的名称或顺序引用的集合中找到对象。

adErrObjectInCollection3367 0x800A0D27无法追加，对象已经在集合中。

adErrObjectNotSet3420 0x800A0D5C应用程序引用的对象不再指向有效的对象。

adErrDataConversion3421 0x800A0D5D应用程序使用了不符合对当前操作的值类型。

adErrObjectClosed3704 0x800A0E78如果对象关闭，则不允许应用程序请求的操作。

adErrObjectOpen3705 0x800A0E79如果对象打开，则不允许应用程序请求的操作。

vbScript on error resume next容错使用心得vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误代码如下:If err.number0 thenerrNum = Err.NumbererrDesc = Err.DescriptionCall G00B02logOut("Error.002"， errNum ，errDesc ) End IfIf err.number0 thenerrNum = Err.NumbererrDesc = Err.DescriptionCall G00B02logOut("Error.002"， errNum ，errDesc ) End If这样可以捕获到错误代码和错误的描述信息，并写入日志文件。

然而，有个问题是，在我们捕获了这个错误之后的代码，如果再出现错误而你没有捕获的话，代码仍然会忽略错误继续运行。

忽略错误是我们不希望看到的结果，将导致程序调试困难。

此时可以使用 On Error GoTo 0 这句来终止前面错误处理，即可以和on error resume next 成对出现。

这样就不会影响后面的代码了。

代码如下:on error resume Next。

'DB operate。

If err.number0 thenerrNum = Err.NumbererrDesc = Err.DescriptionCall G00B02logOut("Error.002"， errNum ，errDesc ) End IfOn Error Goto 0on error resume Next。

'DB operate。