vb.net的圖片空間怎樣獲得相對路徑下的圖片

在VB 學習中，絕對路徑就是指帶有盤符的固定的路徑，比如“c:\windows\systems\a.exe” 而相對路徑則可用APP.PATH連接文件名來表示，比如：App.Path "\a.exe"

目前成都創新互聯已為上1000+的企業提供了網站建設、域名、網站空間、網站托管維護、企業網站設計、伊吾網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

以vb學習中加載圖片為例，這樣就容易弄明白了。假設我們要在vb中加載一幅圖片，假設我們把這個加載圖片的程序保存在如下位置："E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫\tong.jpg"

那么情況如下：1，在代碼中直接以絕對路徑表示加載到form1中，如圖所示：

顯示結果如下：

2,換一種方式，以相對路徑直接加載也可以。程序如圖：

結果如上圖。

下面分析如下：

第一種方式，我們使用的是圖片的完整路徑，就稱之為絕對路徑，也就是說不管我們的這個VB程序放到硬盤的任何位置，都完全可以顯示出來這幅圖片，因為圖片的路徑是絕對的，只要不改變圖片的路徑，那么就是絕對不變的。

第二種方式，我們使用的是圖片的相對路徑，相對于誰呢？是相對于我們的VB這個應用程序和這幅圖片自身位置的。一旦我們的程序位置發生變化或者圖片的位置發生改變，那么這個程序都不可以執行，不會顯示這幅圖片。所以說這就是相對路徑，是以一個參考對象而存在的。

關于在vb.net中獲取文件路徑的問題，如何解決？

當然不能~！ Me.OpenFileDialog1. FileNames這個是多選文件時，一個文件數組， 不是單個文件，單個文件用Me. OpenFileDialog1.FileName 而Str(Me.OpenFileDialog1. FileNames) 又是什么意思呢~？把數組轉化成字符串~？~~？~？ strFileDirectary = Me.OpenFileDialog1.FileName 這樣strFileDirectary 得到的是完整的文件路徑，不是文件夾 我搞不懂你到底要獲得文件路徑還是文件所在的文件夾~~？~？

希望采納

求VB.NET獲取文件路徑的方法

Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)

因為有可能在多個地方，所以進行了全盤搜索，歌曲的所有地址路徑在數組my_path中

vb.net從文件路徑中獲取文件名

獲取方法，參考實例如下：

'獲取路徑名各部分:

如：

c:\dir1001\aaa.txt

'獲取路徑路徑

c:\dir1001\

Public

Function

GetFileName(FilePathFileName

As

String)

As

String

'獲取文件名

aaa.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

GetFileName

Mid(FilePathFileName,

J

+

1,

i)

End

Function

''獲取路徑路徑

c:\dir1001\

Public

Function

GetFilePath(FilePathFileName

As

String)

As

String

'獲取路徑路徑

c:\dir1001\

On

Error

Resume

Next

Dim

J

As

Integer

J

InStrRev(FilePathFileName,

"\")

GetFilePath

Mid(FilePathFileName,

1,

J)

End

Function

'獲取文件名但不包括擴展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'獲取文件名但不包括擴展名

aaa

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer,

k

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

k

InStrRev(FilePathFileName,

".")

If

k

Then

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

i

-

J)

Else

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

k

-

J

-

1)

End

If

End

Function

'＝＝＝＝＝

'獲取擴展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'獲取擴展名

.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

".")

If

J

Then

GetFileExtName

".txt"

Else

GetFileExtName

Mid(FilePathFileName,

J,

i)

End

If

End

Function