当前位置:编程学习 > VB >>

一个程序运行后,如何返回一个字符串,字符串应包括该程序的路径和文件名

例如,一个程序为abc.exe,保存在E盘的根目录下,我希望它运行后能返回自己所在的路径和文件名,即返回的字符串为 e:\abc.exe
现在我是这样做的:
Text1.Text = App.Path & App.EXEName & ".exe"
因为App.EXEName是不包括扩展名的,所以我必须手动添加".exe",但是如果别人把这个程序的扩展名改为.com ,那么返回的就不是 e:\abc.com ,仍然还是 e:\abc.exe ,这样就不正确了。
我现在就是想问一下,有没有哪个函数能直接返回路径和文件名?(除了API之外) --------------------编程问答-------------------- '用API也不难吧?
Option Explicit

Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Long) As Long
Private Declare Function GetCommandLine Lib "kernel32.dll" Alias "GetCommandLineA" () As Long

Private Sub Form_Load()
Dim strPath As String * 256, CmdLnPtr As Long
CmdLnPtr = GetCommandLine
lstrcpy ByVal strPath, ByVal CmdLnPtr
MsgBox strPath
End Sub --------------------编程问答-------------------- 用API当然也不难,我只是想知道VB里有没有自带的这种函数。 --------------------编程问答-------------------- 不懂,帮顶,不过现在已经是最顶了………… --------------------编程问答-------------------- 我有个思路:

你打开一个任意可执行文件的属性窗口,切换到"版本"选项卡里,看看里面的"源文件名"这一项

它就是这个文件编译后最初的文件名,无论这个文件名如何改,也不会变(当然,在没有被人为地改过的情况下是这样....)

你可以通过取得这个值,来处理.
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,