1. 求VB.NET獲取文件路徑的方法
Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browse.Click
If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
FileName = OpenFileDialog1.FileName
TextBox1.Text = FileName
End If
End Sub
用來openfiledialog控制項,在你要選擇文件自的botton的click事件下面下選擇文件的代碼,把文件的路徑顯示到textbox1.text裡面
2. 關於在vb.net中獲取文件路徑的問題,如何解決
當然不能~! Me.OpenFileDialog1. FileNames這個是多選文件時,一個文件數組, 不是單個文件,單個文件用Me. OpenFileDialog1.FileName 而Str(Me.OpenFileDialog1. FileNames) 又是什麼意思呢~?把數組轉化成字元串~?~~?~? strFileDirectary = Me.OpenFileDialog1.FileName 這樣strFileDirectary 得到的是完整的文件路徑,不是文件夾 我搞不懂你到底要獲得文件路徑還是文件所在的文件夾~~?~?
希望採納
3. 在VB.NET中如何取得當前目錄的路徑
如果沒有記錯的話,應該使用System.Environment類,它的參考資料在此:
http://msdn2.microsoft.com/en-us/library/system.environment.aspx
祝你好運。
4. [VB.NET]當前活動資源管理器窗口某文件夾被選定,請問獲取該選定的文件夾的路徑
OpenFileDialog openFile = new OpenFileDialog();
openFile.Multiselect = true;
openFile.Filter = "圖片 (*.jpg)|*.jpg|所有文件 (*.*)|*.*";
if (openFile.ShowDialog() == DialogResult.OK)
{
string ss = openFile.FileName;
string ww = openFile.FileName.Remove(openFile.FileName.Length - 4, 4);
File.Copy(ss, @"..\..\picture\" + Path.GetFileName(ss));
}
上面是先獲取路徑,在把圖片復制到指定路徑下。
5. VB中如何獲取當前程序的絕對路徑
System.Environment.CurrentDirectory;
//例:c:/test/
Application.ExecutablePath;(包括名稱)
//例:c:/test/myapp.exe
Application.StartupPath;(不包括名稱)
//例:c:/test/
絕對路徑是直接到達目標位置,通常是從盤符開始的路徑。完整的描述文件位置的路徑就是絕對路徑,以web站點根目錄為參考基礎的目錄路徑。
絕對路徑名的指定是從樹型目錄結構頂部的根目錄開始到某個目錄或文件的路徑,由一系列連續的目錄組成,中間用斜線分隔,直到要指定的目錄或文件,路徑中的最後一個名稱即為要指向的目錄或文件。之所以稱為絕對,意指當所有網頁引用同一個文件時,所使用的路徑都是一樣的。
(5)vbnet獲取文件的路徑擴展閱讀
幾種編程語言獲取程序所在路徑的方法:
1、在golang程序裡面獲取程序所在路徑:
package main
import (
"path/filepath"
"os"
"fmt"
"log"
)
func main() {
execDir, err := filepath.Abs(filepath.Dir(os.Args[0]))
if err = nil {
log.Fatal(err)
}fmt.Println(execDir)
}
2、python腳本所在路徑:
import os
print(os.path.split(os.path.realpath(__file__))[0])
3、shell腳本獲取腳本的絕對路徑:
DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
6. VB.NET拖放文本文件到TextBox獲得其路徑。
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.AllowDrop = True
End Sub
Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
Me.TextBox1.Text = files(files.Length - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub
TextBox1.AllowDrop = True 是開啟拖放支持,可以在窗體設計器裡面開啟它,也可以代碼開啟。