VBS基础篇 - 对象(5) - File对象

 

描述：提供对文件所有属性的访问，从FSO对象的GetFile方法获得。

使用File对象

       要用File对象模型来编程必须先用FileSystemObject(FSO)对象的GetFile方法获取文件的句柄

1、使用 CreateObject 方法来创建 FileSystemObject 对象

2、使用GetFile方法获取文件的句柄

3、在创建的File对象上使用适当的方法

4、访问对象的属性

方法：(仅常用的方法)

　　Copy方法

描述：将指定的文件从某位置复制到另一位置。

语法：object.Copy(destination[, overwrite])

参数：object,必选项。应为 File对象的名称。

destination,必选项。复制文件的目标位置。不允许使用通配符。

overwrite,可选项。Boolean值。如果覆盖现有文件，则为True（默认），否则为 False。

示例：复制c:\testfile.txt这个文件到D盘　　

1
2
3
4
5
6
7
8
Dim Fso,MyFile
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Copy方法，将指定的文件复制到指定的存在的位置
MyFile.Copy("D:\") '覆盖存在的文件
MyFile.Copy "D:\",False '不覆盖存在的文件

　　Delete方法

描述：删除指定的文件

语法：object.Delete force

参数：object必选项。应为 File对象的名称。

force可选项。Boolean 值。如果要删除的文件的属性设置为只读属性，则该值为 True；否则为 False（默认）。

示例：删除c:\testfile.txt这个文件　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Delete方法，删除指定的文件
MyFile.Delete
'True 删除只读文件
MyFile.Delete True

　　Move方法

描述：将指定的文件从某位置移动到另一位置。

语法：object.Move(destination)

参数：object必选项。应为 File对象的名称。

destination必选项。目标位置。表示要将文件移动到该位置。不允许使用通配符。

示例：移动c:\testfile.txt到d盘　　

1
2
3
4
5
6
7
8
Dim Fso,MyFile
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Move方法，移动指定的文件
MyFile.Move("D:\")
属性：(仅常用的属性)

Attributes

       描述：设置或返回文件的属性，可读写或只读（与属性有关）

       语法：object.Attributes [= newattributes]

       参数：object 必选项。应为 File 或 Folder 对象的名称

newattributes可选项。如果指定参数，则 newattributes 为指定的 object 的属性的新值。

               newattributes 参数可为下列设置之一或下列设置的合理组合：

Normal 0 普通文件。没有设置任何属性。

ReadOnly 1 只读文件。可读写。

Hidden 2 隐藏文件。可读写。

System 4 系统文件。可读写。

Directory 16 文件夹或目录。只读。

Archive 32 上次备份后已更改的文件。可读写。

Alias 1024 链接或快捷方式。只读。

Compressed 2048 压缩文件。只读。

       说明：忽略对只读属性（别名，压缩或目录）所作的改变。当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.

       示例：获取c:\test.txt的属性，设置c:\test.txt的属性为只读并显示出来　　

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fso,MyFile
Dim Attributes
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'Attributes属相，获取文件属性
Attributes = MyFile.Attributes
Msgbox Attributes
'设置c:\test.txt的属性为只读并显示出来
MyFile.Attributes = 1
Attributes = MyFile.Attributes
Msgbox Attributes 

　　DateCreated

       描述：返回指定的文件或文件夹的创建日期和时间

       语法：object.DateCreated

       参数：object 应为 File 或 Folder 对象的名称

       示例：显示c:\test.txt的创建时间　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim DateCreated
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateCreated属性，获取文件创建的时间
DateCreated = MyFile.DateCreated
MsgBox DateCreated

　　DateLastAccessed

       描述：返回指定的文件或文件夹的上次访问日期和时间

       语法：object. DateLastAccessed

       参数：object 应为 File 或 Folder 对象的名称

       示例：显示c:\test.txt的上次访问时间　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim DateLastAccessed
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateLastAccessed属性，获取文件上一次访问的时间
DateLastAccessed = MyFile.DateLastAccessed
MsgBox DateLastAccessed

　　DateLastModified

       描述：返回指定的文件或文件夹的上次修改日期和时间

       语法：object. DateLastModified

       参数：object 应为 File 或 Folder 对象的名称

       示例：显示c:\test.txt的创建时间　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim DateLastModified
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'DateLastModified属性，获取文件上一次修改的时间
DateLastModified = MyFile.DateLastModified
MsgBox DateLastModified

　　Name

       描述：设置或返回指定的文件或文件夹的名称，可读写

       语法：object. Name [= newname]

       参数：object必选项。应为 File 或 Folder 对象的名称

newname可选项。如果提供此参数，则指定的 object 名称更新为 newname

       示例：显示c:\test.txt的名字，且修改文件名再显示文件名　　

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fso,MyFile
Dim name
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'name属性，获取文件名称
name = MyFile.name
MsgBox name
'修改文件名
MyFile.name = "test1.txt"
name = MyFile.name
MsgBox name

　　ParentFolder

       描述：返回指定文件或文件夹的父文件夹

       语法：object.ParentFolder

       参数：object 应为 File 或 Folder 对象的名称

       示例：显示c:\test.txt所在文件夹名称　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim parentfolder
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("c:\test.txt")
'parentfolder属性，获取文件父文件夹
parentfolder = MyFile.parentfolder
MsgBox parentfolder

　　 ShortName

       描述：返回按照早期 8.3 文件命名约定转换的短文件名

       语法：object.ShortName

       参数：object 应为 File 或 Folder 对象的名称

       示例：获取” C:\Program Files\Internet Explorer\JSProfilerCore.dll”的ShortName　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim ShortName
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
'ShortName属性，获取文件的ShortName
ShortName = MyFile.ShortName
MsgBox ShortName

　　ShortPath

       描述：返回按照 8.3 命名约定转换的短路径名

       语法：object. ShortPath

       参数：object 应为 File 或 Folder 对象的名称

       示例：获取” C:\Program Files\Internet Explorer\JSProfilerCore.dll”的ShortPath　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim ShortPath
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("C:\Program Files\Internet Explorer\JSProfilerCore.dll")
'ShortPath属性，获取文件的ShortPath
ShortPath = MyFile.ShortPath
MsgBox ShortPath

　　Size

       描述：返回指定文件的字节数

       语法：object. Size

       参数：object 应为 File 或 Folder 对象的名称

       示例：获取C:\test.txt文件大小　　

1
2
3
4
5
6
7
8
9
10
Dim Fso,MyFile
Dim size
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("C:\test.txt")
'size属性，获取文件的大小
size = MyFile.Size
size = size/1024&"KB"
MsgBox size

　　Type

       描述：返回文件或文件夹的类型信息

       语法：object. Type

       参数：object 应为 File 或 Folder 对象的名称。

       示例：获取C:\test.txt的文件类型　　

1
2
3
4
5
6
7
8
9
Dim Fso,MyFile
Dim MyType
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'使用GetFile方法获取文件的句柄
Set MyFile = Fso.GetFile("C:\test.txt")
'Type属性，获取文件的类型
MyType = MyFile.Type
MsgBox MyType  

VBS基础篇 - 对象(5) - File对象的更多相关文章

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

    VBS基础篇 - 对象(3) - FileSystemObject对象   文件系统是所有操作系统最重要的部分之一,脚本经常会需要对文件及文件夹进行访问和管理,在Vbs中对桌面和文件系统进行访问的顶级 ...

  2. VBS基础篇 - 对象(6) - Folder对象

    VBS基础篇 - 对象(6) - Folder对象   描述:提供对文件所有属性的访问,从FSO对象的GetFile方法获得 使用Folder对象 要用Folder对象模型来编程必须先用FSO对象的G ...

  3. VBS基础篇 - 对象(1) - Class对象

    VBS基础篇 - 对象(1) - Class对象   相信对JAVA有一定了解的朋友一定对类这个名词不陌生,但是大家可能没有想过在VBS中使用Class类吧,其实Class类在自动化测试中是相当常用的 ...

  4. VBS基础篇 - 对象(7) - TextStream对象

    VBS基础篇 - 对象(7) - TextStream对象   TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对 ...

  5. Python（四）基础篇之「文件对象&错误处理」

    [笔记]Python(四)基础篇之「文件对象&错误处理」 2016-12-08 ZOE    编程之魅  Python Notes: ★ 如果你是第一次阅读,推荐先浏览:[重要公告]文章更新. ...

  6. VBS基础篇 - 循环语句(4) - For Each...Next

    VBS基础篇 - 循环语句(4) - For Each...Next   For Each...Next 循环与 For...Next 循环类似.For Each...Next 不是将语句运行指定的次 ...

  7. VBS基础篇 - 杂项 - Sendkeys

    VBS基础篇 - 杂项 - Sendkeys   模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为:object.SendKeys(string) obj ...

  8. VBS基础篇 - 过程（sub 与 Function）

    VBS基础篇 - 过程(sub 与 Function) 在VBscript中,有两种procedure:Sub procedure与Function procedure Sub过程:是包含在 Sub  ...

  9. VBS基础篇 - 循环语句(3) - For...Next

    VBS基础篇 - 循环语句(3) - For...Next   指定循环次数,使用计数器重复运行语句,语法结构如下: 1 2 3 4 5 For counter = start To end [Ste ...

随机推荐

  1. OGC 的WCS WFS 及WMS 服务

    OGC--Open Geospatial Consortium--开放地理信息联盟,是一个非盈利的志愿的国际标准化组织,引领着空间地理信息标准及定位基本服务的发展目前在空间数据互操作领域,基于公共接口 ...

  2. Leetcode - 186 Reverse Words in a String II

    题目: Given an input string, reverse the string word by word. A word is defined as a sequence of non-s ...

  3. android教学大纲

    android班 教学大纲 个小时 次课:Android开发环境搭建及工具介绍 Android系统简介 Android开发环境简介及搭建 AndroidStudio提供的工具组件 次课:第一个Andr ...

  4. inception cenOS 安装

    inception手册http://mysql-inception.github.io/inception-document/install/ 执行命令sh inception_build.sh,ce ...

  5. myeclipse2014安装aptana3.4.0插件

    1.下载aptana3.4.0_eclipse的zip包  http://pan.baidu.com/s/1qXOiZl6 2.打开myeclipse2014,选择help→install from ...

  6. 虚拟机Q&A

    Q1:虚拟机运行一段时间后,各个版本的第一台虚拟机容量变大,增大容量可以接受 原因:不详 解决方法:用备份镜像替换当前镜像 1.1G Jun 24 17:07 win7_sp1_32_0.qcow2 ...

  7. Java参数传递问题

    参考资料:http://blog.sina.com.cn/s/blog_59ca2c2a0100qhjx.html   http://blog.csdn.net/a412588063/article/ ...

  8. HomeBrew 安装 PHP7.1（开发笔记）

    HomeBrew 安装 PHP7.1 $ brew update $ brew tap homebrew/dupes $ brew tap homebrew/php $ brew update $ b ...

  9. 给图片使用border-radius 图片会变成圆的。

  10. Dubbo.xml配置源-Dubbo.xsd分析

      我们使用Dubbo时,一般都会使用xml配置基本信息,如项目名称(application).注册中心(register).协议(protocal).服务(service),如下所示: 1 2 3 ...