vb雙擊文件夾打開

❶ 自己用vb寫的特殊記事本如何雙擊打開文件

注冊表打開方法：點開始，運行，regedit

以前看過相關的一遍文章， 復制到下面了，希望對你有幫助。

使用Windows的用戶都知道，當我們雙擊一個後綴為txt文件時，就會用記事本打開這個文件，雙擊一個後綴為doc文件時，word就會打開。這就是Windows的文件關聯技術！有沒有辦法讓我們自己做的程序也能關聯一些指定後綴的文件呢？比如，我編寫了一款播放器，可以讓電腦上的mp3文件都變成我指定的圖標，當雙擊mp3文件時時，會打開我的製作播放器，並且播放。下面，我就說明這個效果怎麼實現，並且說明在程序中怎麼處理關聯信息！

首先，文件的關聯是通過注冊表實現的，為了說清楚這個問題，我首先講解手動添加文件關聯的方法,這里，我假設要將我製作的「汐木記事本」程序與我獨創的後綴為.xtx文件關聯！

(1)打開注冊表編輯器

(2)找到主鍵HKEY_CLASSES_ROOT

(3)在HKEY_CLASSES_ROOT下新建子鍵，名稱為.xtx，修改「默認」的值為ximu

(4)在HKEY_CLASSES_ROOT建立子鍵，名稱為ximu

（這個名稱要和上面的.xtx中「默認」的值一致，否則關聯不上），將其中的「默認」的值改為"新建X文檔"（這個無所謂的，隨便）
(5)在ximu下建立shell，shell下建立open，open下建立command，點擊command，將其中的「默認」的值改為你的程序所在的路徑，並且在路徑後寫一個%1，如：F:\vb相關\汐木實驗室\汐木記事本V1.00.exe %1(注意，%1前邊有空格！)

這樣，文件的關聯就完成了！還需要做的是，把文件的圖標也關聯上，讓所有的.xtx文件的圖標變成我指定的圖標：

在上面提到的ximu下建立DefaultIcon，將其中的「默認」的值改為你需要的圖標文件的路徑，修改後，可以看到，xtx文件的圖標都變成了我指定的。

如果正常按照上邊的步驟進行的話，你在桌面新建文本文檔，然後把後綴名改為.xtx，圖標就是你所指定的圖標，雙擊這個文件，就打開了你的軟體

如果以上步驟你都成功了，就可以利用代碼讓程序執行這些步驟。

我現在在學VB.NET，VB6的語句基本上忘得差不多了。

set aa = createobject("wscript.shell")
aa.regwrite "HKEY_CLASSES_ROOT\.xtx", "ximu"
aa.regwrite "HKEY_CLASSES_ROOT\ximu", "新建X文檔"
aa.regwrite "HKEY_CLASSES_ROOT\ximu\shell\open\command","F:\vb相關\汐木實驗室\汐木記事本V1.00.exe %1"
aa.regwrite "HKEY_CLASSES_ROOT\ximu\DefaultIcon","F:\001.ico"

大概就是這個樣子吧，也許有錯誤，我時間緊，就不測試了，懶蟲不要復制粘貼哦！錯了我不承擔責任············

完成了關聯，你會發現，雙擊後綴為xtx的文件時，我們設定的程序打開了！但是，問題又來了，怎麼讓程序知道雙擊了哪個文件呢？不然怎麼進行處理？下面我來介紹對關聯信息的處理！使程序獲取被雙擊了的文件的路徑，其實這很簡單：

用到Command函數，下面的代碼可以獲取路徑：
msgbox（Command）

怎麼樣？文件的地址是不是都出來了?呵呵，得到了文件地址就不用我說了吧·······
這是我在網上搜的讀取txt的函數：
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1
Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr & tem & vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
這樣，你就可以把文件讀到軟體里了。
最後，還是建議你學.NET，因為VB6的程序現在已經不支持在WIN7里運行了，而且，我給你看下VB.NET讀取txt文件的源碼：
dim a as string
a = System.IO.File.OpenText(F:\1.txt)
textbox1.text = a
就這么三句源碼，而且還可以再簡化！
textbox1.text = System.IO.File.OpenText(F:\1.txt)
怎麼樣？
呵呵，其實VB6升級到VB.NET並不難，不要相信網上某些人說的「VB6和VB.NET不是同一個語言」之類的話，在VB.NET里，
DO````LOOP
for`````next
do````while`````loop
do``````until````loop
這些循環語句都是通用的，還有cstr cdbl 等等字元串函數都是可用的。

❷ vb 打開某一具體的文件夾

shell "cmd.exe /C start" &"D:\Program Files\JJ比賽"

可以打開運行對話框中任何內容

Shell 函數

