vbs 练习1

建立文件 和删除文件
Option Explicit
Dim fso

Set fso=CreateObject("Scripting.FileSystemObject")

fso.CreateFolder="C:Users...Desktoptest"  '建立文件夹
fso.CreateFolder="C:Users...Desktoptest.txt"  ‘建立文件

fso.DeleteFile="C:Users...Desktoptest"  '删除文件夹
fso.DeleteFile="C:Users...Desktoptest.txt"  ‘删除文件
 

=====================================================================
设置ie样式打开ie并传值
Option Explicit
 dim ie,x

 set x=CreateObject("wscript.shell")
 Set ie =CreateObject("internetExplorer.Application")

 ie.Navigate "http://baidu.com"
 ie.Toolbar=0
 ie.StatusBar=0
 ie.Height=500
 ie.Width=400
 ie.Top=0
 ie.Left=0
 ie.Resizable=0
 ie.Visible=1

 do while ie.Busy
 wscript.sleep 3000
 loop

 x.sendkeys"a771948524"
 x.sendkeys"{enter}"=====================================================================
文本读取
Option Explicit
Dim fso,oFile,a
Set fso=CreateObject("Scripting.FileSystemObject")
Set oFile =fso.OpenTextFile("d:text.txt")
For a=1 to 3
'msgbox oFile.read(1) '每次读取一个字符
msgbox oFile.readline
next
msgbox "end"
=====================================================================
文本写入
Option Explicit
Dim fso,oFile
Const WR=2
Set fso=CreateObject("Scripting.FileSystemObject")
Set oFile =fso.OpenTextFile("d:text.txt",WR,True)

oFile.Write "teting this file"
oFile.WriteLine  "this is line"
oFile.WriteBlankLines(5) '写五行空行
 oFile.Write "teting this file1" 


msgbox oFile.ReadAll
=====================================================================
文本的追加写入
Option Explicit
Dim fso,oFile
Set fso=CreateObject("Scripting.FileSystemObject")
Set oFile =fso.OpenTextFile("d:text.txt",8) ’参数8是追加写入

oFile.Write "teting this file"
oFile.WriteLine  "this is line"
oFile.WriteBlankLines(5) '写五行空行
 oFile.Write "teting this file1" 


文件的分割  直接拖放
Dim fso,File,Num,Temp,Temp2,Num2,Num3,Temp3,Temp4,Num4,Num5,Temp5,outname
 Set fso = CreateObject("scripting.filesystemobject")
 File=WScript.Arguments(0)
 Num=InputBox("请输入每份字符数：")
 Set Re=fso.OpenTextFile(File,1)
 Temp = Re.ReadAll
 Num2=Len(Temp)
 Num2=Num2/Num
 Num2=Fix(Num2)
 For Temp2=1 To Num2
 Num3=Temp2+(Temp2-1)*(Num-1)
 Temp3 = Mid(Temp,Num3,Num)
 outname=fso.getfile(file).parentfolder&""&Temp2&".txt"
 fso.CreateTextFile(outname)
 fso.OpenTextFile(outname,2).Write(Temp3)
 Next
 Num4=Len(Temp) Mod Num
 Num5=Num3+Num
 Temp3=Mid(Temp,Num5,Num4)
 Temp5=Temp2+1
 fso.CreateTextFile(fso.getfile(file).parentfolder&""&Temp2&".txt")
 fso.OpenTextFile(fso.getfile(file).parentfolder&""&Temp2&".txt",8).Write(Temp3)
 MsgBox "分割完成！",64,"完成！"