vb获得自身名称/不用APP?

如下我获得了自身路径,获得名称用什么函数?api也可以,不要用vb自带的app属性SetobjShell=CreateObject("Wscript.Shell")Msg... 如下我获得了自身路径,获得名称用什么函数?api也可以,不要用vb自带的app属性
Set objShell = CreateObject("Wscript.Shell")
MsgBox objShell.CurrentDirectory
展开
 我来答
百度网友bdb9803
2011-04-24 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As String, ByVal Source As Long, ByVal Length As Long)

Private Sub Form_Load()
Dim lRet As Long, sCmd As String
lRet = GetCommandLine
If lRet > 0 Then
sCmd = String(256, 32)
CopyMemory sCmd, lRet, Len(sCmd)
sCmd = Mid(sCmd, 1, InStr(1, sCmd, Chr(0)) - 1)
MsgBox sCmd
End If
End Sub

路径和文件名都有!
更多追问追答
追问
sCmd = Mid(sCmd, 1, InStr(1, sCmd, Chr(0)) - 1)
这一句什么意思啊?
追答
就是截取sCmd的一段,它保存的路径是以asc码为0来结尾的,后面还有其他字符。
科技程序迷
2011-04-24 · TA获得超过2822个赞
知道大有可为答主
回答量:2240
采纳率:0%
帮助的人:1854万
展开全部
private function getme()
msgbox app.path & "\" & app.exename
end sub
追问
不用APP的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式