VBS基础篇 - 对象(3) - FileSystemObject对象
VBS基础篇 - 对象(3) - FileSystemObject对象
文件系统是所有操作系统最重要的部分之一，脚本经常会需要对文件及文件夹进行访问和管理，在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO)，这个对象特别复杂，是vbs进行文件操作的核心。
FSO包含的常见对象有：
|
对象/集合 |
描述 |
|
Drive |
包含储存设备的信息，包括硬盘、光驱、ram盘、网络驱动器 |
|
Drives |
提供一个物理和逻辑驱动器的列表 |
|
File |
检查和处理文件 |
|
Files |
提供包含在文件夹内的所有文件的列表 |
|
Folder |
检查和处理文件夹 |
|
Folders |
提供在 Folder 内的所有文件夹的列表 |
|
TextStream |
对象。用来读写文本文件。 |
如何使用FSO
要用FSO对象模型来编程，使用CreateObject方法来创建FileSystemObject对象，例如：
|
1
2
|
Dim fsoSet fso = wscript.createobject("scripting.filesystemobject") |
在这个示例中，Scripting 是类型库的名字，而 FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象，接下来就可以使用fso对象了。如果要释放的话也很简单，例如：
|
1
|
Set fso = nothing |
FileSystemObject对象总共一个属性即Drives
描述：获得所有可用驱动器的集合。
说明：无论是否本地磁盘、插入媒体、可移动媒体驱动器都显示在 Drives 集合中。
具体示例代码如下所示：获取本计算机上所有的磁盘的盘符
|
1
2
3
4
5
|
Set fso = CreateObject("Scripting.FileSystemObject")Set Drivers = fso.DrivesFor Each Driver in Drivers Msgbox Driver.DriveLetter '输出计算机上所有的磁盘盘符Next |
方法：(仅常用的方法)
CreateFile
描述：创建一个空文件
语法：object. CreateTextFile(strFile,blnOverWrite)
参数：strFile为文件名称
blnOverWrite为Ture强制覆盖，为False不覆盖
示例：创建文件C:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CreateTextFile创建文件,不覆盖存在的文件Fso.CreateTextFile "C:\test.txt",False'覆盖存在的文件Fso.CreateTextFile "C:\test.txt",True |
CreateFolder
描述：创建一个空的文件夹
语法：object. CreateFolder(strFolder)
参数：strFolder为想要创建的文件夹名称
示例：创建文件夹: c:\test
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MyFolder创建文件夹Fso.CreateFolder("c:\test") |
DeleteFile
描述：删除一个文件
语法：object. DeleteFile (strFile，force)
参数：strFile为想要删除的文件。组成部分中可用通配符。
force如果要删除只读文件，则该值为 True；否则为 False（默认）
示例：删除文件： c:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFile("c:\test.txt")'强制删除只读的文件Fso.DeleteFile "c:\test.txt",True |
DeleteFolder
描述：删除一个文件夹
语法：object. DeleteFolder(strFolder，force)
参数：strFolder为想要删除的文件夹名称。组成部分中可用通配符。
force如果要删除只读文件夹，则该值为 True；否则为 False（默认）
示例：删除文件夹： c:\test
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFolder("c:\test")'强制删除只读的文件Fso.DeleteFolder "c:\test",True |
FileExists
描述：判断指定文件是否存在
语法：object. FileExists (strFile)
参数：strFile为指定的文件
示例：检查文件： c:\test.txt是否存在
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FileExists判断指定文件是否存在MsgBox Fso.FileExists("c:\test.txt") |
FolderExist
描述：判断指定文件夹是否存在
语法：object. FolderExists (strFolder)
参数：strFolder为指定的文件夹
示例：检查文件夹： c:\test是否存在
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FolderExists判断指定文件夹是否存在MsgBox Fso.FolderExists("c:\test") |
CopyFile
描述：将一个或多个文件从某位置复制到另一位置
语法：object.CopyFile "source", "destination"[, overwrite]
参数：source必选项。表示指定文件的路径。组成部分中可用通配符。
destination必选项。表示目标位置路径
overwrite可选项。Boolean 值表明是否覆盖现有文件。如果是 True，则覆盖文件；如果是 False，则不覆盖现有文件。默认值是 True
示例：将 c:\test.txt文件复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:\test.txt","D:\",False'True覆盖已存在文件Fso.CopyFile "c:\test.txt","D:\",True |
示例：将 c:\下所有的txt文件复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用*.txt,可以同时将多个文件复制到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:\*.txt","D:\",False'True表示覆盖已存在文件Fso.CopyFile "c:\*.txt","D:\",True |
CopyFolder
描述：将文件夹从某位置复制到另一位置
语法：object. CopyFolder "source", "destination"[, overwrite]
参数：source必选项。表示指定文件夹的路径。组成部分中可用通配符。
destination必选项。表示目标位置的路径
overwrite可选项。Boolean 值表明是否覆盖现有文件夹。如果是 True，则覆盖文件夹；如果是 False，则不覆盖现有文件夹。默认值是 True
示例：将 c:\test文件夹复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,默认为True覆盖已存在文件Fso.CopyFolder "c:\test","D:\"'False不覆盖已存在文件Fso.CopyFolder "c:\test","D:\",False |
MoveFile
描述：将一个或多个文件从某位置移动到另一位置
语法：object.MoveFile source, destination
参数：source必选项。要移动的文件的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件移动到该目标位置。destination 参数不能包含通配符。
示例：将 c:\test文件夹移动到D:\下
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFile移动文件到另一个位置Fso.MoveFile "c:\test.txt","D:\" |
MoveFolder
描述：将一个或多个文件夹从某位置移动到另一位置
语法：object.MoveFolder source, destination
参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件夹移动到该目标位置。
示例：
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFolder移动文件夹到另一个位置Fso.MoveFolder "c:\test","D:\" |
GetExtensionName
描述：获取文件后缀名
语法：object.MoveFolder source, destination
参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件夹移动到该目标位置。
示例：获取”c:\test.txt”文件后缀名
|
1
2
3
4
5
6
7
|
Dim FsoDim GetExtensionName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetExtensionName获取文件后缀名GetExtensionName = fso.GetExtensionName("c:\test.txt")MsgBox GetExtensionName '输出txt |
GetBaseName
描述：获取文件当前所在文件夹
语法：object.GetBaseName Path
参数：Path必选项。文件路径名。
示例：获取”c:\test.txt”文件名称
|
1
2
3
4
5
6
7
|
Dim FsoDim GetBaseName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetBaseName获取文件的文件名称GetBaseName = Fso.GetBaseName("c:\test\test.txt")MsgBox GetBaseName '输出test |
GetParentFolderName
描述：将一个或多个文件夹从某位置移动到另一位置
语法：object.GetParentFolderName Path
参数：Path必选项。文件路径名。
示例：获取”c:\test.txt”文件所在的文件夹
|
1
2
3
4
5
6
7
|
Dim FsoDim GetParentFolderName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetParentFolderName获取文件当前所在的文件夹GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")MsgBox GetParentFolderName '输出c:\test |
VBS基础篇 - 对象(3) - FileSystemObject对象
文件系统是所有操作系统最重要的部分之一，脚本经常会需要对文件及文件夹进行访问和管理，在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO)，这个对象特别复杂，是vbs进行文件操作的核心。
FSO包含的常见对象有：
|
对象/集合 |
描述 |
|
Drive |
包含储存设备的信息，包括硬盘、光驱、ram盘、网络驱动器 |
|
Drives |
提供一个物理和逻辑驱动器的列表 |
|
File |
检查和处理文件 |
|
Files |
提供包含在文件夹内的所有文件的列表 |
|
Folder |
检查和处理文件夹 |
|
Folders |
提供在 Folder 内的所有文件夹的列表 |
|
TextStream |
对象。用来读写文本文件。 |
如何使用FSO
要用FSO对象模型来编程，使用CreateObject方法来创建FileSystemObject对象，例如：
|
1
2
|
Dim fsoSet fso = wscript.createobject("scripting.filesystemobject") |
在这个示例中，Scripting 是类型库的名字，而 FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象，接下来就可以使用fso对象了。如果要释放的话也很简单，例如：
|
1
|
Set fso = nothing |
FileSystemObject对象总共一个属性即Drives
描述：获得所有可用驱动器的集合。
说明：无论是否本地磁盘、插入媒体、可移动媒体驱动器都显示在 Drives 集合中。
具体示例代码如下所示：获取本计算机上所有的磁盘的盘符
|
1
2
3
4
5
|
Set fso = CreateObject("Scripting.FileSystemObject")Set Drivers = fso.DrivesFor Each Driver in Drivers Msgbox Driver.DriveLetter '输出计算机上所有的磁盘盘符Next |
方法：(仅常用的方法)
CreateFile
描述：创建一个空文件
语法：object. CreateTextFile(strFile,blnOverWrite)
参数：strFile为文件名称
blnOverWrite为Ture强制覆盖，为False不覆盖
示例：创建文件C:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CreateTextFile创建文件,不覆盖存在的文件Fso.CreateTextFile "C:\test.txt",False'覆盖存在的文件Fso.CreateTextFile "C:\test.txt",True |
CreateFolder
描述：创建一个空的文件夹
语法：object. CreateFolder(strFolder)
参数：strFolder为想要创建的文件夹名称
示例：创建文件夹: c:\test
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MyFolder创建文件夹Fso.CreateFolder("c:\test") |
DeleteFile
描述：删除一个文件
语法：object. DeleteFile (strFile，force)
参数：strFile为想要删除的文件。组成部分中可用通配符。
force如果要删除只读文件，则该值为 True；否则为 False（默认）
示例：删除文件： c:\test.txt
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFile("c:\test.txt")'强制删除只读的文件Fso.DeleteFile "c:\test.txt",True |
DeleteFolder
描述：删除一个文件夹
语法：object. DeleteFolder(strFolder，force)
参数：strFolder为想要删除的文件夹名称。组成部分中可用通配符。
force如果要删除只读文件夹，则该值为 True；否则为 False（默认）
示例：删除文件夹： c:\test
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用DeleteFile删除指定文件Fso.DeleteFolder("c:\test")'强制删除只读的文件Fso.DeleteFolder "c:\test",True |
FileExists
描述：判断指定文件是否存在
语法：object. FileExists (strFile)
参数：strFile为指定的文件
示例：检查文件： c:\test.txt是否存在
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FileExists判断指定文件是否存在MsgBox Fso.FileExists("c:\test.txt") |
FolderExist
描述：判断指定文件夹是否存在
语法：object. FolderExists (strFolder)
参数：strFolder为指定的文件夹
示例：检查文件夹： c:\test是否存在
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用FolderExists判断指定文件夹是否存在MsgBox Fso.FolderExists("c:\test") |
CopyFile
描述：将一个或多个文件从某位置复制到另一位置
语法：object.CopyFile "source", "destination"[, overwrite]
参数：source必选项。表示指定文件的路径。组成部分中可用通配符。
destination必选项。表示目标位置路径
overwrite可选项。Boolean 值表明是否覆盖现有文件。如果是 True，则覆盖文件；如果是 False，则不覆盖现有文件。默认值是 True
示例：将 c:\test.txt文件复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:\test.txt","D:\",False'True覆盖已存在文件Fso.CopyFile "c:\test.txt","D:\",True |
示例：将 c:\下所有的txt文件复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用*.txt,可以同时将多个文件复制到另一个位置,False不覆盖已存在文件Fso.CopyFile "c:\*.txt","D:\",False'True表示覆盖已存在文件Fso.CopyFile "c:\*.txt","D:\",True |
CopyFolder
描述：将文件夹从某位置复制到另一位置
语法：object. CopyFolder "source", "destination"[, overwrite]
参数：source必选项。表示指定文件夹的路径。组成部分中可用通配符。
destination必选项。表示目标位置的路径
overwrite可选项。Boolean 值表明是否覆盖现有文件夹。如果是 True，则覆盖文件夹；如果是 False，则不覆盖现有文件夹。默认值是 True
示例：将 c:\test文件夹复制到D:\下
|
1
2
3
4
5
6
7
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用CopyFile复制文件到另一个位置,默认为True覆盖已存在文件Fso.CopyFolder "c:\test","D:\"'False不覆盖已存在文件Fso.CopyFolder "c:\test","D:\",False |
MoveFile
描述：将一个或多个文件从某位置移动到另一位置
语法：object.MoveFile source, destination
参数：source必选项。要移动的文件的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件移动到该目标位置。destination 参数不能包含通配符。
示例：将 c:\test文件夹移动到D:\下
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFile移动文件到另一个位置Fso.MoveFile "c:\test.txt","D:\" |
MoveFolder
描述：将一个或多个文件夹从某位置移动到另一位置
语法：object.MoveFolder source, destination
参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件夹移动到该目标位置。
示例：
|
1
2
3
4
5
|
Dim Fso'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用MoveFolder移动文件夹到另一个位置Fso.MoveFolder "c:\test","D:\" |
GetExtensionName
描述：获取文件后缀名
语法：object.MoveFolder source, destination
参数：source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径，表示要将文件夹移动到该目标位置。
示例：获取”c:\test.txt”文件后缀名
|
1
2
3
4
5
6
7
|
Dim FsoDim GetExtensionName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetExtensionName获取文件后缀名GetExtensionName = fso.GetExtensionName("c:\test.txt")MsgBox GetExtensionName '输出txt |
GetBaseName
描述：获取文件当前所在文件夹
语法：object.GetBaseName Path
参数：Path必选项。文件路径名。
示例：获取”c:\test.txt”文件名称
|
1
2
3
4
5
6
7
|
Dim FsoDim GetBaseName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetBaseName获取文件的文件名称GetBaseName = Fso.GetBaseName("c:\test\test.txt")MsgBox GetBaseName '输出test |
GetParentFolderName
描述：将一个或多个文件夹从某位置移动到另一位置
语法：object.GetParentFolderName Path
参数：Path必选项。文件路径名。
示例：获取”c:\test.txt”文件所在的文件夹
|
1
2
3
4
5
6
7
|
Dim FsoDim GetParentFolderName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetParentFolderName获取文件当前所在的文件夹GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt")MsgBox GetParentFolderName '输出c:\test |
VBS基础篇 - 对象(3) - FileSystemObject对象的更多相关文章
- VBS基础篇 - 对象(5) - File对象
VBS基础篇 - 对象(5) - File对象 描述:提供对文件所有属性的访问,从FSO对象的GetFile方法获得. 使用File对象 要用File对象模型来编程必须先用FileS ...
- VBS基础篇 - 对象(7) - TextStream对象
VBS基础篇 - 对象(7) - TextStream对象 TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对 ...
- VBS基础篇 - 对象(6) - Folder对象
VBS基础篇 - 对象(6) - Folder对象 描述:提供对文件所有属性的访问,从FSO对象的GetFile方法获得 使用Folder对象 要用Folder对象模型来编程必须先用FSO对象的G ...
- VBS基础篇 - 对象(1) - Class对象
VBS基础篇 - 对象(1) - Class对象 相信对JAVA有一定了解的朋友一定对类这个名词不陌生,但是大家可能没有想过在VBS中使用Class类吧,其实Class类在自动化测试中是相当常用的 ...
- Python（四）基础篇之「文件对象&错误处理」
[笔记]Python(四)基础篇之「文件对象&错误处理」 2016-12-08 ZOE 编程之魅 Python Notes: ★ 如果你是第一次阅读,推荐先浏览:[重要公告]文章更新. ...
- VBS基础篇 - 循环语句(4) - For Each...Next
VBS基础篇 - 循环语句(4) - For Each...Next For Each...Next 循环与 For...Next 循环类似.For Each...Next 不是将语句运行指定的次 ...
- VBS基础篇 - 杂项 - Sendkeys
VBS基础篇 - 杂项 - Sendkeys 模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为:object.SendKeys(string) obj ...
- VBS基础篇 - 过程（sub 与 Function）
VBS基础篇 - 过程(sub 与 Function) 在VBscript中,有两种procedure:Sub procedure与Function procedure Sub过程:是包含在 Sub ...
- VBS基础篇 - 循环语句(3) - For...Next
VBS基础篇 - 循环语句(3) - For...Next 指定循环次数,使用计数器重复运行语句,语法结构如下: 1 2 3 4 5 For counter = start To end [Ste ...
随机推荐
- python demo整理
1 变量作用域 #!/usr/bin/python # coding=utf-8 name = "whole global name" class Person: name = & ...
- channel bonding
一.什么是bondingLinux bonding驱动提供了一个把多个网络接口设备捆绑为单个的网络接口设置来使用,用于网络负载均衡及网络冗余二.bonding应用方向1.网络负载均衡对于bonding ...
- if和switch的原理
在C语言中,if和switch是条件分支的重要组成部分.if的功能是计算判断条件的值,根据返回的值的不同来决定跳转到哪个部分.值为真则跳转到if语句块中,否则跳过if语句块.下面来分析一个简单的if实 ...
- 在UE4中使用SVN作为source control工具
==========预先处理 1.到这个目录下 2.鼠标在空白处 按住shift键 同时右键 会多出一个 可以打开的cmd 3.输入命令,修改红线部分. me: 登陆svn地址的用户名, URL网址: ...
- 转：apache 的mod-status
最近发现在apache的监控方面,apache 2开始自带的apache mod-status其实是个不错的工具,下面摘录并笔记之: 如果是linux的话,可以这样设置: 在httpd.conf中添加 ...
- iframe标签flash遮盖页面元素问题——wmode参数
最近做项目过程中,遇到各种小问题,所以打算通过博客园来记录各问题的解决办法. 这篇的问题背景是这样子的:项目是用的AngularJS框架,在某个页面上用了wangEditor富文本编辑器插件(gith ...
- 在Windows上安装MySQL（免安装ZIP版）
在 Windows 上安装MySQL(免安装ZIP版) 因为一些原因,重新安装了MySQL数据库,重装时习惯性使用最新版下载 此过程中发现MySQL 5.7.12 和MySQL 5.6的安装有些区别: ...
- CSU 1640 机智的刷题方式
完全背包 #include<cstdio> #include<cstring> #include<cmath> #include<algorithm> ...
- 关于requirejs中的define的原理理解
我们已经了解到模块模式是为单例创建私有变量和特权方法的. 一个最基本的例子: var foo=(function(){ var something='cool', var another=[1,2,3 ...
- 大数据时代之hadoop(四)：hadoop 分布式文件系统（HDFS)
分布式文件系统即是网络中多台计算机组合在一起提供一个统一存储及管理的系统. Hadoop提供了一个文件系统接口和多个分布式文件系统实现,其中比较重要的就是HDFS(Hadoop Distributed ...