Private Sub File1_Click()
MsgBox File1.Path & "\" & File1.FileName
End Sub

解决方案 »

  1.   

    谢谢。再问一下,VB中怎么在click事件中运行一个exe文件?
      

  2.   

    shell "需要运行的程序(注意要写全路径)",运行模式
      

  3.   

    下面是运行模式vbHide,隐藏运行
    vbNormalFocus, 正常运行,焦点在运行程序上
    vbMinimizedFocus 最小化运行,焦点在运行程序上
    vbMaximizedFocus 最大化运行,焦点在运行程序上
    vbNormalNoFocus 正常运行,没有焦点
    vbMinimizedNoFocus 最小化运行,没有焦点.
      

  4.   

    Private Sub File1_Click()
        MsgBox File1.FileName
    End Sub
      

  5.   

    很奇怪,我要调用的是DOS程序,可是原先能正常与rs232口进行通信,怎么现在一选端口按回车就自动退出了
    正常是发送数据的
    各位高见
      

  6.   

    你是在9x还是w2k下调用?9x;
    shell "c:\windows\command.com /c c:\path1\app1.exe",vbNormalFocusw2k:
    shell "c:\winnt\system32\cmd.exe /c c:\path1\app1.exe",vbNormalFocus
      

  7.   

    W2K啊。。通过拷屏,我得到dos截面输出为:can not open output file..你的方法还是那样
      

  8.   

    是一个第三方的控制台程序,直接运行后,在DOS中输入串口号,然后回车,就直接向串口输数据,直接运行很好,现在我想把它嵌到我用VB写的程序中,按如上方法,不行了
      

  9.   

    为什么我在DOS状态中,该可执行命令目录下,运行就没有问题
    而在其它目录下,敲它的全路径运行就不行
      

  10.   

    可能是该程序在执行的时候不支持路径定位,它只能识别本目录下的文件。
    如果是这样的话,通过shell调用这个程序就比较困难了.要求该程序和你的程序在同一个目录下才可以。你试试看吧。