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

網(wǎng)站建設、成都網(wǎng)站建設介紹好的網(wǎng)站是理念、設計和技術(shù)的結(jié)合。創(chuàng)新互聯(lián)建站擁有的網(wǎng)站設計理念、多方位的設計風格、經(jīng)驗豐富的設計團隊。提供PC端+手機端網(wǎng)站建設,用營銷思維進行網(wǎng)站設計、采用先進技術(shù)開源代碼、注重用戶體驗與SEO基礎,將技術(shù)與創(chuàng)意整合到網(wǎng)站之中,以契合客戶的方式做到創(chuàng)意性的視覺化效果。
因為有可能在多個地方,所以進行了全盤搜索,歌曲的所有地址路徑在數(shù)組my_path中
獲取方法,參考實例如下:
'獲取路徑名各部分: 如: 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
你好,請使用System.IO.Directory.EnumerateFiles()方法
Dim?XLS文件列表?As?IEnumerable(Of?string)
Dim?XLSX文件列表?As?IEnumerable(Of?string)
Dim?path?As?String?=?"D:\File\"
XLS文件列表?=?Directory.EnumerateFiles(path,?"*.xls",?SearchOption.TopDirectoryOnly)
XLSX文件列表?=?Directory.EnumerateFiles(path,?"*.xlsx",?SearchOption.TopDirectoryOnly)
選擇文件夾??在工具箱?-?對話框?里選擇?FolderBrowserDialog?添加?到設計器中
然后?代碼寫在??按鈕事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text?=FolderBrowserDialog1.SelectedPath
選擇文件?在工具箱?-?對話框?里選擇?OpenFileDialog
把?OpenFileDialog1.ShowDialog()
TextBox1.Text?=?OpenFileDialog1.FileName
寫到按鈕事件下
如圖
點擊按鈕會彈出?通用對話框??選擇好路徑后?確定?,編輯框里就會顯示選擇的路徑
因為process.start(EXEA)是VB.net
debug下這個exe打開的,所以如果EXEA里面用到了相對路徑,那必然是指向VB.net
debug下的,除非在EXEA中使用絕對路徑,如果EXEA你無法更改則只能用VB.net
debug下這個exe來控制了,比如EXEA如果要在他自己的目錄下去找一個文件,那你就用exe把這個文件復制到VB.net
debug下
把g.exe放到工程的bin/Debug/目錄里面調(diào)用時用:
Private Sub Command1_Click()dim N as Object
N=Shell(Application.StartupPath "\g.exe")
End Sub
試試,有問題在追問
當前題目:vb.net調(diào)用文件路徑 vba獲取文件路徑
當前路徑:http://chinadenli.net/article4/dodpcoe.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、微信公眾號、移動網(wǎng)站建設、全網(wǎng)營銷推廣、網(wǎng)站設計公司、網(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)