VB.net如何打開對話框獲取文件名？注意不是完整路徑還有沒有后綴名！

Dim dialog As OpenFileDialog = New OpenFileDialog

為芒康等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務，及芒康網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為成都做網(wǎng)站、網(wǎng)站設計、芒康網(wǎng)站設計，以傳統(tǒng)方式定制建設網(wǎng)站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then

Dim filename As String

filename = dialog.FileName

Dim results() As String

results = filename.Split("\")

filename = results(results.Length - 1)

filename = filename.Substring(0, filename.LastIndexOf("."))

MessageBox.Show(filename)

End If

dialog.Dispose()

VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數(shù)獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分輸出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更簡潔的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任務：

vb.net中如何根據(jù)文件名得到文件全名

VB的我會弄NET的不知道和VB是不是一樣、VB中需要用到API函數(shù)提取exe圖標加載到imagelist和通用控件然后截取文件名、然后用listview加載imagelist的圖標和通用控件的文件名

vb.net如何獲得自己的文件名

Dim dDirectory As System.IO.Directory

Dim sName() As String

sName = dDirectory.GetFiles(path)

vb.net 自動讀取文件名

請問你是通過什么得到A文件名的？OpenFileDialog?控件嗎？

假設你的A文件名 是strfilename

直接自己寫函數(shù)進行字符串操作啊

簡單一點

就是去掉末尾的擴展名（4個字符），加上你要的擴展名 譬如 “.pla”

復雜一點寫就是函數(shù)從后到前判斷擴展名的長度，然后截斷這個擴展名加上你要的。

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 0 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 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

文章題目：vb.net自身文件名,vbs 獲取文件的文件名
地址分享：http://chinadenli.net/article38/dsgjesp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、域名注冊、云服務器、網(wǎng)站維護、品牌網(wǎng)站建設、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)