获取方法,参考实例如下:
'获取路径名各部分:
如:
c:\dir1001\aaa.txt
'获取路径路径
c:\dir1001\
Public
Function
GetFileName(FilePathFileName
As
String)
String
'获取文件名
aaa.txt
On
Error
Resume
Next
Dim
i
Integer,
J
Integer
Len(FilePathFileName)
InStrRev(FilePathFileName,
"\")
GetFileName
Mid(FilePathFileName,
+
i)
End
''获取路径路径
GetFilePath(FilePathFileName
GetFilePath
J)
'获取文件名但不包括扩展名
aaa
GetFileNameNoExt(FilePathFileName
k
".")
If
Then
GetFileNameNoExt
-
Else
'=====
'获取扩展名
.txt
GetFileExtName(FilePathFileName
GetFileExtName
".txt"
J,
FindWindowEx
VB声明
说明
在窗口列表中寻找与指定条件相符的第一个子窗口
返回值
Long,找到的窗口的句柄.如未找到相符窗口,则返回零.会设置GetLastError
参数表
参数
类型及说明
hWnd1
Long,在其中查找子的父窗口.如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找)
Long,从这个窗口后开始查找.这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口.如设为零,表示从第一个子窗口开始搜索
lpsz1
String,欲搜索的类名.零表示忽略
Process.GetCurrentProcess.ProcessName
'--------------------
快加入我们吧!发表你的疑问,经验,程序,分享..
让我们共同进步!
Dim FileProperties As FileVersionInfo =
FileVersionInfo.GetVersionInfo("C:\XXXX\XXX.exe")
dim str as string = FileProperties.ProductName
sub
getpro()
dim
myinfo
as
string
myprocesses()
process
=
process.getprocesses()
for
each
myprocess
in
myprocesses
myprocess.
if
(myprocess.mainwindowtitle.length
0)
then
+=
myprocess.mainwindowtitle
vbcrlf
end
next
上面程序可以去取得目前正在运行的程序的标题,根据标题可判断除他的运行状态.
以上就是土嘎嘎小编为大家整理的vb.net获取程序名称相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!