Name语句
描述：重新命名一个文件、目录或文件夹。 一、语法：
Name oldpathname As newpathname Name语句的语法包含下面部分： 部分 oldpathname 描述 必要参数。字符串表达式，指定已存在的文件、目录或文件夹，可以包含目录或文件夹以及驱动器 必要参数。字符串表达式，指定新的文件、目录或文件夹。可以包含目录或文件夹以及驱动器。而由newpathname所指定的文件名不能存在 newpathname 二、说明：
Name语句不但可以重新命名一个文件，也可以重新命名一个目录或文件夹。当重新命名一个文件时，文件名应是包括扩展名在内的完整文件名。
Name语句可以将文件移动到不同驱动器的不同目录或文件夹中。但当newpathname和oldpathname都在同一路径下，只能重新命名已经存在的文件、目录或文件夹。Name不能创建新文件、目录或文件夹。
在改变名称之前，先关闭打开的文件，否则将会产生错误。Name参数不能使用多字符(*)和单字符(?)的通配符。 三、应用举例：
本示例使用Name语句来更改文件的名称。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。然后新建一个文件夹，起名为MyDir。在MyDir文件夹里新建一个文本文件，起名为a。 Private Sub Command1_Click()
Name \更改文件名，并移动文件。 End Sub
On...GoSub、On...GoTo语句
描述：根据表达式的值，转到特定行执行。 一、语法：
On expression GoSub destinationlist On expression GoTo destinationlist
On...GoSub、On...GoTo语句的语法包含下面部分： 部分 描述 必需的。数值表达式，其运算结果应该是一个界于0到255之间的整数，包含0和255。如果expression的计算结果不是一个整数，则它会先四舍五入为一个整数 expression destinationlist 必需的。行号或行标签的列表，之间要以逗号隔开 二、说明：
expression的值会决定转到destinationlist中的哪一行。如果expression的值小于1或大于列表的项目个数，则会产生下面的结果之一： 如果表达式的值 则 等于0或大于列表的项目个继续执行On...GoSub或On...GoTo之后的语数 句 负数或大于255 会发生错误 在On...GoSub和On...GoTo中也可随意使用任意个行号和行标签，如果一行中放不下，
那么就必须在一行后使用续行符来衔接到下一行。但是，如果使用了太多的行标签或行号，使程序不易阅读，以至导致出错。若要执行多重分支程序，建议使用适应性更强的结构化控制语句Select…Case。 三、应用举例：
本示例使用On...GoSub及On...GoTo语句来完成不同的程序区段。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click()
Dim MyNum As Integer, MyString As String For MyNum = 0 To 3 MyString = \
Debug.Print \ On MyNum GoSub Sub1, Sub2
'执行完Sub后，程序会回到此处来继续完成。 Debug.Print \ Next MyNum
For MyNum = 0 To 3
Debug.Print \ On MyNum GoTo Line1
'执行完Line后，程序不会回到此处来。 Next MyNum Exit Sub Sub1:
MyString = \Sub2:
MyString = \Line1:
MyString = \
Debug.Print \Line2:
MyString = \
Debug.Print \End Sub
运行程序后，在立即窗口显示： MyNum=0
MyString=NoSub MyNum=1
MyString=InSub1 MyNum=2
MyString=InSub2 MyNum=3
MyString= NoSub MyNum=0 MyNum=1
MyString=InLine1 MyString=InLine2
从上面的显示结果可以看出，第一个循环采用了On...GoSub语句，当MyNum=0时，MyString=NoSub，说明程序不转移，顺序执行On...GoSub之后的语句；当MyNum=1时，MyString=InSub1，说明程序已经跳转到Sub1中，执行相应程序；当MyNum=2时，MyString=InSub2，说明程序执行完Sub1程序又重新返回执行On...GoSub之后的语句，跳转到Sub2中，执行相应程序；当MyNum=3时，MyString=NoSub，由于大于列表的项目个数，顺序执行On...GoSub之后的语句。
第二个循环采用了On...GoTo语句，当MyNum=0时，说明程序不转移，顺序执行On...GoTo之后的语句；当MyNum=1时，MyString=InLine1，说明程序已经跳转到Line1中，执行相应程序；下面的MyString=InLine2，说明程序不能返回，顺序执行下面的语句。
On Error语句
描述：启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。 一、语法：
On Error GoTo line On Error Resume Nex On Error GoTo 0 On Error
On Error语句的语法包含下面部分： 部分 描述 On Error 启动错误处理程序，且该错误处理程序从必要的line参数中指定的lineGoTo line 开始。line参数可以是任何行标签或行号。访问对象时不使用这种形式 On Error 说明当一个运行时错误发生时，程序会忽略错误，继续运行发生错误的Resume Next 语句之后的语句。访问对象时使用这种形式 On GoTo 0 Error 禁止当前过程中任何已启动的错误处理程序 二、说明： 如果不使用On Error语句，则任何运行时发生的错误都是致命的；也就是说，程序会显示错误信息并终止运行。
在On Error GoTo line形式，只要在本过程里On Error语句的后面，不管在什么地方发生一个运行时错误，On Error语句均会使程序跳转到line，激活错误处理程序。注意：一个错误处理程序不是Sub过程或Function过程，它是一段用行标签或行号标记的代码，因此指定的line必须与On Error语句在同一个过程中，否则会发生编译时间错误。 在调试程序时，我们常用On Error GoTo line捕捉错误。依靠Err对象的Number属性中的值来确定错误发生的原因，也可以用Err对象的Description属性来显示与Err.Number相关联的错误信息。
On Error Resume Next可以置运行时的错误于不顾，使程序得以继续执行。也就是说，这个语句会忽略错误，使程序从紧随产生错误的语句之后的语句继续执行。 在这种形式，我们可以将错误处理程序放置在错误发生的地方，而不必将程序跳转到过程中的其它位置。这样，可以在多个会发生错误的地方，分别放置各自的错误处理程序。例如在树型视图控件添加节点，为避免重复添加节点。所以需要先扫描节点，如果节点不存在会产生错误，我们在扫描节点后面放置错误处理程序，然后利用错误处理程序添加节点。 On Error GoTo 0停止在当前过程中处理错误，意义不大，因为在退出过程时，即使没有On Error GoTo 0语句，错误处理程序也会自动关闭。 三、应用举例：
本示例中，试图删除一个已经打开的文件从而生成的错误。这个错误将由On Error GoTo语句指定的错误处理程序来处理，处理完后，程序会回到发生错误的语句处。然后用On Error GoTo 0语句关闭错误陷阱。最后用On Error Resume Next语句用来改变错误陷阱，以便发觉下一个语句产生的错误，分别处理各个错误。
建立一个标准工程，在Project（工程）菜单上点击Components，然后在Components对话框添加名为Microsoft Windows Common Controls 6.0的企业板控件。
在窗体上添加一个命令按钮、三个文本框和一个树状视图，将下面的程序粘贴过去。 Private Sub Command1_Click() Dim newNode As Node On Error GoTo MyErr
Open \打开输出文件。 Kill \试图删除已打开的文件。 On Error GoTo 0 '关闭错误陷阱。
On Error Resume Next '改变错误陷阱。 Text1.Text = Trim(Text1.Text) Text2.Text = Trim(Text2.Text) Text3.Text = Trim(Text3.Text) If Trim(Text1.Text) = \ Exit Sub End If
Set newNode = TreeView1.Nodes.Item(UCase$(Text1.Text)) If Error Then
Set newNode = TreeView1.Nodes.Add(, , UCase$(Text1.Text), Text1.Text) End If
If Trim(Text2.Text) = \ Exit Sub
End If
Set newNode = TreeView1.Nodes.Item(UCase$(Text2.Text)) If Error Then
Set newNode = TreeView1.Nodes.Add(UCase$(Text1.Text), tvwChild, UCase$(Text2.Text), Text2.Text) End If
If Trim(Text3.Text) = \ Exit Sub End If
Set newNode = TreeView1.Nodes.Item(UCase$(Text3.Text)) If Error Then
Set newNode = TreeView1.Nodes.Add(UCase$(Text2.Text), tvwChild, UCase$(Text3.Text), Text3.Text) End If
Exit Sub '退出程序，以避免进入错误处理程序。 MyErr: '错误处理程序。 MsgBox Err.Description
Close #1 '关闭已打开的文件。
Resume '将控制返回到产生错误的语句。 End Sub
Open语句
描述：打开磁盘文件。 一、语法：
Open pathname For mode[Access access][lock]As[#]filenumber[Len=reclength] Open语句的语法包含下面部分： 部分 pathname 描述 必需的。字符串表达式，指定文件名，可以包括目录、文件夹及驱动器。 必需的。打开文件的方式，有追加信息(Append)、二进制(Binary)、输入(Input)、输出(Output)、或随机(Random)方式。如果未指定方式，则以随机访问方式打开文件。 可选。关键字说明打开的文件可以进行的操作，有只读模式(Read)、只写模式(Write)、或读写模式(ReadWrite)操作 可选。关键字说明限定于其它进程打开的文件的操作，有不锁定(Shared)、锁定读(LockRead)、锁定写(LockWrite)、和锁定读写(LockReadWrite)操作。 mode access lock filenumber 必要。一个有效的文件号，范围在1到511之间。 reclength 可选。小于或等于32,767（字节）的一个数。对于用随机文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。