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

1.创建文件 51Testing软件测试网-[-e T o Q+F�C
w~,@hE
fnu9O%y/Z0  创建空文本文件（有时被叫做“文本流”）有三种方法。51Testing软件测试网5~eI gn6b

  第一种方法是用CreateTextFile方法。下面的示例示范了如何用CreateTextFile方法创建文本文件：

3b?*Zys7\0

[VBscrīpt]51Testing软件测试网X(MMk�I�C%}O+EJ
;W	k/Nln"H0Dim fso, f1
.^d.MPzk$y/qk0w3V:N4Q])o
YR73325Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网9qZGM&ly%J
R
e\7B7\Z73325Set f1 = fso.CreateTextFile("c:\testfile.txt", True)

51Testing软件测试网)]9?.A/so)J"Q.O

  创建文本文件的第二种方法是，使用FileSystemObject对象的OpenTextFile方法，并设置ForWriting标志。51Testing软件测试网-x d4]w |~8W%z|4h

[VBscrīpt]51Testing软件测试网q8Qv%vb
w51Testing软件测试网;xWG `^v^
Dim fso, ts
M t$p9}$S3|.m0Vp.@"E7_(P r73325Const ForWriting = 251Testing软件测试网t{z$N	_t
g3]&s5Do3A73325Set fso = CreateObject("scrīpting. FileSystemObject")51Testing软件测试网j5`+X3Ir@m c/c%B
B6z�DH2PdgN-H73325Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)

51Testing软件测试网^v8pZ2d

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

Rs~1qh_:u0

