13518219792
新建立個窗體，放入文件夾控件等，然后點確定返回一個字符串即可。
創新互聯-專業網站定制、快速模板網站建設、高性價比大同網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式大同網站制作公司更省心,省錢,快速模板網站建設找我們，業務覆蓋大同地區。費用合理售后完善，10多年實體公司更值得信賴。
選擇文件或者選擇文件夾時，顯示這個窗體，然后取這個字符串。
給你一個遍歷所有盤符下的文件夾的例子
加一個遍歷文件的就可以了。
TreeNode node = new TreeNode("我的電腦");
treeView.Nodes.Add(node); //加入一個我的電腦節點
string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驅動器列表的集合
foreach(string name in drivesName) //用foreach遍歷集合
{
TreeNode drivesNode = new TreeNode(name);
node.Nodes.Add(drivesNode); //加到我的電腦節點下
Private Sub Command1_Click()
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "選擇文件夾", 0, "")
If Not sf Is Nothing Then
MsgBox "選擇的文件夾是" vbCrLf sf.self.Path
End If
Set sf = Nothing
End Sub
選擇文件夾??在工具箱?-?對話框?里選擇?FolderBrowserDialog?添加?到設計器中
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點擊按鈕會彈出?通用對話框??選擇好路徑后?確定?，編輯框里就會顯示選擇的路徑
Vb不是人機對話窗口，而是編程工具，可以編寫代碼進行調試執行或者生成可執行文件。
用Visual Studio .Net開發"Hello World!"程序：
我們知道"Hello World"一般是命令行程序，而這種程序在Visual Studio .Net中被稱為"控制臺程序"。下面是Visual Studio .Net編寫控制臺"Hello World！"程序的具體步驟：
（1）、啟動Visual Studio .Net。
（2）、選擇菜單【文件】|【新建】|【項目】后，彈出【新建項目】對話框。
（3）、將【項目類型】設置為【Visual Basic項目】。
（4）、將【模板】設置為【控制臺應用程序】。
（5）、在【名稱】文本框中輸入【Hello World】。
（6）、在【位置】的文本框中輸入【E:VS.NET項目】，然后單擊【確定】按鈕，則Visual Studio .Net會按照上面設定的參數創建一個控制臺應用程序項目，具體如圖01所示。
圖01："Hello World"控制臺程序的【新建項目】界面
（7）、在【解決方案資源管理器】窗口中，雙擊Module1.vb文件，進入Module1.vb文件的編輯界面。
（8）、Visual Studio .Net已經為產生Main()函數。在系統創建的Main()函數中加入下面一行代碼就可以了：
Console.WriteLine ("Hello World!")
（9）、選擇【文件】|【保存Module1.vb】菜單或者按快捷鍵Ctrl＋S，保存所做的修改。
（10）、此時單擊快捷鍵Ctrl＋F5運行程序就可以得到圖02所示運行界面：
button , OpenFileDialog , PictureBox , textbox 控件，我把圖片顯示在 picturebox 中，而路
徑存放在 textbox 中，不知道這樣行不行。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String
OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
filename = OpenFileDialog1.FileName
Else
End
End If
If Not (PictureBox1.Image Is Nothing) Then
PictureBox1.Image.Dispose()
PictureBox1.Image = Nothing
End If
'PictureBox1.Image = System.Drawing.Image.FromFile(filename)
去掉注釋后就顯示圖片
TextBox1.Text = filename
End Sub
picturebox中只記錄文件存放的路徑，我找了一個 ImageLocation 函數
PictureBox1.ImageLocation = filename 不過還是會顯示圖片
