谢谢!

解决方案 »

  1.   

    Open "f:\aaa.txt" For Binary As #1
        Put #1, , "asfs"
        Close #1
      

  2.   

    Sub CreateAfile
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set a = fs.CreateTextFile("c:\testfile.txt", True)
        a.WriteLine("This is a test.")
        a.Close
    End Sub
      

  3.   

    lihonggen0(李洪根,用.NET,标准答案来了) 您好:是创建文件,不是打开文件。也可以用 open语句吗?谢谢!
      

  4.   

    Open "C:\aa.txt" For Output As #1
        Print #1, "文件内容"
        Close #1