vb 自身 扩展名

来源：百度知道 编辑：UC知道 时间：2024/05/22 17:41:51
如VB生成的程序名为aaa.exe
我把它改成aaa.com
运行aaa.com
用App.EXEName只能得到aaa

如何知道是aaa.com而不是aaa.exe
改名为其它扩展名呢？
我开始玩VB不久，filelistbox 怎么获取程序名呀，能不能写下代码呀，拜托了！
目的也就是要自身完整程序名，

这个 我没想过
现在 想了下，可以用filelistbox控件 获取你的程序 然后用right 取后4个

其实你自己改的扩展名 为何还要 知道他是com 还是exe 呢？你自己不是清楚的吗？

=========================================
代码：
首先在窗体中拉个filelistbox[右边第8个],和一个按钮
然后 就是代码

Private Sub Command1_Click()
Dim a As Integer
For a = 0 To File1.ListCount - 1
If App.EXEName = Left(File1.List(a), Len(File1.List(a)) - 4) Then
'判断 如果file1里的程序名和 你的程序名相同 就输出。因为不可能存在相同名字的 所以就是你的程序了
Print File1.List(a)
print right(File1.List(a),3) '这个只是输出后缀
End If
Next a
End Sub

Private Sub Form_Load()
File1.Path = App.Path '把file1的路径改为当前程序的路径
End Sub

其他没什么好讲 就这样。。。