[ű]
=ļ
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
'űں
Sub Main()
CreateFile1
CreateFile2
CreateFile3
ReadFiles
Files
End Sub
Sub CreateFile1()
Dim fso, f1
Set fso =CreateObject("Scripting.FileSystemObject")
Set f1 =fso.CreateTextFile("c:\testfile.txt", True)
End Sub
Sub CreateFile2()
Dim fso, ts
Const ForWriting =2
Set fso =CreateObject("Scripting.FileSystemObject")
Set ts =fso.OpenTextFile("c:\test.txt", ForWriting, True)
ts.WriteLine "Testing 1,2,3." 'ļд3ַ
ts.WriteBlankLines 3 'дһ
ts.Write "This is a test"
ts.Close
End Sub
Sub CreateFile3()
Dim fso, f1, ts
Const ForWriting =2
Set fso =CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("c:\test1.txt")
Set f1 =fso.GetFile("c:\test1.txt")
Set ts =f1.OpenAsTextStream(ForWriting, True)
ts.Close
End Sub
Sub ReadFiles()
   Dim fso, f1, ts, s
   Const ForReading =1
   Set fso =CreateObject("Scripting.FileSystemObject")
   Set f1 =fso.CreateTextFile("c:\testfile.txt", True)
   ' дһС
   print "Writing file"
   f1.WriteLine "Hello World"
   f1.WriteBlankLines 1
   f1.Close
   ' ȡļݡ
   print "Reading file"
   Set ts =fso.OpenTextFile("c:\testfile.txt", ForReading)
   s =ts.ReadLine
   print "File contents ='" & s & "'"
   ts.Close
End Sub
Sub Files()
Dim fso,f1,f2,f3
Set fso =CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\test1.txt") 'ļ
f1.Move "d:\test1.txt" 'ļƶD
f1.Copy "d:\test2.txt" 'ļƵD
Set f2 = fso.GetFile("d:\test1.txt")
Set f3 = fso.GetFile("d:\test2.txt")
f2.Delete 'ɾ
f3.Delete 'ɾ
End Sub
[]
