请教一个取文件名的问题

Question

我用vb写一个程序 实现这样的功能 :
某一类文档关联我得程序打开 我得程序会用shell调用相应的应用程序来打开这个文档 请问我怎么获得这个文档的文件名?

Answer 1

使用Common Dialog Control这个控件，中文是“通用对话框控件”通过菜单的“工程”-》“部件...”来选择加入到工程中随后设置CancelError的属性为True，即表示用户点击取消会产生错误。在一个按钮下输入代码：
  Private sub Command1_Click()
  On Error Goto ErrL:Err.clear
   With CommonDialog1
     .Filter = "所有文件(*.*)|*.*"
     .ShowOpen
     Msgbox "用户点的文件为：" & vbcrlf & .FileName,vbInformation
   End With
ErrL:
  Msgbox "用户点击了取消！",vbInformation
  End Sub

Answer 2

End With
下面要加一句： Exit Sub

Answer 3

楼上的 我并不是需要对话框 我的目的是这样的 比如我写了aa.exe  有个word 文档 默认用aa打开  问得是在aa里面怎么获取这个文档的文件名

Answer 4

可以修改注册表，让Word文档与aa.exe进行关联，不过那样做的话，所有的Word都会默认以aa.exe程序打开

Answer 5

我只是打个比方 并不就是word文档 关联我暂时不去考虑 我要考虑的就是如何在aa中获取文档的文件名

Answer 6

//某一类文档关联我得程序打开 我得程序会用shell调用相应的应用程序来打开这个文档 请问我怎么获得这个文档的文件名?在窗体的load事件中处理：
Private Sub Form_Load()
MsgBox Command 'command返回一个字串，你处理这个字串就可以了，前提是要设置好文件关联
End Sub