VBS基础篇 - 对象(3) - FileSystemObject对象

简介: VBS基础篇 - 对象(3) - FileSystemObject对象     文件系统是所有操作系统最重要的部分之一,脚本经常会需要对文件及文件夹进行访问和管理,在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO),这个对象特别复杂,是vbs进行文件操作的核心。

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基础篇 - 对象(7) - TextStream对象
VBS基础篇 - 对象(7) - TextStream对象   TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对象时,我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。
1022 0
VBS基础篇 - 对象(5) - File对象
VBS基础篇 - 对象(5) - File对象   描述:提供对文件所有属性的访问,从FSO对象的GetFile方法获得。        使用File对象        要用File对象模型来编程必须先用FileSystemObject(FSO)对象的GetFile方法获取文件的句柄...
1077 0
VBS基础篇 - 对象(1) - Class对象
VBS基础篇 - 对象(1) - Class对象       相信对JAVA有一定了解的朋友一定对类这个名词不陌生,但是大家可能没有想过在VBS中使用Class类吧,其实Class类在自动化测试中是相当常用的,对于代码量增大时,类的结构化就充分体现出了它强大的优势,下面我们就来看一下类的组成部分以及一些用法。
1148 0
VBS基础篇 - 对象(6) - Folder对象
VBS基础篇 - 对象(6) - Folder对象   描述:提供对文件所有属性的访问,从FSO对象的GetFile方法获得 使用Folder对象 要用Folder对象模型来编程必须先用FSO对象的Getfolder方法获取文件的句柄   1、使用 CreateObject 方法来...
796 0
外部VBS的调用
一.QTP调用外部VBS的方法 加到QTP的Resource中 在QTP菜单中设置, 菜单FileàSettingsàResource,将要加载的VB脚本添加进来。   举例: 步骤1:在D盘下新建一个VBS文件,叫“ test.
1216 0