vb.net獲取程序名稱,vbnet獲取當前目錄下文件名

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

獲取方法，參考實例如下：

我們提供的服務有：網站設計制作、網站設計、微信公眾號開發、網站優化、網站認證、米易ssl等。為上千家企事業單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的米易網站制作公司

'獲取路徑名各部分:

如：

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 窗口句柄獲取進程名

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，找到的窗口的句柄。如未找到相符窗口，則返回零。會設置GetLastError

參數表

參數

類型及說明

hWnd1

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

hWnd2

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

lpsz1

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

lpsz2

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

VB.NET 如何獲取本身的進程名

Process.GetCurrentProcess.ProcessName

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

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

快加入我們吧!發表你的疑問,經驗,程序,分享..

讓我們共同進步!

VB.NET 如何獲取EXE文件內部程序名？

Dim FileProperties As FileVersionInfo =

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

dim str as string = FileProperties.ProductName

vb.net 如何獲取系統當前運行程序列表

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

上面程序可以去取得目前正在運行的程序的標題，根據標題可判斷除他的運行狀態。

網站名稱：vb.net獲取程序名稱,vbnet獲取當前目錄下文件名
網頁鏈接：http://m.kartarina.com/article46/heighg.html

成都網站建設公司_創新互聯，為您提供網頁設計公司、服務器托管、Google、網站內鏈、品牌網站設計、網站制作

廣告

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