var fso, f; fso = new ActiveXObject("Scripting.FileSystemObject"); f = fso.CreateTextFile("c:\\testfile.txt", true); f.WriteLine("This is a test."); f.Close();
下面是我的一个程序:总是在vbcopy=file1.readall出错,提示输入超出文件尾, 这是为什么呢?musicurl是一个javascipt字符串参数, dim vbcopy as string vbcopy="" Set fso = CreateObject("Scripting.FileSystemObject") set file1=fso.OpenTextFile("c:\music.txt") vbcopy=file1.ReadAll set file = fso.createTextFile("c:\music.txt") file.writeline musicurl file.wiiteline vbcopy file.close
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.CreateTextFile("c:\\testfile.txt", true);
f.WriteLine("This is a test.");
f.Close();
这是为什么呢?musicurl是一个javascipt字符串参数,
dim vbcopy as string
vbcopy=""
Set fso = CreateObject("Scripting.FileSystemObject")
set file1=fso.OpenTextFile("c:\music.txt")
vbcopy=file1.ReadAll
set file = fso.createTextFile("c:\music.txt")
file.writeline musicurl
file.wiiteline vbcopy
file.close