VBScript:处理文件（创建、写入、读取、删除）

1.创建文件 
(f@2Xdg`F,qv3zL
g0  创建空文本文件（有时被叫做“文本流”）有三种方法。51Testing软件测试网+|L
X
z S%X

  第一种方法是用CreateTextFile方法。下面的示例示范了如何用CreateTextFile方法创建文本文件：51Testing软件测试网(F9f:|r
S6C

[VBscrīpt]
^B6X0mZs+a+o0Dim fso, f151Testing软件测试网*lw0Q8]Qr
Set fso = CreateObject("scrīpting.FileSystemObject")
/PUi0O4]\&K
\A)H0Set f1 = fso.CreateTextFile("c:\testfile.txt", True)

51Testing软件测试网jb"rO/~ _

  创建文本文件的第二种方法是，使用FileSystemObject对象的OpenTextFile方法，并设置ForWriting标志。51Testing软件测试网C9}3rL;jz a

[VBscrīpt]
5Ld/f&bK7j_G0tuR0Dim fso, ts51Testing软件测试网(z,ku0^Zc?O%\T
Const ForWriting = 251Testing软件测试网+B)SM(l[N5k
Set fso = CreateObject("scrīpting. FileSystemObject")
6TzAJ3~8YFoJFA0Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)

51Testing软件测试网 Qn-s\#S

  创建文本文件的第三种方法是，使用OpenAsTextStream方法，并设置ForWriting标志。要使用这种方法，使用下面的代码：

G8Dx0r1~B&m0

[VBscrīpt]51Testing软件测试网bD%lWwnK,I*K%B
Dim fso, f1, ts
'QWS}6Va0Const ForWriting = 2
u5bS8h4c)N5b:b	E0Set fso = CreateObject("scrīpting.FileSystemObject")
g6[M?r0fso.CreateTextFile ("c:\test1.txt")
5oP(wa#Z_v
E0Set f1 = fso.GetFile("c:\test1.txt")
XA7}@D*Ls-Q0Set ts = f1.OpenAsTextStream(ForWriting, True)51Testing软件测试网TJA4g8~mM;Ct
51Testing软件测试网!Qj/^]R-y.?
2.写入数据51Testing软件测试网+DufN3r,Kl
一旦创建了文本文件，使用下面的三个步骤向文件添加数据：

51Testing软件测试网vmp9TMv p7xpd#I

  打开文本文件。51Testing软件测试网.}&lTPON1~(`x-w Z

Fdp4s r%[,X0  写入数据。51Testing软件测试网@~ r*Piu{|

K/|6kD\+@D4x0  关闭文件。51Testing软件测试网I7R\]R@%}

"x
^ OAn|)Xq0  要打开现有的文件，则使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream 方法。

