编写了一个文件和浏览图片相结合的程序。
程序如图：
代码如下：
Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err.Number > 0 Then
MsgBox "设备没有准备好！", vbCritical
End If

End Sub

Private Sub File1_Click()
Dim filename1 As String
If Right(File1.Path, 1) = "\" Then
filename1 = File1.Path & File1.FileName
Else
filename1 = File1.Path & "\" & File1.FileName
End If
Image1.Picture = LoadPicture(filename1)

End Sub

Private Sub Form_Load()
File1.Pattern = "*.gif;*.jpg"

End Sub
其中，以下一段代码表示不很理解，忘大神赐教。
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err.Number > 0 Then
MsgBox "设备没有准备好！", vbCritical

drive1不一定可打开

首先，谢谢您的解答，大体最终要表达的是Drive1不一定可以打开，但是这样说太过笼统了，请问具体的细节的意思是什么？

On Error Resume Next                          '该句为错误处理语句，意思是如果后面程序执行出现错误就不处理，而继续执行下一条语句
Dir1.Path = Drive1.Drive                      '设置文件夹的路径和驱动器路径相同，这一句可能执行错误，比如驱动器选择光驱，但光驱里却没有光盘，
                                              '这时就会出现错误，如果没有on error resumen next则vb会出现错误提示并中断程序，有这一句则vb会设置
                                              'err.number的错误值后继续往下执行
If Err.Number > 0 Then                        '如果err.number不为0则表示前面程序执行出现错误，自己用户自己处理错误
  MsgBox "设备没有准备好！", vbCritical
  exit sub
End if

您好，非常感谢您的回答，这正解决了我的问题，非常感谢！