ts=fso.opentextfile("test.txt",forreading);给小女子看一下代码吧！！

Question

看msdn的example:在当前目录查找指定文件filespec：
Function ReportFileStatus(filespec)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(filespec)) Then
      msg = filespec & " exists."
   Else
      msg = filespec & " doesn't exist."
   End If
   ReportFileStatus = msg
End Function创建文件：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

Answer 1

我要创建在当前目录上，怎么创建啊，Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)只能创建在c:\下啊

Answer 2

"c:\\testfile.txt"
注意\要转义

Answer 3

当前目录直接写文件名
"testfile.txt"

Answer 4

用 .\filename.txt 试一试，这里好象不用考虑转义

Answer 5

把当前的目录安全属性改一下
everyone全打勾，system全打勾

Answer 6

NT系统用ＦＳｏ创建文件需要权限！
改变指定文件夹属性即可（如yjgx007)