VB代码急！！！哪位老鸟知道vb
找不到指定的文件（错误 53）
所指定的文件找不到。此错误有以下的原因和解决方法：
如 Kill、Open 或 Name 等语句，引用到一个不存在的文件。
检查文件名的拼写以及指定的路径。
试图调用动态链接库 (DLL)中的过程，但找不到在 Declare 语句的 Lib 子句中所指定的库文件名。
检查文件名的拼写以及指定的路径。
在开发环境中，如果试图打开并不存在的工程或装载不存在的文本文件，将发生错误。
检查文件名或工程名的拼写以及指定的路径。
你的情况应使用错误处理语句来避免:
On Error 语句示例
本示例先使用 On Error GoTo 语句在一个过程中指定错误处理...全部
找不到指定的文件（错误 53）
所指定的文件找不到。此错误有以下的原因和解决方法：
如 Kill、Open 或 Name 等语句，引用到一个不存在的文件。
检查文件名的拼写以及指定的路径。
试图调用动态链接库 (DLL)中的过程，但找不到在 Declare 语句的 Lib 子句中所指定的库文件名。
检查文件名的拼写以及指定的路径。
在开发环境中，如果试图打开并不存在的工程或装载不存在的文本文件，将发生错误。
检查文件名或工程名的拼写以及指定的路径。
你的情况应使用错误处理语句来避免:
On Error 语句示例
本示例先使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在。
本示例中，试图删除一已经打开的文件从而生成的错误码为 55。这个错误将由示例中的错误处理程序码来处理，处理完後，控制会回到发生错误的语句处。On Error GoTo 0 语句关闭错误陷阱。然后 On Error Resume Next 语句用来改变错误陷阱，以便发觉下一个语句产生的错误的范围。
请注意示例中使用 Err。Clear 在错误处理完後，清除 Err 对象的属性。
Sub OnErrorStatementDemo()
On Error GoTo ErrorHandler ' 打开错误处理程序。
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Kill "TESTFILE" ' 试图删除已打开的文件。
On Error Goto 0 ' 关闭错误陷阱。
On Error Resume Next ' 改变错误陷阱。
ObjectRef = GetObject("MyWord。Basic") ' 试图启动不存在
' 的对象
'检查可能发生的 Automation 错误。
If Err。Number = 440 Or Err。Number = 432 Then
' 告诉用户出了什么事。然后清除 Err 对象。
Msg = "There was an error attempting to open the Automation object!"
MsgBox Msg, , "Deferred Error Test"
Err。
Clear ' 清除 Err 对象字段。
End If
Exit Sub ' 退出程序，以避免进入错误处理程序。
ErrorHandler: ' 错误处理程序。
Select Case Err。Number ' 检查错误代号。
Case 55 ' 发生“文件已打开”的错误。
Close #1 ' 关闭已打开的文件。
Case Else
' 处理其他错误状态 。 。 。
End Select
Resume ' 将控制返回到产生错误的语句。
End Sub
Kill 语句
从磁盘中删除文件。
语法
Kill pathname
必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。
说明
在 Microsoft Windows 中，Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。
Kill 语句示例
本示例使用 Kill 语句将磁盘中的文件删除。
' 假设 TESTFILE是一数据文件。
Kill "TestFile" ' 删除。
' 将当前目录下所有 *。
TXT 文件全部删除。
Kill "*。TXT"
。收起
