VBScript文件操作对象FileSystemObject大全

最新推荐文章于 2021-10-06 22:59:24 发布

好一个大布丁

最新推荐文章于 2021-10-06 22:59:24 发布

阅读量1.3k

点赞数 2

基本运算 
  + 数字加法及字符串连接 
  - 数字减法 
  * 数字乘法 
  / 数字除法 
  Mod 求余数 
  \ 求商数 
  & 字符串连接 
  ^ 次方 
  = 相等 
  <> 不相等 
  >= 大于或等于 
  > 大于 
  <= 小于或等于 
  < 小于 
  Not 非 
  And 且 
  Or 或 
  Xor 异或 
  循环及决策 
  if ....then 若...则... 
  if ...then...else 若...则...非 
  else if... 非若 
  select case... 群组选择条件 
  end select 
  for ... next 计数循环 
  while...wend 条件循环(一) 
  do while...loop 条件循环(二) 
  do...loop while 条件循环(三) 
  do until...loop 条件循环(四) 
  do...loop until 条件循环(五) 
  数学函数 
  Abs 绝对值 
  Sgn 正负号 
  Hex 转换成十六进制 
  Oct 转换成八进制 
  Sqr 平方根 
  Int 取整数 
  Fix 取整数 
  Round 取整数 
  Log 以e为底的对数 
  Sin 正弦函数 
  Cos 余弦函数 
  Tan 正切函数 
  字符串处理函数 
  Len 字符串长度 
  Mid 取部分字符串 
  Left 从字符串开头取部分字符串 
  Right 从字符串结尾取部分字符串 
  Lcase 转换成小写 
  Ucase 转换成大写 
  Trim 清除字符串开头及结尾的空格符 
  Ltrim 清除字符串开头空格符 
  Rtrim 清除字符串结尾空格符 
  Replace 替换字符串部分字符 
  Instr 判断是否包含于另一个字符串(从起始搜寻) 
  InstrRev 判断是否包含于另一个字符串(从结尾搜寻) 
  Space 任意字符数的空格符 
  String 任意字符数的任一字符 
  StrReverse 反转字符串 
  Split 以某字符分割字符串 
  数据类型转换函数 
  Cint 转换成整形 
  Cstr 转换成字符串 
  Clng 转换成常整数 
  Cbool 转换成布尔函数 
  Cdate 转换成日期函数 
  CSng 转换成单精度 
  CDbl 转换成双精度 
  日期时间函数 
  Date 现在日期 
  Time 现在时间 
  NOw 现在日期时间 
  DateAdd 增加日期 
  DateDiff 两日期差 
  DateSerial 日期设定 
  Datevalue 日期设定 
  Year 现在年份 
  Month 现在月份 
  Day 现在天 
  Hour 现在时刻 
  Minute 现在分钟 
  Second 现在秒钟 
  Timer 午夜距现在秒数 
  TimeSerial 时间设定 
  Timevalue 时间所属部分 
  WeekDay 星期名称 
  MonthName 月份名称 
  其它函数 
  Array 产生数组 
  Asc 字符ASCII码 
  Chr ASCII码字符 
  Filter 过滤数组 
  InputBox 输入窗口 
  Join 合并数组中的元素 
  MsgBox 信息窗口 
  Lbound 数组下界 
  Ubound 数组上界 
  指令 
  Const 设定常数 
  Dim 定义变量或者数组 
  Erase 清除数组 
  ReDim 重新声明数组 
  Randomize 起始随机数 
  Rnd 取得随机数 
  ASP对象 
  Session对象 
  IsEmpty 测试Session变量是否存在 
  TimeOut 设定Session变量生存周期 
  Abandon 强制清除Session变量 
  Application对象 
  IsEmpty 测试Application变量是否存在 
  Lock 锁定Application变量 
  Unlock 解除Lock指令的锁定 
  Cookies对象 
  Expires 设定Cookies变量的生存周期 
  Connection对象 
  Open 打开与数据库的连接 
  Execute 打开Recordset对象 
  Close 关闭Connection对象 
  Recordset对象 
  movefirst 将记录指针移至第一条 
  movelast 将记录指针移至最后一条 
  movenext 将记录指针移至下一条 
  moveprevious 将记录指针移至上一条 
  bof 测试是否为recordset的起始 
  eof 测试是否为recordset的结束 
  open 打开Recoreset对象 
  close 关闭recordset对象 
  fields 读取数据的子对象 
  fileds.count 字段个数 
  pagesize 每页记录条数 
  absolutepage 设定为某页 
  pagecount 总页数 
  Absoluteposition 直接跳至某条记录

FileSystemObject操作全集

<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso

