VB 如何實現開啟相對路徑的 exe 程式

我認為是時候買一本 VB 書了。 傾家蕩產！

使用外殼，例如; 開啟記事本專用子命令1 單擊（）。

shell "", vbnormalfocus

end sub

太簡單了，在 button1 click（） 中新增 dim retval。

retval = shell("c:\windows\"， 1）C：Windows 將其替換為您要啟動的檔案路徑，就可以了。

你的目錄是乙個 b，你編寫的子例程是 毛。

當你把它放在專案的 bin debug 目錄下時，你應該使用：

private sub command1_click()dim n as object

n=shell( &")

end sub

試試吧，有問題要問。

應用訪問的全域性物件。 它指定以下資訊：應用程式的標題、版本資訊、可執行檔案和幫助檔案的路徑和名稱，以及上乙個應用程式是否正在執行的示例。

這是當前程式所在的目錄。

您可以將它與程式行結合使用來查詢相對路徑。

但從你的敘述來看，你可能更需要以下資訊。

path[drive:]path[;.path%] 路徑。

型別。 path

但是，顯示當前路徑時不帶引數。

將。 path%

包含在新路徑設定中會將舊路徑追加到新設定中。

這樣，您可以將路徑變數新增到 ACAD 路徑並呼叫它，而無需指定位置。

使用 shell 函式。

shell 函式是 VB 中的乙個內部函式，負責執行乙個可執行檔案，如果成功則返回乙個 variant（double），表示程式的程序 ID，如果不成功，則返回 0。

Shell 語法：shell（pathname[，windowstyle]）。

pathname 是必需的引數。 型別為 string，它指示要執行的程式的名稱，以及任何必需的引數或命令列變數，還可以包括路徑名。

windowstyle 是可選引數。 整數型別，指定程式執行時視窗的樣式。 WindowStyle 具有以下值。

示例：開啟當前程式所在目錄中的檔案

dim a as integer

開啟exe檔案（application），直接使用shell函式，語法為shell"要開啟的檔案的絕對路徑"例如，如果要開啟 C： 程式，可以直接編寫 shell"c:/"注意：

shell功能只能開啟應用程式和文字文件，沒有一樓那麼長**。

新增 drivelistbox、dirlistbox、filelistbox、commandbox 名稱作為預設名稱 **： private sub command1 click（） shell （.）"\"+ end sub private sub dir1 change（） = end sub private sub drive1 change（） = end sub 如果這不起作用，請新增乙個問題。

VB 可以使用 shell 函式來啟動外部可執行檔案。

執行可執行檔案的 shell 函式返回乙個 variant（double），如果成功，則表示程式的任務 ID，如果失敗，則返回 0。

shell 函式的示例。

此示例使用 shell 函式完成使用者指定的應用程式。

將第二個引數設定為 1 允許程式在具有焦點的正常大小視窗中完成。

dim retval

retval = shell("c:\windows\", 1) '完成計算器。