vb代码
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
这个程序代码不知道错在哪里了，，
