在VB中怎樣用程序打開.xls;.doc,.txt;.jpg...文件
如    call openfile(filename,readstate)
      filename 文件名,任意類型的文件
      readstate 讀寫狀態(只讀,讀寫)

解决方案 »

  1.   

    能够对文件输入/输出 (I/O)。语法Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]Open 语句的语法具有以下几个部分:部分 描述
    pathname 必要。字符串表达式,指定文件名,该文件名可能还包括目录、文件夹及驱动器。
    mode 必要。关键字,指定文件方式,有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式,则以 Random 访问方式打开文件。
    access 可选。关键字,说明打开的文件可以进行的操作,有 Read、Write、或 Read Write 操作。
    lock 可选。关键字,说明其它进程能够对打开的文件进行的操作,有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
    filenumber 必要。一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
    reclength 可选。小于或等于 32,767(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。
    说明对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用,并决定缓冲区所使用的访问方式。
    如果 pathname 指定的文件不存在,那么,在用 Append、Binary、Output、或 Random 方式打开文件时,可以建立这一文件。
    如果文件已由其它进程打开,而且不允许指定的访问类型,则 Open 操作失败,而且会有错误发生。
    如果 mode 是 Binary 方式,则 Len 子句会被忽略掉。重要   在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件,而不必先将该文件关闭。在 Append 和 Output 方式下,如果要用不同的文件号打开同一文件,则必须在打开文件之前先关闭该文件。
      

  2.   

    '使用shell
         MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & lvwfile.SelectedItem.key, 1)
      

  3.   

    本示例示范 Open 语句的不同用法来做到文件的输出与输入。
    下列代码以顺序输入模式打开 TESTFILE 文件。Open "TESTFILE" For Input As #1
    ' 若要以其他方式打开文件,必需先关闭此文件。
    Close #1下列代码以只允许写操作的二进制方式打开文件。Open "TESTFILE" For Binary Access Write As #1
    ' 若要以其他方式打开文件,必需先关闭此文件。
    Close #1下列代码以随机方式打开文件,文件中含有用户自定义数据类型 Record 的记录。Type Record ' 定义用户自定义数据类型。
    ID As Integer
    Name As String * 20
    End TypeDim MyRecord As Record ' 声明变量。
    Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
    ' 若要以其他方式打开文件,必需先关闭此文件。
    Close #1下列代码以顺序输出方式打开文件;任何过程都可以读写该文件。Open "TESTFILE" For Output Shared As #1
    ' 若要以其他方式打开文件,必需先关闭此文件。
    Close #1下列代码以只允许读的二进制方式打开文件;其他过程不可以读该文件。Open "TESTFILE" For Binary Access Read Lock Read As #1
      

  4.   

    Shell 函数
          执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数:部分 描述 
    pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。 
    Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。 
    windowstyle 命名参数有以下这些值:常量 值 描述 
    vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。 
    VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。 
    VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 
    VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 
    VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 
    VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 
    说明如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。
      

  5.   

    MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & 路径&文件名, 1)
      

  6.   

    API函数ShellExecute(),自动将制定文件与默认程序关联打开文件
      

  7.   

    API函数ShellExecute(),自动将指定文件与默认程序关联打开文件
      

  8.   

    用API来打开
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    ShellExecute 0,"open",文件地址(如:"C:\txt.txt"),运行参数(如:"/s /e"),"C:\",sw_Show
      

  9.   

    dim myvalue as string
    MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & 路径&文件名, 1)