【VB】VB获得自身所在完整路径包括后缀名

  • A+
所属分类:lcx

vb获得自身所在完整路径包括后缀名,vb获取自身路径,vb获取自身路径+后缀名,vb获取自身完整路径。

一[不支持非EXE后缀,非exe后缀的话,改一下".exe"即可,支持中文路径]:

不带"":
MsgBox Replace(App.Path + "" + App.EXEName + ".exe", "", "") 
 
带"":
"""" + Replace(App.Path + "" + App.EXEName + ".exe", "", "") + """"

二[支持任何后缀名,支持中文路径]:

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long '获取一个已装载模板的完整路径名称
Private Function FullAppName() As String '获取自身完整路径包括后缀名
On Error Resume Next
Dim ModName As String * 256
FullAppName = Replace(Left$(ModName, GetModuleFileName(App.hInstance, ModName, Len(ModName))), vbNullChar, "") '获取完整路径并替换掉空字符[中文会产生空字符]
End Function

Private Sub Form_Load()
MsgBox FullAppName
End Sub

文章来源于lcx.cc:【VB】VB获得自身所在完整路径包括后缀名

相关推荐: 再论黑卡,黑吃黑,银行黑卡,超级网银签约直接转账

在论黑卡,黑吃黑 假面, | 2014-01-03 11:56 因为这样那样的原因 ,我们需要一张黑卡 ,但菜鸟没渠道啊 不要给我说给农民工塞钱买卡 ,去网吧购买身份证去银行开户 ,首先你敢去吗 尼玛别人农民工也不是傻子啊 ,现在社会上看见个人我们都觉得他是骗…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: