none
紧急求救!!怎么用vb2008打开vbs文件 RRS feed

  • 问题

  •  

    用shell似乎不行,我的代码如下:

     Dim s As String
            s = "c:\ti.vbs"
            Using sr As StreamWriter = New StreamWriter(s)
                Dim a, b As String
                b = """"
                a = "scripting.filesystemobject"
                sr.WriteLine("set fs=createobject(" & b(0) & a & b(0) & ")")
                sr.WriteLine("set f=fs.opentextfile(" & b(0) & "c:\123.txt" & b(0) & ",2,true)")
                sr.WriteLine("f.write " & TextBox1.Text)
                sr.Close()
            End Using

            Shell("C:\ti.vbs",)

    然后就运行是就弹个窗口

    :未找到文件。

    下面还有排错提示。。。

    高手帮帮忙,谢谢

    2008年11月29日 8:27

答案

  • Code Snippet

     

    Dim s As String
    s = "c:\ti.vbs"
    Using sr As StreamWriter = New StreamWriter(s)
        Dim a, b As String
        b = """"
        a = "scripting.filesystemobject"
        sr.WriteLine("set fs=createobject(" & b(0) & a & b(0) & ")")
        sr.WriteLine("set f=fs.opentextfile(" & b(0) & "c:\123.txt" & b(0) & ",2,true)")
        sr.WriteLine("f.write """ + TextBox1.Text.Replace("""", """""") + """")
        sr.Close()
    End Using

    System.Diagnostics.Process.Start("c:\ti.vbs")

     

     

     

    2008年11月29日 9:05
    版主