实践出真知！
vbs中对文件的处理_创建文件
上一篇 /
下一篇 2008-04-14 17:50:16
/ 个人分类：语言学习
创建文件：
51Testing软件测试网(M y(f7v#}1r$}6Zg1，用
CreateTextFile
%S&NR!o3h*_ NP'B0例子：51Testing软件测试网WZ%l8jE`4x
Dim fso, f1
51Testing软件测试网HU&? |#qd,\PSet fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网I5A
I4T
@!qX \} q,~
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
9O x.U
a.h#Qhq02，使用OpenAsTextStream方法，并设置ForWriting标志51Testing软件测试网6V-R d)o#GLS&B"np
例子：51Testing软件测试网,] _z"s t+B sN Dg
Dim fso, f1, ts
X@7G6B U Z @d0Const ForWriting = 251Testing软件测试网y)Z)O R|#C*c
Set fso = CreateObject("scrīpting.FileSystemObject")
["e hP&B1x]*r;R0fso.CreateTextFile ("c:\test1.txt")51Testing软件测试网I nJ%@)t
x9[ M
Set f1 = fso.GetFile("c:\test1.txt")51Testing软件测试网 tz yt#uF${y
Set ts = f1.OpenAsTextStream(ForWriting, True)51Testing软件测试网g F+I6Y)Ht:{
51Testing软件测试网4N3`["A"k/Ko+o o
收藏
举报
TAG:
语言学习
