獲取完整路徑檔名模組的 VB 控制代碼

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

elsegetfilename = filename

end if

end function

確定最後乙個“ ”的位置，然後根據此資料取以下字元。

你的問題很難理解，你的檔案路徑已經知道了 如果你失去了英畝，想開啟可執行的exe檔案 使用 shell 函式消除痕跡 如果要開啟普通檔案 使用open函式 至於如何使用這個功能，如果你想學習它，你必須自己弄清楚 否則， 別人會幫你複製貼上 用不了多久你就會忘記百科全書或者文件 這兩個功能都有講解 自己學一下，這樣以後會留下深刻的印象 很簡單 來吧。

其中 path 是完整路徑。 此函式返回所需檔案的名稱。

它就像 dim f 和 string 一樣簡單

f = "c:\dk\aa\"

dim fname as string

fname = mid(f, instrrev(f, "\") +1)

msgbox（fname） 是泛型的，只需更改 f 的值即可。

編寫乙個通用函式，並將其命名為公共函式 fhwjm（byval wjm as string） as string

dim s() as string = split(wjm, "\")

return s(ubound(s))end function

樓上的幾個已經夠硬了，只需要一行**：

text2 = createobject("").getbasename(text1)

樓上的那個比我的好，我建議你多學一些字串截斷函式，右左中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

nexttext2 = right(text1, len(text1) -n)

end sub

原型：int winapi icepub getprocesspathbyname（char *strprocessname， char *strpath）。

輸入：strprocessname 程序名稱 輸出：具有路徑檔名的 strpath 程序。

private declare function icepub_getprocesspathbyname lib "" (byval strprocessname as string,byval strpath as string) as integer

dim a2 as integer

dim buff as string

buff=space(1024)

a2=icepub_getprocesspathbyname("",buff)

msgbox buff