源址：

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位的这符

‘

‘————————————————


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。