vb.net從文件路徑中獲取文件名

獲取方法，參考實(shí)例如下：

我們提供的服務(wù)有：網(wǎng)站設(shè)計制作、網(wǎng)站設(shè)計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、米易ssl等。為上千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的米易網(wǎng)站制作公司

'獲取路徑名各部分:

如：

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

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

Then

GetFileExtName

".txt"

Else

GetFileExtName

Mid(FilePathFileName,

J,

i)

End

If

End

Function

vb.net 窗口句柄獲取進(jìn)程名

FindWindowEx

VB聲明

Declare Function FindWindowEx Lib "user32" Alias

"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As

String, ByVal lpsz2 As String) As Long

說明

在窗口列表中尋找與指定條件相符的第一個子窗口

返回值

Long，找到的窗口的句柄。如未找到相符窗口，則返回零。會設(shè)置GetLastError

參數(shù)表

參數(shù)

類型及說明

hWnd1

Long，在其中查找子的父窗口。如設(shè)為零，表示使用桌面窗口（通常說的頂級窗口都被認(rèn)為是桌面的子窗口，所以也會對它們進(jìn)行查找）

hWnd2

Long，從這個窗口后開始查找。這樣便可利用對FindWindowEx的多次調(diào)用找到符合條件的所有子窗口。如設(shè)為零，表示從第一個子窗口開始搜索

lpsz1

String，欲搜索的類名。零表示忽略

lpsz2

String，欲搜索的類名。零表示忽略

VB.NET 如何獲取本身的進(jìn)程名

Process.GetCurrentProcess.ProcessName

'--------------------

百度VB2010(VB.NET)吧建設(shè)發(fā)展中,需要你的支持和幫助!!!

快加入我們吧!發(fā)表你的疑問,經(jīng)驗(yàn),程序,分享..

讓我們共同進(jìn)步!

VB.NET 如何獲取EXE文件內(nèi)部程序名？

Dim FileProperties As FileVersionInfo =

FileVersionInfo.GetVersionInfo("C:\XXXX\XXX.exe")

dim str as string = FileProperties.ProductName

vb.net 如何獲取系統(tǒng)當(dāng)前運(yùn)行程序列表

sub

getpro()

dim

myinfo

as

string

dim

myprocesses()

as

process

=

process.getprocesses()

for

each

myprocess

as

process

in

myprocesses

myprocess.

if

(myprocess.mainwindowtitle.length

0)

then

myinfo

+=

myprocess.mainwindowtitle

+

vbcrlf

end

if

next

end

sub

上面程序可以去取得目前正在運(yùn)行的程序的標(biāo)題，根據(jù)標(biāo)題可判斷除他的運(yùn)行狀態(tài)。

網(wǎng)站名稱：vb.net獲取程序名稱,vbnet獲取當(dāng)前目錄下文件名
網(wǎng)頁鏈接：http://chinadenli.net/article46/heighg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計公司、服務(wù)器托管、Google、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站設(shè)計、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)