Question

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

如图，我想打开蓝屏代码查询器.exe，但是导入到文件夹里却提示未找到文件。





Answer 1

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

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)

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

追问

非常感谢！已经解决了！另外我想问一下大佬如果我要把我的软件发到群文件里，我发送我生成的exe就可以了吗？

追答

这个要看你具体的工程的复杂程度，你不妨先发送你的EXE文件试试吧，如果不行的话，那只能制作安装包了。

Answer 2

app.path 是vb6的写法 vb.net应该是 

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(Application.StartupPath)
    End Sub

追问

我想点击按钮然后启动程序所在文件夹中的另一个程序应该怎么改呢？

追答

Application.StartupPath & "\新程序.exe"