请问“openfile”是一个专门的打开文件的语句吗?如果是,下面的语句有什么错误?Private Sub Command1_Click()
CommonDialog1.Filter = "all files(*.*)|*.*|text_files(*.txt)|*.txt|batch files(*.bat)|*.bat"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
openfile (CommonDialog1.FileName)
Exit Sub 使用openfile可以打开一些其他的文件么?
比如是桌面上的快捷方式。比如上面的CommonDialog1.FileName为c:\显示桌面.lnk
在按下command1时候的效果可以和双击显示桌面.lnk的效果一下么?如果不能得话,用什么方法可以实现这样的效果?谢谢啦

解决方案 »

  1.   

    openfile  是自定义函数 不是系统函数
    打开文件你可以用Open 语句 Close 语句(关闭文件)
    示例Dim I, FileName
    For I = 1 To 3   ' 循环三次。
       FileName = "TEST" & I   ' 创建文件名。
       Open FileName For Output As #I   ' 打开文件。
       Print #I, "This is a test."   ' 将字符串写入文件。
    Next I
    Close   ' 将三个已打开的文件全部关闭。
      

  2.   

    __________有什么问题提请给我发信息_______
    http://message.csdn.net/SendMessage.aspx?To=sunxl
      

  3.   

    比如上面的CommonDialog1.FileName为c:\显示桌面.lnk
    在按下command1时候的效果可以和双击显示桌面.lnk的效果一下么?如果不能得话,用什么方法可以实现这样的效果?用SHELL方法来实现
      

  4.   

    Blade_hxh(水上飞)
    你是不是itit上面的水民啊?+++++++++++比如上面的CommonDialog1.FileName为c:\显示桌面.lnk
    在按下command1时候的效果可以和双击显示桌面.lnk的效果一下么?如果不能得话,用什么方法可以实现这样的效果?++++++++++这个我在itit上面发过的。还有
    我列出来的程序是清华大学出版社出版的 1999年6月第一版 《Visual Basic 6.0入门与提高》中149页上的。
    上面也没有说openfile为自定义函数,而是直接作为系统函数使用的。
    不知道这是不是书上的错误。