一个关于ActiveXObject("Scripting.FileSystemObject")的问题

Question

可以,
var strFileName,Path;
strFileName = "t1.txt";
Path = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path+"\"
Path += strFileName;最长的那一句我是复制我写的VBS中的,可能存在着大小写的问题.
原理就是利用 FSO 中的 文件夹 对象 路径信息 属性.

Answer 1

我写的
' VB Script Document
Dim NyDb,NyDbPath
NyDb = "lib.mdb"
NyDbPath = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path&"\"&NyDbDim Con,sql,i,j
Set Con = WScript.CreateObject("ADODB.Connection") 
On Error Resume Next
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NyDbPath
....改成你的可能不能用WScript.CreateObject,可能要写成
var fso,strFile,path;
fso = new ActiveXObject("Scripting.FileSystemObject");
strFile="t1.txt";
path=fso.GetFolder(".").path+"\\"+strFile;
if(fso.FileExists(path)){
  var y = fso.OpenTextFile(strFile,2,true,false);
  y.WriteLine("JavaScript的FileSystemObject对象"); 
  y.WriteLine("JavaScript写入文本文件的内容");
  y.Close();
}测试通过:
Microsoft Windows [版本 5.2.3790]
(C) 版权所有 1985-2003 Microsoft Corp.C:\Documents and Settings\Nanyang>F:F:\>cd phpF:\php>cscript test.js
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。
F:\php>

Answer 2

fso.GetFolder(".").path+"\\"+strFile; 
用javascript咱写

Answer 3

var fso,strFile,path; 
fso = new ActiveXObject("Scripting.FileSystemObject"); 
strFile="t1.txt"; 
path=fso.GetFolder(".").path+"\\"+strFile; 
if(fso.FileExists(path)){ 
  var y = fso.OpenTextFile(strFile,2,true,false); 
  y.WriteLine("JavaScript的FileSystemObject对象"); 
  y.WriteLine("JavaScript写入文本文件的内容"); 
  y.Close(); 
} 
不珍惜别人的解答.