[VBscrīpt]51Testing软件测试网
Ki?\|a!E"}X
#Ss+r6r"M?w'Z"y0Dim fso, f1, ts51Testing软件测试网+}.rQ)sTY~,\
l
-RskD`73325Const ForWriting = 2
F"G0Jx!R\q4V2Q	`
{0k5|z;YA2T*qBmg73325Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网T&``2mpdt.w {:lK%E
;P%{h8RcR0fso.CreateTextFile ("c:\test1.txt")
*G*h(])Rw&p;e{F7s)Q0/t"Q,^1\�U1xn/D
^3[73325Set f1 = fso.GetFile("c:\test1.txt")51Testing软件测试网R.o	\KC
(k@3u�Z6jz*_
aN73325Set ts = f1.OpenAsTextStream(ForWriting, True)51Testing软件测试网p7L^j B1MKD-?
Qys5i~-rg73325
3`q4H-j5B8d0*Awh&?MA]733252.写入数据51Testing软件测试网EIb8]5GC51Testing软件测试网Gx	GLQ1y.Y
一旦创建了文本文件，使用下面的三个步骤向文件添加数据：

Y1QHa?s:O0  打开文本文件。

Vj(U9m/A8I051Testing软件测试网LW8g_)\,nc(e

  写入数据。

j'd1d H*sn ?!^)wB0

bqv\'f\*pYj*|0  关闭文件。51Testing软件测试网6B^8jxNF

b6E4~ GD].l`?0  要打开现有的文件，则使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream 方法。51Testing软件测试网`Yo+Xf6t,f9gC

51Testing软件测试网d+R0X%C E1{"[+vL%w6e O.P

  要写数据到打开的文本文件，则根据下表所述任务使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 方法。

6W$p$P R#M"h.m051Testing软件测试网9J^\0Qrq,E-A

要关闭一个打开的文件，则使用TextStream对象的Close方法。51Testing软件测试网xk.qy%Xfm:SI

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

51Testing软件测试网!r;T9D!q$}#|4?

下面的例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：51Testing软件测试网iS|x0F]t4x2mg

[VBscrīpt]51Testing软件测试网hK1?`'W8Z
-Te-[qy&r2~
a)U)ix73325Sub CreateFile()51Testing软件测试网ZBpUe;~+L7Am [
(GTSDN1zyW0Dim fso, tf51Testing软件测试网zI!F(j/r6b7y
"cAZx&d&DI~0Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网2n V!@"j2K&e/AE
t$?kg&I"t3HG0Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' 写一行，并带有一个新行字符。 tf.WriteLine("Testing1, 2, 3.") ' 向文件写三个新行字符。
'e5[-`f2SyHS#r0spT"L4z&LR73325tf.WriteBlankLines(3) ' 写一行。
o#s_?!u3H!k8^0y8~)Ld&A73325tf.Write ("This is a test.")
qJ(|*pH~?_!G0(R"C,w{,XH73325tf.Close51Testing软件测试网,l)n
U:jq-^T51Testing软件测试网v:p|3QY E{ys-a*K
End Sub51Testing软件测试网!g5t*N `y51Testing软件测试网1c#\|&|5[%\x/N${f*{
51Testing软件测试网a Zy~8{4{f4Nl
J1q`a5iHa733253.读取数据
?A Fa-AiZ0&U0qW3p%hq73325   要从文本文件读取数据，则使用TextStream对象的Read、ReadLine或ReadAll方法。下表描述了不同的任务应使用哪种方法。51Testing软件测试网v&gMj.Y}

  如果使用Read或ReadLine方法，并且想跳过数据的特殊部分，则使用Skip或SkipLine方法。read 方法的结果文本存在一个字符串中，该字符串可以显示在一个控件中，也可以用字符串函数（如Left、Right和Mid）来分析，连接等等。51Testing软件测试网#r!g"H` N YIW%J

}2SO:m Hw?;U;Va0下面的例子示范了如何打开文件，和如何写数据到文件中并从文件读取数据：51Testing软件测试网&U!HNmUCh"B

[VBscrīpt]51Testing软件测试网HV,dR'm(j^
'?Q#|@(`#^o|%H73325Sub ReadFiles
S~6ds%T-it0c
f u4_hi4k73325Dim fso, f1, ts, s51Testing软件测试网
Speu:v`N%wO

HBq
z
RN~G0Const ForReading = 151Testing软件测试网w"M#gt!y1t51Testing软件测试网r&AL;dr$Lv
Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网uhf9\Y;T6R;K
*o0u.O:B`V&m)]V73325Set f1 = fso.CreateTextFile("c:\testfile.txt", True)51Testing软件测试网)a*\*y9MX#H
xo`]!c4j'EOd
t73325' 写入一行。51Testing软件测试网Dtu
Krh+bLy X-ht
Z
MHB|w;V/yO0Response.Write "Writing file <br>"
5J+S/pQ+j	R,S*Z0xgl:S}%i%a73325f1.WriteLine "Hello World"51Testing软件测试网5fQ:`4R9XJ/OC
+~*^'mll r$E-o73325f1.WriteBlankLines(1)51Testing软件测试网W	x7V#WS?A
_,?[~8N
g:lP
i73325f1.Close
'S\V0I7xw*My0"d0h.X
Gt
Vr6d73325' 读取文件内容。51Testing软件测试网[$E(h"V�OR4^2V51Testing软件测试网4bY	s]]3r!d8Z7J7g
Response.Write "Reading file <br>"
#\&`2@N8L'v$?e9Fr0
S;Rnv-Z^\.y4YR73325Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)51Testing软件测试网#~-A2J2T4mc�}j51Testing软件测试网j)|o;Kq%J3^UI!p3i
s = ts.ReadLine51Testing软件测试网$g{;tS,c7B
c@Z%o#?G73325Response.Write "File contents = '" & s & "'"51Testing软件测试网9\!RO	y5^P_
A3qUeWA$N0ts.Close51Testing软件测试网.Xl9r+EySc(lx-a:y
.v5T_QxJ@.o|0_o0End Sub51Testing软件测试网
XgZFVd%W@,T
B2Qm	r+~`9^Q#r051Testing软件测试网0lk9q&~/h
K:W8NOx
b#r8O04.移动、复制、删除51Testing软件测试网
t-\o7P"a ox
w51Testing软件测试网rS7ewrj3B5g&N`
FSO 对象模型各有两种方法移动、复制和删除文件，如下表所述。

51Testing软件测试网0z9S1x#H-O0C

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

.O:yzY,CJ0

R}GCN*b0要运行下面的示例，需要先在驱动器 C 的根目录中创建 \tmp 和 \temp 目录：

PI(Xl.^ oX0[VBscrīpt]Sub ManipFiles Dim fso, f1, f2, s51Testing软件测试网:Zxc7e4eB1J5p51Testing软件测试网P aF[J
Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网Bu"EwJx2U51Testing软件测试网-WfU(?\ b u
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)51Testing软件测试网9os1O@b.Y8Y.`xj
7v3Zj!n%C$Z2R1g0Response.Write "Writing file <br>" ' 写入一行。51Testing软件测试网^2TR;{:\H Ru51Testing软件测试网u5q+Ex.{w)wNg:S
f1.Write ("This is a test.") ' 关闭写入到的文件。51Testing软件测试网T8^;Q3V.z G
5d"U*Bc&Gmf4I73325f1.Close Response.Write "Moving file to c:\tmp <br>" ' 获取到 C:\ 根目录中文件的句柄。 Set f2 = fso.GetFile("c:\testfile.txt") ' 将文件移到 \tmp 目录。51Testing软件测试网pHgX lUl.y$|v
I ~_%eLo$F pd/`73325f2.Move ("c:\tmp\testfile.txt")51Testing软件测试网.^x*v;wAhy:N
ps7`LYp MD0Response.Write "Copying file to c:\temp <br>" ' 将文件复制到 \temp。51Testing软件测试网�YZ'O7[yhfW+zH51Testing软件测试网i'ka$b#A&XYZ
f2.Copy ("c:\temp\testfile.txt")51Testing软件测试网-N
|]9|$R8N'o%B sQ`51Testing软件测试网h)^0VUc.@a
Response.Write "Deleting files <br>" ' 获得文件当前位置的句柄。51Testing软件测试网 [^(`E
u,T
B'KDfE V'm4LjS73325Set f2 = fso.GetFile("c:\tmp\testfile.txt") Set f3 = fso.GetFile("c:\temp\testfile.txt") ' 删除文件。51Testing软件测试网@Vw$t_bh
1dWA_N73325f2.Delete f3.Delete51Testing软件测试网'_�iD}/h|3i?
~Yve$c)r'Q6X"A?0Response.Write "All done!"51Testing软件测试网2_�eD:U&H1V
N-IGQ1j0End Sub