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

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

建網(wǎng)站原本是網(wǎng)站策劃師、網(wǎng)絡(luò)程序員、網(wǎng)頁設(shè)計師等，應(yīng)用各種網(wǎng)絡(luò)程序開發(fā)技術(shù)和網(wǎng)頁設(shè)計技術(shù)配合操作的協(xié)同工作。成都創(chuàng)新互聯(lián)專業(yè)提供成都網(wǎng)站設(shè)計、做網(wǎng)站,網(wǎng)頁設(shè)計,網(wǎng)站制作(企業(yè)站、成都響應(yīng)式網(wǎng)站建設(shè)、電商門戶網(wǎng)站)等服務(wù),從網(wǎng)站深度策劃、搜索引擎友好度優(yōu)化到用戶體驗的提升,我們力求做到極致!

'獲取路徑名各部分: 如： 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實現(xiàn)將一個文件夾中的后綴相同的文件名放在一個txt中？

創(chuàng)建一個文本文件，在其中輸入：

dir *.txt /s /n 目錄.txt

保存為XX.bat

然后雙擊運行即可在該文件夾下產(chǎn)生一個目錄.txt的文件，里面有你要的內(nèi)容，不用VB.net

vb.net，知道一個文件的擴展名，如何通過這個擴展名獲得該文件的默認(rèn)打開方式（即默認(rèn)打開程序）？

如沒有現(xiàn)存的辦法的話只能讀取注冊表，以txt文件為類：

HKEY_CLASSES_ROOT\.txt?? '在這個地址有個默認(rèn)屬性值是：txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command?? '這里的默認(rèn)屬性值txtfile的關(guān)聯(lián)程序：%SystemRoot%\system32\NOTEPAD.EXE %1

我暫不了解vb.net讀注冊表函數(shù)（剛在學(xué)），以vbs為類：

Dim?WshShell

Set?WshShell?=?WScript.CreateObject("Wscript.Shell")

Dim?Ext

ext=?WshShell.RegRead?("HKEY_CLASSES_ROOT\.mp3\") '這里的擴展名.mp3可以改成其它的看看

MsgBox?WshShell.RegRead?("HKEY_CLASSES_ROOT\"??ext??"\shell\open\command\")

vb.net怎樣轉(zhuǎn)成vb

vb.net里好像提供了自動轉(zhuǎn)換vb6程序的，直接點 文件-打開 選擇vbp文件，然后下一步下一步就行了，好像是的

vb.net中怎么判斷文件類型

這個問題可以用注冊表解決。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件擴展名在注冊表里的文件類型名稱

'比如.zip的類型名稱一般是zipfile

fileType = 讀取注冊表的classes_root下的子鍵(fileExt)的默認(rèn)鍵值

'取得打開這種文件的程序

openCommand = 讀取注冊表的classes_root下的子鍵(fileType + "\shell\open\command")的默認(rèn)鍵值

Return getOpenCommand

End Function

讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認(rèn)鍵值的方法可以在網(wǎng)上搜索到。

這樣getOpenCommand("doc")就可以得到一個字符串(包括引號)：

"C:\Program Files\Word\word.exe" "%1"

這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來就好了

怎么用VB.NET更改文件擴展名

以修改“C:\abc.txt"為bat為例。

Public Class Form1

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

Dim Myfile As String

Myfile = IO.Path.ChangeExtension("C:\abc.txt", ".bat")

Microsoft.VisualBasic.FileSystem.Rename("C:\abc.txt", Myfile)

End Sub

End Class

本文題目：vb.net文件后綴名 win文件名后綴
文章路徑：http://m.rwnh.cn/article10/hiisdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、企業(yè)網(wǎng)站制作、響應(yīng)式網(wǎng)站、網(wǎng)頁設(shè)計公司、網(wǎng)站營銷、動態(tài)網(wǎng)站

廣告

聲明：本網(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)