vb点虐 路径对话 vbnet dir

VB点虐 如何打开对话框获取文件名？注意不是完整路径还有没有后缀名！

Dim dialog As OpenFileDialog = New OpenFileDialog

创新互联公司专注于企业全网整合营销推广、网站重做改版、晋州网站定制设计、自适应品牌网站建设、H5页面制作、商城系统网站开发、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为晋州等各大城市提供网站开发制作服务。

If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim filename As String

filename = dialog.FileName

Dim results() As String

results = filename.Split("\")

filename = results(results.Length - 1)

filename = filename.Substring(0, filename.LastIndexOf("."))

MessageBox.Show(filename)

End If

dialog.Dispose()

VB点虐 关于路径的问题

一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"

第二种采用当前exe所在路径

"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"

VB点虐 怎么弹出文件夹路径选择框

选择文件夹  在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中

然后 代码写在  按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件 在工具箱 - 对话框 里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出 通用对话框  选择好路径后 确定 ，编辑框里就会显示选择的路径