windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集

Windows  /  管理员 发布于 4年前   280

源址：
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位的这符
'
'------------------------------------------------