|
dim stre ,fs ,f1 ,f2 ,f3 '定义变量 Const ForReading = 1 定义常量 set stre=createobject("wscript.shell") ’连接对象 set fs=createobject("scripting.filesystemobject") ’连接对象 if msgbox ("你好!" ,vbokcancel ,"你好!") = vbok then '弹出对话框，进行选择，如果是确定，则运行以下操作。 Set f1=fs.OpenTextFile("D:\123.txt" ,ForReading) ‘打开文件f3=f1.Readall ‘读取文件内容 f1.Close... |
