vbnet获取文件的路径

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 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。