变量调用
getfso=fso.DriveExists("g:\") '判断指定硬盘驱动器是否存在
getfso=fso.GetDrive("c:") '创建自定义的FSO驱动器对象
getfso=fso.GetDriveName("c:\网络程序员伴侣") '返回文件夹的所在盘符
Set getfso=fso.Drives '创建FSO驱动器集合对象,多配合for each i in 
getfso语句进行穷尽操作,支持所有[驱动器对象属性],并具有Count和Item属性

Set fso=Nothing '释放fso变量与FSO组件的连接资源
</script>

驱动器对象操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetDrive("c:").FileSystem '返回驱动器对象的文件系统类型
getfso=fso.GetDrive("c:").DriveType '返回驱动器对象的驱动器类型,返回值范围0-5
getfso=fso.GetDrive("c:").DriveLetter '返回驱动器对象的字母
getfso=fso.GetDrive("c:").IsReady '返回指定驱动器是否准备好或是否损坏
getfso=fso.GetDrive("c:").SerialNumber '返回驱动器对象的唯一十进制卷标序号
getfso=fso.GetDrive("c:").ShareName '返回驱动器对象的网络共享名
getfso=fso.GetDrive("c:").VolumeName '返回驱动器对象的卷标名,同时也可以设置其卷标名
getfso=fso.GetDrive("c:").Path '返回驱动器的实际路径,如c:\则返回c:
getfso=fso.GetDrive("c:").RootFolder '返回驱动器对象的跟文件夹
getfso=fso.GetDrive("c:").AvailableSpace'返回驱动器对象的可用容量大小
getfso=fso.GetDrive("c:").FreeSpace '返回驱动器对象的剩余空间大小
getfso=fso.GetDrive("c:").TotalSize '返回驱动器对象的总空间容量大小

Set fso=Nothing '释放fso变量与FSO组件的连接资源
</script>

系统文件夹操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetFolder("c:\") '创建自定义的FSO文件夹对象
getfso=fso.FolderExists("e:\网络程序员伴侣") '判断指定文件夹是否存在
getfso=fso.GettempName '随机返回WINDOW产生在temp文件夹中的临时文件
getfso=fso.GetparentFolderName("e:\网络程序员伴侣") '返回指定文件夹的父文件夹
fso.CreateFolder "c:\windows\新创建的文件夹路径及名称"
fso.MoveFolder "c:\windows\许移动或改名的文件夹","c:\windows\移动路径和新的文件夹名"
fso.DeleteFolder "c:\windows\要删除的目录名",false/true
fso.CopyFolder "c:\windows\须复制的目录名","c:\windows\得到付值内容的目录名",false/true
Set getfso=fso.Folders '创建FSO文件夹集合对象,多配合for each i in getfso语句进行穷尽操作,支持所有[文件夹对象属性],并具有Count和Item属性,具有AddFolders方法
Set getfso=fso.Files '创建FSO文件夹内文件集合对象,多配合for each i in getfso语句进行穷尽操作,支持所有[文件对象属性],并具有Count和Item属性
Set fso=Nothing '释放fso变量与FSO组件的连接资源</script>

文件夹对象操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetFolder("c:\windows").Name '返回文件夹的名字,这里返回WINDOW
getfso=fso.GetFolder("c:\windows").ShortName '返回文件夹[8.3]格式的名称
getfso=fso.GetFolder("c:\windows").Attributes '返回文件夹的属性,可返回0,1,2,4,8,16,32,64,128
getfso=fso.GetFolder("c:\windows").Size '返回文件夹(包括子文件夹)内文件占用空间大小
getfso=fso.GetFolder("c:\windows").Type '返回文件夹类型信息
getfso=fso.GetFolder("c:\windows").Path '返回文件夹的真实路径
getfso=fso.GetFolder("c:\windows").ShortPath '返回文件夹[8.3]格式的路径
getfso=fso.GetFolder("c:\windows").Drive '返回文件夹所在驱动器
getfso=fso.GetFolder("c:\windows").Files.count '返回文件夹包含的所有文件对象集合
getfso=fso.GetFolder("c:\windows").SubFolders.count '返回文件夹包含的所有子文件夹的对象集合
getfso=fso.GetFolder("c:\windows").ParentFolder '返回文件夹的父文件夹对象
getfso=fso.GetFolder("c:\windows").IsRootFolder '返回文件夹是否为跟文件夹,是返回true否返回false
getfso=fso.GetFolder("c:\windows").DateCreated '返回文件夹的最初创建时间
getfso=fso.GetFolder("c:\windows").DateLastAccessed '返回文件夹最后一次访问时间
getfso=fso.GetFolder("c:\windows").DateLastModified '返回文件夹最近修改的时间
fso.GetFolder("c:\windows").CreateTextFile "新建的文件名及后缀",true/false,true/false
fso.GetFolder("c:\windows\要删除的目录名").Delete true
fso.GetFolder("c:\windows\要移动改名的目录名").Move "文件夹将要移动到的路径及自定义文件夹名称"
fso.GetFolder("c:\windows\旧目录").Copy "复制到路径",true/false '在指定路径付值此文件夹,true=覆盖,false相反
Set fso=Nothing '释放fso变量与FSO组件的连接资源</script>

系统文件操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetFile("c:\windows\help.html") '得到文件完整路径
getfso=fso.GetFileName("c:\windows\help.html") '得到文件名称和后缀
getfso=fso.GetExtensionName("c:\windows\help.html") '得到文件的文件类型(后缀),不含小数点
getfso=fso.FileExists("c:\windows\文件名.html") '判断文件是否存在
fso.MoveFile "要移动及改名的原文件路径","移动到某路径及自定义新文件名"
fso.DeleteFile "c:\windows\要删除的文件所在路径",false/true
fso.CopyFile "c:\windows\须复制的旧文件.txt","c:\windows\复制后的文件名.jpg",false/true
fso.OpenTextFile "c:\windows\desktop\要打开操作的文件名称.txt",1/2/8,true/false,0/-1/-2 'ForReading=1=只读方式,ForWriting=2=可写方式,ForAppending=8=追加方式.true=如果打开的文件不存在则创建该文件.TristateFalse=0=以系统默认方式打开,TristateTrue=-1=以Unicode格式打开文件,TristateUseDefaule=-2=以ASCLL格式打开文件(缺剩值)
fso.CreateTextFile "c:\windows\desktop\新建的文件名称.txt",false/true,false/true '前者true覆盖以存在同名文件,后者为true新文件将以Unicode方式创建,反之=结果相反
Set fso=Nothing '释放fso变量与FSO组件的连接资源
</script>

文件对象操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
getfso=fso.GetFile("c:\windows\笔记本.txt").Name '返回文件对象的名称包含后缀
getfso=fso.GetFile("c:\windows\笔记本.txt").ShortName '返回文件对象的[8.3]名称包含后缀
getfso=fso.GetFile("c:\windows\笔记本.txt").Attributes '返回文件对象的属性,可返回0,1,2,4,8,16,32,64,128
getfso=fso.GetFile("c:\windows\笔记本.txt").Size '返回文件对象的大小
getfso=fso.GetFile("c:\windows\笔记本.txt").Type '返回文件对象的类型
getfso=fso.GetFile("c:\windows\笔记本.txt").Path '返回文件对象的完整路径
getfso=fso.GetFile("c:\windows\笔记本.txt").ShortPath '返回文件对象的[8.3]的完整路径
getfso=fso.GetFile("c:\windows\笔记本.txt").Drive '返回此文件对象所在的驱动器
getfso=fso.GetFile("c:\windows\笔记本.txt").ParentFolder '返回文件对象所在的文件夹
getfso=fso.GetFile("c:\windows\笔记本.txt").DateCreated '返回文件对象的创建日期
getfso=fso.GetFile("c:\windows\笔记本.txt").DateLastAccessed '返回文件对象的最后访问日期
getfso=fso.GetFile("c:\windows\笔记本.txt").DateLastModified '返回文件对象的最后修改时间
fso.GetFile("c:\windows\笔记本.txt").Copy "复制到的路径和文件名",true/false
fso.GetFile("c:\windows\笔记本.txt").Delete true
fso.GetFile("c:\windows\笔记本.txt").Move "移动到的路径及自定义文件名
Set fso=Nothing '释放fso变量与FSO组件的连接资源
</script>

文件对象读写操作
<script language=vbs>
on error resume next
Set fso=CreateObject("Scripting.FileSystemObject") '使FSO组件可以被fso变量调用
set link1=fso.GetFile("c:\windows\笔记本.txt").OpenAsTextStream(1/2/8,0/-1/-2)
open1=link1.AtendOfline '判断文件指针是否以在行的末尾
open2=link1.AtendOfstream '判断文件指针是否一再文件的末尾
open3=link1.Column '返回当前字符所在文件的列号
open4=link1.Line '返回当前字符所在文件的行号
open5=link1.Read(10) '读取文件中指定数量的字符
open6=link1.ReadAll '读取文件中所有的字符
open7=link1.ReadLine '读取文件中一行中含有的字符
open8=link1.Write "字符串" '将自定字符串或字符串变量写入文件
open9=link1.WriteLine "字符" '将自定字符+一个换行符写入文件
open10=link1.WriteBlankLines 10 '将指定数量的换行符写入文件
open11=link1.Skip 10 '使文件指针跳过指定数量的字符
open12=link1.SkipLine '使文件指针跳到下一行
link1.Close '文件操作完毕,销毁文件对象指针
Set fso=Nothing '释放fso变量与FSO组件的连接资源