VBScript文件操作对象FileSystemObject大全

基本运算

  + 数字加法及字符串连接

  - 数字减法

  * 数字乘法

  / 数字除法

  Mod 求余数

  \ 求商数

  & 字符串连接

  ^ 次方

  = 相等

  <> 不相等

  >= 大于或等于

  > 大于

  <= 小于或等于

  < 小于

  Not 非

  And 且

  Or 或

  Xor 异或

  循环及决策

  if....then 若...则...

  if...then...else若...则...非

  elseif... 非若

  selectcase... 群组选择条件

  end select

  for... next 计数循环

  while...wend 条件循环(一)

  dowhile...loop 条件循环(二)

  do...loopwhile 条件循环(三)

  dountil...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操作全集        

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

<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组件的连接资源