VBS下FileSystemObject对象的用法-创新互联
这篇文章主要介绍“VBS下FileSystemObject对象的用法”,在日常操作中,相信很多人在VBS下FileSystemObject对象的用法问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”VBS下FileSystemObject对象的用法”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!
创新互联公司自2013年创立以来,先为纳溪等服务建站,纳溪等地企业,进行企业商务咨询服务。为纳溪企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。FileSystemObject 对象
提供对计算机文件系统的访问。
说明
以下代码举例说明如何使用 FileSystemObject 对象返回一个 TextStream 对象,此对象可以被读取或写入:
Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\testfile.txt", True) MyFile.WriteLine("This is a test.") MyFile.Close
以前代码中,CreateObject 函数返回 FileSystemObject 对象 (fso)。CreateTextFile 方法创建一个文件作为 TextStream 对象 (a),然后 WriteLine 方法在此文件中写入一行文本。最后 Close 方法刷新缓冲区并关闭文件。
以下是对FileSystemObject 对象的详细解释
文件系统是所有操作系统最重要的部分之一,脚本经常会需要对文件及文件夹进行访问和管理,在Vbs中对桌面和文件系统进行访问的顶级对象是FileSystemObject(FSO),这个对象特别复杂,是vbs进行文件操作的核心。
FSO包含的常见对象有:
对象/集合 | 描述 |
Drive | 包含储存设备的信息,包括硬盘、光驱、ram盘、网络驱动器 |
Drives | 提供一个物理和逻辑驱动器的列表 |
File | 检查和处理文件 |
Files | 提供包含在文件夹内的所有文件的列表 |
Folder | 检查和处理文件夹 |
Folders | 提供在 Folder 内的所有文件夹的列表 |
TextStream | 对象。用来读写文本文件。 |
如何使用FSO
要用FSO对象模型来编程,使用CreateObject方法来创建FileSystemObject对象,例如:
Dim fso
Set fso = wscript.createobject("scripting.filesystemobject")
在这个示例中,Scripting 是类型库的名字,而 FileSystemObject 则是想要创建的对象的名字。至此我们获取了fso对象,接下来就可以使用fso对象了。如果要释放的话也很简单,例如:
Set fso = nothing
FileSystemObject对象总共一个属性即Drives
描述:获得所有可用驱动器的集合。
说明:无论是否本地磁盘、插入媒体、可移动媒体驱动器都显示在 Drives 集合中。
具体示例代码如下所示:获取本计算机上所有的磁盘的盘符
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
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
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
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
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是否存在
Dim Fso '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用FileExists判断指定文件是否存在 MsgBox Fso.FileExists("c:\test.txt")
FolderExist
描述:判断指定文件夹是否存在
语法:object. FolderExists (strFolder)
参数:strFolder为指定的文件夹
示例:检查文件夹: c:\test是否存在
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:\下
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:\下
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:\下
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:\下
Dim Fso '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用MoveFile移动文件到另一个位置 Fso.MoveFile "c:\test.txt","D:\"
MoveFolder
描述:将一个或多个文件夹从某位置移动到另一位置
语法:object.MoveFolder source, destination
参数:source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径,表示要将文件夹移动到该目标位置。
示例:
Dim Fso '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用MoveFolder移动文件夹到另一个位置 Fso.MoveFolder "c:\test","D:\"
GetExtensionName
描述:获取文件后缀名
语法:object.MoveFolder source, destination
参数:source必选项。要移动的文件夹的路径。组成部分中可用通配符。
destination必选项。指定路径,表示要将文件夹移动到该目标位置。
示例:获取”c:\test.txt”文件后缀名
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”文件名称
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”文件所在的文件夹
Dim Fso Dim GetParentFolderName '创建FileSystemObject对象 Set Fso = CreateObject("Scripting.FileSystemObject") '使用GetParentFolderName获取文件当前所在的文件夹 GetParentFolderName = Fso.GetParentFolderName("c:\test\test.txt") MsgBox GetParentFolderName '输出c:\test
到此,关于“VBS下FileSystemObject对象的用法”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!
网站标题:VBS下FileSystemObject对象的用法-创新互联
URL网址:http://pwwzsj.com/article/hiigc.html