添加部件:Microsoft Common Dialog Control 6.0Dim fn As StringPrivate Sub Command1_Click()With CommonDialog1'设置过滤器.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"'设置过滤方式.FilterIndex = 2'打开文件夹选取文件.ShowOpenfn = .FileNameEnd WithEnd SubPrivate Sub Command2_Click()Dim s As String, i As In...