源址：
http://www.zhouguoqing.com.cn/article.asp?id=50
' FSO 文件操作相关
' FSO 参数详解：
' Fso.IsRootFolder=True|False '是否为根目录
' Fso.GetFolder '读取文件夹 用法：Set fldr = fso.GetFolder("C:\\目录2")
' Fso.FolderExists=True|False '查找此文件夹是否存在
' Fso.CreateFolder '创建文件夹 用法：fso.CreateFolder("C:\\目录1")
' Fso.GetBaseName '返回文件夹的名字 用法：fso.GetBaseName("C:\\目录1")
' Fso.DeleteFolder '删除指定的文件夹 用法：fso.DeleteFolder("C:\\目录1")
' Fso.MoveFolder '移动指定的文件夹 用法：fso.MoveFolder("C:\\目录1","C:\\目录2") 将C:\\目录1移动到C:\\目录2下
' Fso.CopyFolder '复制指定的文件夹 用法：fso.CopyFolder("C:\\目录2\\cnbruce","c:\\") 将C:\\目录2\\cnbruce复制到C:\\下
'
' Fso.Drive '返回驱动器的名字 返回 “D:”
' Fso.GetDriveName '提取驱动器名 返回“d:”
' Fso.GetDrive '提取驱动器名 返回 “D:” 常用写法：fso.GetDrive(fso.GetDriveName(drvPath))
' 磁盘驱动器信息
' Drv.DriveLetter '返回盘符
' Drv.VolumeName '取得驱动器的卷标
' Drv.TotalSize '取得空间总大小 返回字节数，用FormatNumber(Drive.TotalSize/1024,0)格式化，返回多少G
' Drv.FreeSpace '剩余空间大小 返回同上
' Drv.DriveType '文件类型 0“设备无法识别” 1“软盘驱动器” 2“硬盘驱动器” 3“网络硬盘驱动器” 4“光盘驱动器” 5“RAM虚拟磁盘”
' Drv.FileSystem '磁盘格式
' Drv.SerialNumber '磁盘系列号
' Drv.IsReady '是否可用
' Drv.Path '磁盘路径
'
' FSO文件操作
' Txt.OpenTextFile '打开指定的文件 用法：fso.OpenTextFile(whichfile,1) 参数1：表示“ForReading：只读，禁写。” 参数2：表示“ForWriting：可读，可写。” 参数8：表示“ForAppending：打开文件并从文件末尾开始写”
' Txt.ReadLine '读取一整行
' Txt.Read(7) '读取指定数量字符
' Txt.ReadAll '读取文本所有内容
' Txt.CreateTextFile '创建文件 用法：Set MyFile = Txt.CreateTextFile(whichfile,True) True即表示能覆盖已有文件
' Txt.WriteLine '向已有文件写入内容 用法：Txt.WriteLine("欢迎您来到本站")
' Txt.Name '返回文件名称
' Txt.ShortPath '返回文件短路径名
' Txt.Path '返回文件物理地址
' Txt.Attributes '返回文件属性
' 返回值附录：
' Normal 0 普通文件。 没有设置任何属性
' ReadOnly 1 只读文件。 可读写
' Hidden 2 隐藏文件。 可读写
' System 4 系统文件。 可读写
' Directory 16 文件夹或目录。 只读
' Archive 32 上次备份后已更改的文件。 可读写
' Alias 1024 链接或快捷方式。 只读
' Compressed 2048 压缩文件。 只读
'
' Txt.Move '移动指定的文件 用法：Set Txt = fso.GetFile(whichfile) Txt.Move "C:\\"
' Txt.Copy '复制指定的文件 用法：Set Txt = fso.GetFile(whichfile) Txt.Copy "D:\\"
' Txt.delete '删除指定的文件 用法：Set Txt = fso.GetFile("d:\\cnbruce.txt") Txt.delete
'
'
' Txt.Size '返回文件大小
' Txt.Type '返回文件类型
' Txt.DateCreated '返回文件创建时间
' Txt.DateLastAccessed '返回文件最近访问时间
' Txt.DateLastModified '返回文件最后修改时间
'
'
' 常用函数记录
' instr '用法：alert(instr("Abcde","A"))
' mid '用法：alert(mid("abjdllodfjd",2,8)) 说明：显示从第二位到第8位的这符
'
'------------------------------------------------
|
|
转播
