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

显示全部楼层 · 2011-4-24 22:38:27

如下我获得了自身路径，获得名称用什么函数？api也可以，不要用vb自带的app属性
Set objShell = CreateObject("Wscript.Shell")
MsgBox objShell.CurrentDirectory

千问 · 2011-4-24 22:38:27

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As LongPrivate 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

千问 · 2011-4-24 22:38:27

private function getme()msgbox app.path & "\" & app.exenameend sub