獲取方法,參考實(shí)例如下:

成都創(chuàng)新互聯(lián)專注于扎賚諾爾網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供扎賚諾爾營(yíng)銷型網(wǎng)站建設(shè),扎賚諾爾網(wǎng)站制作、扎賚諾爾網(wǎng)頁(yè)設(shè)計(jì)、扎賚諾爾網(wǎng)站官網(wǎng)定制、小程序開發(fā)服務(wù),打造扎賚諾爾網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供扎賚諾爾網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
'獲取路徑名各部分: 如: 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
'獲取文件名但不包談磨括擴(kuò)展名 aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String '獲取文件名但不包括擴(kuò)展名 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
'===== '獲取擴(kuò)展名含純斗 .txt
Public Function GetFileExtName(FilePathFileName As String) As String '獲取擴(kuò)展名 .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
請(qǐng)問你是通過什念洞派么得到A文件名的?OpenFileDialog?控仔賀件嗎?
假設(shè)你的A文件名 是strfilename
直接自己寫函數(shù)進(jìn)行字符串操作啊
簡(jiǎn)單一點(diǎn)
就是去掉末尾的擴(kuò)展名(4個(gè)字符),加上你要的擴(kuò)展名顫空 譬如 “.pla”
復(fù)雜一點(diǎn)寫就是函數(shù)從后到前判斷擴(kuò)展名的長(zhǎng)度,然后截?cái)噙@個(gè)擴(kuò)展名加上你要的。
如果想要獲得當(dāng)前文件中的文件名只需要String [] fileName = file.list();就可以了。如果要包括文件中的文件名就可以用遞歸的舉羨方式。下面是兩個(gè)具體的實(shí)現(xiàn)。 其中public static String [] getFileName(String path)是只得到當(dāng)前文件中的文正培拍件中芹名。
當(dāng)前標(biāo)題:vb點(diǎn)虐
隨機(jī)文件名 vb 隨機(jī)文件
路徑分享:http://www.chinadenli.net/article28/ddpcgcp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機(jī)網(wǎng)站建設(shè)、網(wǎng)站營(yíng)銷、外貿(mào)建站、關(guān)鍵詞優(yōu)化、網(wǎng)站收錄、標(biāo)簽優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)