正文
vbnet路径 vbs路径
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET中怎么找到EXE程序所在的路径
见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。
那么，在你的程序代码里使用：
MsgBox(Application.StartupPath)
显示的就是，你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。
相关问答
Q1: vb.net从文件路径中获取文件名
获取方法，参考实例如下：
'获取路径名各部分:
如：
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
Q2: 如何获取VB.NET窗体所在路径
1、如果你vbnet路径的窗体就是你当前工程这个EXE本身的窗体vbnet路径，
那么窗体所在的路径就是工程的启动路径，用下面的语句获取vbnet路径：
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体，那么你既然能LoadLibrary，就应该知道它的路径，所以不用问vbnet路径了。
关于vbnet路径和vbs路径的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
