Private Sub Dir1_Change()
File1.Pattern = ("*.frm;*.vbp;*.vbw")
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Label1.Caption = "您选择的是:" & Dir1.List(-1) & "\" & File1.FileName
End Sub
这个程序代码不知道错在哪里了，，

什么错?

没什么问题吧