高手:如何强迫shell以应用程序方式打开文本格式的文件???(可能表达不详细具体见内容)

[uestctg]

有一个exe文件，为安全需要，后缀名改为txt了，用vb如何实现编写一个小程序执行该exe文件？？？？？请高人示例指点！！！
Private Sub Command1_Click()
Name "c:\OldName.TXT" As "c:\NewName.exe"
RetVal = Shell("c:\NewName.exe", 1)
End Sub
运行一次文件名就改变了啊.
shell("notepad c:\77.dat",1) //以文本方式打开77文件.
问题::



shell("?? c:\oldname.txt",1) //以应用程序打开文件能实现?????

[SYSSZ]

你的问题是想程序不运行时还是个Txt,不是吗?如果是这样,程序加上这段代码就行了
Private Sub Form_unLoad()
Name "c:\NewName.TXT" As "c:\OldName.exe"
End Sub
名字不就又改回去了?

[SYSSZ]

粘错了应为Name "c:\NewName.exe" As "c:\OldName.TXT"