執行一個可執行文件，返回一個 Variant (Double)，如果成功的話，代表這個程序的任務 ID，若不成功，則會返回 0。

語法

Shell(pathname[,windowstyle])

Shell 函數的語法含有下面這些命名參數：

部分 描述
pathname 必要參數。Variant (String)，要執行的程序名，以及任何必需的參數或命令行變數，可能還包括目錄或文件夾，以及驅動器。
Windowstyle 可選參數。Variant (Integer)，表示在程序運行時窗口的樣式。如果 windowstyle 省略，則程序是以具有焦點的最小化窗口來執行的。

windowstyle 命名參數有以下這些值：

常量 值 描述
vbHide 0 窗口被隱藏，且焦點會移到隱式窗口。
VbNormalFocus 1 窗口具有焦點，且會還原到它原來的大小和位置。
VbMinimizedFocus 2 窗口會以一個具有焦點的圖標來顯示。
VbMaximizedFocus 3 窗口是一個具有焦點的最大化窗口。
VbNormalNoFocus 4 窗口會被還原到最近使用的大小和位置，而當前活動的窗口仍然保持活動。
VbMinimizedNoFocus 6 窗口會以一個圖標來顯示。而當前活動的的窗口仍然保持活動。

說明

如果 Shell 函數成功地執行了所要執行的文件，則它會返回程序的任務 ID。任務 ID 是一個唯一的數值，用來指明正在運行的程序。如果 Shell 函數不能打開命名的程序，則會產生錯誤。

注意 預設情況下，Shell 函數是以非同步方式來執行其它程序的。也就是說，用 Shell 啟動的程序可能還沒有完成執行過程，就已經執行到 Shell 函數之後的語句。

❸ vb怎麼打開已保存的工程。

.vbp是vb的工程文件，如果電腦是正常安裝的vb軟體的話，可以直接雙擊.vbp文件打開。

如果安裝的是綠色版就是免安裝的的vb，或者安裝了vb軟體但是默認的vb關聯程序文件被取消。可能就會出現雙擊後選擇程序打開文件的對話框。

1、可以先打開VB，然後從「文件」菜單裡面選擇「打開」命令，從打開對話框中找到你的.vbp文件後打開。

2、雙擊vb的工程文件，彈出選擇文件的對話框，如下圖：選擇「從已安裝程序列表中選擇程序」，再選擇電腦上的vb軟體安裝路徑下的vb.exe就可以。

❹ 如何用vb打開某個文件夾

sub command1_click()
dim mypath
mypath = inputbox("請輸入文件夾的完整路徑")
shell "explorer.exe " & chr(34) & mypath & chr(34) ,vbnormalfocus
end sub

❺ vb點擊一個按鈕,打開一個文件夾

'聲明部分
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW = 5

'打開語句
'文件地址一點要正確,總感覺你的地址有點怪,Desktop是指桌面,znsb應該是用戶路徑,怪就怪在Users上,c盤有這個文件夾么?我只見到過C:\Documents and Settings\All Users\桌面或者C:\Documents and Settings\用戶\桌面,或者我只使用過XP?見識淺薄么?
Dim f%
f = "C:\Users\znsb\Desktop\蘇寧資料\蘇寧電器2008年度審計報告.PDF"
ShellExecute Me.hwnd, "open", f, "", "", SW_SHOW

❻ VB編程 編寫一個程序，雙擊後，打開一個文件夾，同時運行一個EXE文件，怎麼編寫

Private Sub Form_Load()
'打開後運行下面代碼後自動結束
Shell "cmd.exe /c explorer C:\aa", vbMinimizedFocus
Shell "C:\bb.exe", vbMinimizedFocus
End
End Sub

❼ 在VB中如何使其執行打開某一文件或文件夾就是一點那個按鈕，文件將被自動執行

用SHELL函數就可以了，如：
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。
這是打開WINDOWS自帶的計算器，其中後面的參數1是CALC.EXE程序需要的。

❽ vb 打開文件夾

這個可以打開所在目錄的文件夾
Shell
"explorer.exe
"
&
Chr(34)
&
app.Path
&
Chr(34),
vbNormalFocus
這個可以打開任意路徑的文件夾
Shell
"explorer.exe
"
&
Chr(34)
&
"你要打開的文件夾路徑"
&
Chr(34),
_
vbNormalFocus

❾ VB編寫雙擊打開文件

在編寫程序的窗口（這個你應該知道吧？也就是「代碼窗口」）
然後你看它的右上角的叉叉的下面，有一個黑色倒三角箭頭的，點一下
出來一列東西，選其中的Dbclick，然後編寫代碼~~~這樣的話就是你雙擊觸發你所編寫的代碼，單擊不觸發了