1樓：理髮工具
public function getfilename(byval fullpathname as string, optional byval noextname as boolean = false) as string
'從指定全路徑中找到檔名
'fullpathname指定全路徑
'返回值:包含的檔名
dim i as long, j as long
dim filename as string, filenamenoext as string
fullpathname = trim(fullpathname)
i = instrrev(fullpathname, "\")
j = len(fullpathname)
if i = 0 then exit function
filename = mid(fullpathname, i + 1, j - i)
i = instrrev(filename, ".")
j = len(filename)
if i = 0 then exit function
filenamenoext = mid(filename, 1, i - 1)
if noextname = true then
getfilename = filenamenoext
else
getfilename = filename
end if
end function
2樓：匿名使用者
guduguoker的答案正確
3樓：水煮魚頭
dim path as string,filename as string ,s() as string
path=路徑
s=split(path,"\")
filename=s(ubound(s))
4樓：風雷小草
判斷最後一個「/」的位置，然後根據此資料取後面的字元即可。
5樓：匿名使用者
dim s as string
s = right(text1.text, len(text1.text) - instrrev(text1.text, "\"))
msgbox "檔名為:" & s
vb如何提取路徑中的檔名？
6樓：匿名使用者
樓上的比我的好，建議你多學習一下字串擷取函式，right left mid nstr
text1是檔案路徑 text2是提取的檔名我寫的**如下：
private sub command1_click()dim i as integer, n as integerfor i = 1 to len(text1)if mid(text1, i, 1) = "\" then n = i
next
text2 = right(text1, len(text1) - n)
end sub
7樓：空哥加油站
text2 = mid(text1, instrrev(text1, "\") + 1, len(text1))
8樓：
private sub command1_click()
text2 = mid(text1, instrrev(text1, "\") + 1, instrrev(text1, ".") - instrrev(text1, "\") - 1)
end sub
9樓：匿名使用者
dim a () as string
a=split(text1.text,"\")a=split(a(ubound(a)),".")text2.text=a(ubound(a)-1)
vb 獲取目錄所有檔名
10樓：4終
1、首先，在電腦上開啟vb6.0屬性視窗，新建一個exe工程視窗。
2、然後，就能在這裡看到幫組檔名一欄。這時，就能在這裡按下這個三點進行選擇檔案。
3、接下來就可以這個幫組檔案的視窗。
4、此時，就能在這裡進行幫組檔案的載入。
5、最後，點選開啟按鈕既可開啟vb的幫助檔案。
vb 如何從全路徑中去掉檔名？
11樓：阿
private sub command1_click()dim sfilepath as stringdim sdirpath as string, p as longsfilepath = "c:\a\a.exe"
p = instrrev(sfilepath, "\")if p > 0 then
sdirpath = left(sfilepath, p - 1)else
sdirpath = sfilepath
end if
msgbox sdirpath
end sub
12樓：匿名使用者
比較簡單的方法
dim path as string
path = "c:\a\a.exe"
只要知道這個檔案一定是a.exe,那麼可以使用replace函式path = replace(path,"a.exe","")
13樓：匿名使用者
搜尋最後一個"\"，然後擷取字串就好了
vb獲取指定資料夾內的檔案的檔名
vb如何獲取檔名？
VB批量修改檔名，用VB批量重新命名檔案，如何實現？
我有個現成的 可以發給你看 你的 明顯的高複雜了 控制元件和你的一樣。要的話hi me 我有dir搜尋指定目錄所有檔案的 改名也很簡單，但是你的要求很模糊，如果有意思請詳細說明要求，我給你 發訊息即可。迴圈用dir函式遍歷d a目錄下所有檔案得到檔名然後改名即可 用vb批量重新命名檔案，如何實現？r...
用vb怎樣這樣修改檔名，如何用vb修改檔名
其實在另一個問題已經回你了，不過失效了。private sub form load dim path as string,spath as string dim max as date,newfilepath d spath dir path spath do until spath if file...
在儲存vb時怎樣設定它的窗體檔名和工程檔名
在選單欄中單擊 檔案 儲存 這時候會彈出兩個儲存對話方塊第一個為儲存窗體檔案的對話方塊，在檔名文字框中輸入 sjt1.frm 選擇儲存路徑，單擊儲存按鈕第二個為儲存工程檔案的對話方塊，在檔名文字框中輸入 sjt1.vbp 選擇儲存路徑，單擊儲存按鈕 點 ctrl s 會出現一個儲存窗體檔案的對話方塊...