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 fso Set 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.Drives For 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 Fso Dim 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 Fso Dim 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 Fso Dim 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 fso Set 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.Drives For 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 Fso Dim 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 Fso Dim 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 Fso Dim 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 ...
随机推荐
- double hashing 双重哈希
二度哈希(rehashing / double hashing) 1.二度哈希的工作原理如下: 有一个包含多个哈希函数(H1……Hn)的集合.当我们要从哈希表中添加或获取元素时,首先使用哈希函数H1. ...
- C++线程安全的单例模式
1.在GCC4.0之后的环境下: #include <iostream> using namespace std;template <typename T>class Sing ...
- mis 系统的开发具备的条件
MIS的开发方式有自行开发.委托开发.联合开发.购买现成软件包进行二次开发几种形式.一般来说根据企业的技术力量.资源及外部环境而定. 补充: 管理信息系统的开发策略不可行的开发方法:组织结构法,机械的 ...
- 二十七、oracle 例外
一.例外分类oracle将例外分为预定义例外.非预定义例外和自定义例外三种.1).预定义例外用于处理常见的oracle错误.2).非预定义例外用于处理预定义例外不能处理的例外.3).自定义例外用于处理 ...
- wordpress建站过程5——footer.php
footer中写的就只有网站地图,公司信息等等简单东西而已: <?php wp_footer(); ?> <div class="footer"> < ...
- hadoop 2.2.0 关于map和reduce的个数的设置
关于hadoop中的map过程,我的理解是每一个map系统会开启一个JVM进程来处理,map之间相互并行,map函数内串行.这样的想法是否正确? 由于想在hadoop集群上算一个初始输入数据不多,但是 ...
- PHP学习过程_Symfony_(1)
从今天开始学习php,感兴趣的同学欢迎一块讨论学习,QQ群新群182983780; 1:配置环境变量 把这php和php5http://pan.baidu.com/s/1pKDq9tT两个文件同时c盘 ...
- HTTP Basic Authentication认证的各种语言 后台用的
访问需要HTTP Basic Authentication认证的资源的各种语言的实现 无聊想调用下嘀咕的api的时候,发现需要HTTP Basic Authentication,就看了下. 什么是HT ...
- ZOJ Martian Addition
Description In the 22nd Century, scientists have discovered intelligent residents live on the Mars. ...
- JavaScript的内置对象(Date日期+string字符串)基础语法总结
1.Date日期对象可以储存任意一个日期,并且可以精确到毫秒数(1/1000 秒). 1)定义一个时间对象 : var Udate=new Date(); //注意:使用关键字new,Date()的首 ...