涉及的知識有兩大塊:
成都創新互聯網絡公司擁有10多年的成都網站開發建設經驗,1000+客戶的共同信賴。提供成都做網站、網站設計、網站開發、網站定制、外鏈、建網站、網站搭建、成都響應式網站建設、網頁設計師打造企業風格,提供周到的售前咨詢和貼心的售后服務
一,用VB.NET讀取數據表數據。
二,使用VB.NET修改文件名。
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
For?Each?FileName?As?String?In?IO.Directory.GetFiles("E:\音樂",?"*.mp3")
TextBox1.Text?=?vbNewLine??IO.Path.GetFileName(FileName)
Next
End?Sub
VB的我會弄NET的不知道和VB是不是一樣、VB中需要用到API函數提取exe圖標加載到imagelist和通用控件然后截取文件名、然后用listview加載imagelist的圖標和通用控件的文件名
獲取方法,參考實例如下:
'獲取路徑名各部分:
如:
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
分享名稱:vb.net文件名 vbs后綴名是什么文件
標題來源:http://m.kartarina.com/article2/dodshoc.html
成都網站建設公司_創新互聯,為您提供、網站維護、網站收錄、企業網站制作、手機網站建設、微信公眾號
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