vb（2017）打开程序所在文件夹的文件

我的是VB.NET 2010：在编程环境中，双击窗体右边的“解决方案资源管理器”里的

十年的港闸网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整港闸建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“港闸网站设计”,“港闸网站推广”以来，每个客户项目都认真落实执行。

My Project，见图：

出现下图：

再单击图中的“编译”，出现下图：

注意，可以根据你的需要修改“生成输出路径”，这里我把要启动的程序文件.exe，复制到这个文件路径的文件夹里。

下面我的实例是启动windows的记事本程序，我把这个文件NOTEPAD.EXE复制到本工程的debug文件夹里。

代码如下：启动记事本程序，并以默认窗体具有焦点的方式出现。

Dim i As Integer

i = Shell(Application.StartupPath  "\NOTEPAD.EXE", AppWinStyle.NormalFocus)

如果想在启动该程序的同时，打开一个相关的.txt文档，见下代码：

注意，把文档abc.txt也复制到相应文件夹里。

Dim i As Integer

i = Shell(Application.StartupPath  "\NOTEPAD.EXE abc.txt", AppWinStyle.MaximizedFocus)

本例将以最大化窗口方式打开。

如何打开指定路径下的文件 VB.NET (路径已经知道）

Path：是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里，直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

Next

End Sub

如果子目录较多那么递归会比较费时间，在调用递归前加入application.doevent就行了，这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充：

把递归去掉就行了啊！

VB.net怎么弹出文件夹路径选择框

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

然后 代码写在  按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

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

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

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

vb.net 打开文件夹

System.Windows.Forms.OpenFileDialog

System.Windows.Forms.SaveFileDialog

System.Windows.Forms.FolderBrowserDialog

以上三个类均能够很好的解决楼主的需求。

具体的请lz自己查msdn

网站名称：vb.net打开文件位置,vb浏览文件夹
网站链接：http://cdweb.net/article/dsispcg.html