y6Wu%r|,Mp z2S051Testing软件测试网2Kf,o2GL:Y5?1x

  要写数据到打开的文本文件，则根据下表所述任务使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 方法。51Testing软件测试网4BL(iS?\

[V3FCY2Mn0要关闭一个打开的文件，则使用TextStream对象的Close方法。51Testing软件测试网ZG:x(w&[-X

注意   新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。

51Testing软件测试网0mESGx6bo

下面的例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：

KV;hI l(Oz0[VBscrīpt]51Testing软件测试网x;`:Pi5C3o
Sub CreateFile()
)n9w4fIC$R#`B0Dim fso, tf51Testing软件测试网0Y:|}0`,`s1c,S&k
Set fso = CreateObject("scrīpting.FileSystemObject")
]4T D+r-h e9ST:^0Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' 写一行，并带有一个新行字符。 tf.WriteLine("Testing 1, 2, 3.") ' 向文件写三个新行字符。51Testing软件测试网%q#QBG#El5s
tf.WriteBlankLines(3) ' 写一行。
Lb+yU|8`stS g@O0tf.Write ("This is a test.")
Y a$p)C9Q0tf.Close51Testing软件测试网;\{+X4C-C
End Sub51Testing软件测试网)pV"v,W,~&u1d

(u1^POVa.I8hK03.读取数据
)|a G/A)B0   要从文本文件读取数据，则使用TextStream对象的Read、ReadLine或ReadAll方法。下表描述了不同的任务应使用哪种方法。51Testing软件测试网{mdzH oT'T

  如果使用Read或ReadLine方法，并且想跳过数据的特殊部分，则使用Skip或SkipLine方法。read 方法的结果文本存在一个字符串中，该字符串可以显示在一个控件中，也可以用字符串函数（如Left、Right和Mid）来分析，连接等等。

x`&m*t:x!_)D0

J`zs4`^$q_k$b\e0下面的例子示范了如何打开文件，和如何写数据到文件中并从文件读取数据：51Testing软件测试网4v6L6_|2kP'dj?3v

[VBscrīpt]51Testing软件测试网-Ni9z8I}0Y{1jS)Kr
Sub ReadFiles
tik}Z'x0Dim fso, f1, ts, s
x9^&g-F%Z0Const ForReading = 151Testing软件测试网A
I,Wb8E'JLO3H7y	Z
Set fso = CreateObject("scrīpting.FileSystemObject")
0`@6yr.TDa0Set f1 = fso.CreateTextFile("c:\testfile.txt", True)51Testing软件测试网eT:Rz7?$L
p
' 写入一行。
j[YWJ\0Response.Write "Writing file <br>"51Testing软件测试网t3r;ve$C{
f1.WriteLine "Hello World"
)s;e4@}q0f1.WriteBlankLines(1)
%@d-J4Dy0f1.Close51Testing软件测试网v4k(]o(~ad{#T
' 读取文件内容。51Testing软件测试网fuVYk9ZHYQ
Response.Write "Reading file <br>"51Testing软件测试网.rMI~#[
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
cl i;KR0J!DDJ0s = ts.ReadLine
Im#x a)^o0Response.Write "File contents = '" & s & "'"51Testing软件测试网
A] \	f8A%V9KNT
ts.Close51Testing软件测试网u
BR3xFc,N
End Sub
_MpP.L	y&SL#sJ+q0
3` \;S%QJ
ua04.移动、复制、删除

O-?l0U*_u*i0FSO 对象模型各有两种方法移动、复制和删除文件，如下表所述。

51Testing软件测试网]9P#X}
wGUd[

下面示例在驱动器 C 的根目录中创建一个文本文件，向其中写一些信息，然后把它移动到 \tmp 目录中，并在 \temp 中做一个备份，最后把它们从两个目录中删掉。

)I4b5a#W
y(G0

jFP'T;^P0要运行下面的示例，需要先在驱动器 C 的根目录中创建 \tmp 和 \temp 目录：

)E.TD2iF0[VBscrīpt]Sub ManipFiles Dim fso, f1, f2, s51Testing软件测试网8p6eQ:G4[h
Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网9]Y7fQ ]-M mlr[5G-\
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)51Testing软件测试网!glp] NrqE/]
Response.Write "Writing file <br>" ' 写入一行。
Na&`#C,V0f1.Write ("This is a test.") ' 关闭写入到的文件。
p8{5^ V Q0f1.Close Response.Write "Moving file to c:\tmp <br>" ' 获取到 C:\ 根目录中文件的句柄。 Set f2 = fso.GetFile("c:\testfile.txt") ' 将文件移到 \tmp 目录。51Testing软件测试网Kw_/qQ0k
f2.Move ("c:\tmp\testfile.txt")51Testing软件测试网;a3Tj/o(uam6_
J
Response.Write "Copying file to c:\temp <br>" ' 将文件复制到 \temp。51Testing软件测试网${G0S H;q I2S4a
f2.Copy ("c:\temp\testfile.txt")51Testing软件测试网"F'w%w'h5[
Response.Write "Deleting files <br>" ' 获得文件当前位置的句柄。51Testing软件测试网${!m J2F@'c
Set f2 = fso.GetFile("c:\tmp\testfile.txt") Set f3 = fso.GetFile("c:\temp\testfile.txt") ' 删除文件。
-M:m&s+q
f.MS0f2.Delete f3.Delete
6P7EY#PC|0Response.Write "All done!"
"M$UxV7`Ad0End Sub

51Testing软件测试网~v:|}+`^