Question

VB怎么实现选择路径，打开路径

Answer 1

添加一个文件打开对话框，在工程--部件中选择

CommonDialog1.DefaultExt       扩展名

CommonDialog1.InitDir        路径

CommonDialog1.Filter        文件过滤，按扩展名

CommonDialog1.ShowOpen     文件打开

Answer 2

页面<asp:FileUpload ID="FileUpload1" runat="server" CssClass="bor" />

后台:FileUpload1.SaveAs(Server.MapPath(“你要保存的路径”));

Answer 3

用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框：
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.FileName '显示路径
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub