VBS教程：对象-FileSystemObject 对象-6ren

VBS教程：对象-FileSystemObject 对象

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS教程：对象-FileSystemObject 对象由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

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 对象的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

文章推荐： VBS教程：方法-WriteLine 方法

文章推荐： VBS教程：对象-Dictionary

文章推荐： VBS教程：对象-Drive 对象

文章推荐： VBS教程：对象-Drives 集合

vbscript - IBM PCOMM - 无法从另一个 vbs 宏中调用 vbs 宏
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
batch-file - 批处理更改了 vbs 代码，使 vbs 无法使用
该批处理更改了 vbs 代码，使其无法供 vbs 使用。我该如何解决这个问题？批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
vbscript - 从另一个 .VBS 文件创建类的实例(驻留在 B.vbs 中)
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
iis - 如何使用 cscript 和 vbs 参数从 Inno Setup 脚本调用 vbs 脚本？
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
vbs 读写注册表之系统启动项添加与删除
核心vbs代码 ? 1
vbs ping实现的两种方式
对于vbs中ping的实现可以通过两种方式： 1、调用系统ping命令； 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
vbs 自制数字益智游戏实现代码
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
vbs 复制指定文件到指定目录下
复制指定文件到指定目录下核心代码 ? 1
vbs qq自动登录脚本改进版
复制代码代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
vbs qq自动发信息增强版
运行前请确定你的电脑安装了word。复制代码代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
vbs 定时删除功能实现代码
参考代码一：复制代码代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
vbs 查找硬盘分区中指定扩展名文件的实现代码
挺实用的一段代码，用来深入学习vbs，确实不错咯。复制代码代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
vbs 多线程下载实现代码
话说还是闲来练手，初步实现了自己认为的“多线程”下载。(至于是不是多线程，可以参考12楼链接) 为避免冗余，省了一些错误检查。我觉得没多大实际用途，有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
VBS 获取外网IP的实现代码
复制代码代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
VBS 自动登录论坛的实现代码
复制代码代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
VBS 十六进制异或加密实现代码
效果图：代码都封装成函数了，方便调用：复制代码代码如下: Key = "www-enun-net" '不要用数字
VBS 提取狗狗影视中的ED2K连接的实现代码
打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图：我找到一个 19.75gb 的：点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。
VBS 添加右键计算文件MD5的实现代码
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图：使用方法： 1.先
vbs 获取当前目录的实现代码
CMD当前路径复制代码代码如下: test = createobject("Scripting.FileSystemObject").GetF
VBS For Next循环的一些细节
For Next 语句的基本结构为：复制代码代码如下: For counter = start To end [Step step] [statements] [Exit For] [st

qq735679552

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

VBS教程：对象-FileSystemObject 对象