当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集

VBScript
用vbs检索在运行对话框中键入的一系列命令的代码
编写可以打开文本文件并打乱在该文件中所找到的单词顺序的vbs脚本
在 HTA 中暂停脚本的方法
运行脚本之前,如何确定计算机上的默认脚本宿主的代码
用vbs实现删除名称中有撇号的文件夹
用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法
用vbs实现配置无人登录计算机时使用的屏幕保护程序
用vbs更改 Internet Explorer 的标题栏
用vbs读取文本文件的最后一行
用vbs实现重新启动 Internet Explorer
用vbs实现禁用服务
用vbs确定计算机是否有 USB 2.0 端口的代码
用vbs列出注册表中 Run 项中的所有项目
用vbs将名称截断以使其最多包含 16 个字符的代码
用vbs将本地文件替换为在文件服务器上找到的新版本
用vbs确定脚本正在哪一个帐户下运行
用vbs确定可移动驱动器的连接时间
用vbs记录屏幕保护程序的开始时间和结束时间
用vbs计算某个词在日志文件中的出现次数
vbs病毒的简单例子源代码解析

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 226 ::
收藏到网摘: n/a

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