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. 阿里云-对象储存OSS

    最近 需要搞一个阿里云的文件上传 手机端主要做了图片上传 pod安装:pod 'AliyunOSSiOS', '~> 2.5.2' 主要就是需要四个参数:accessKey secretKey  ...

  2. 常用python处理try except异常的三种方式

    如果你在写python程序时遇到异常后想进行如下处理的话,一般用try来处理异常,假设有下面的一段程序: try:     语句1     语句2     .     .     语句N except ...

  3. 属性动画(Property Animation)

    属性动画系统是一个强大的可以绘制任意事物.你可以定义改变物体属性的动画,不管它是不是在屏幕上.属性动画随着时间的推移去改变物体的属性.如果要让某个事物动起来,你只需指定该事物的某个属性,如物体的坐标. ...

  4. [转] Android root 原理

    欢迎转载,转载请注明出处:http://www.cnblogs.com/lanrenxinxin/p/5572640.html 0x00 关于root linux和类Unix系统的最初设计都是针对多用 ...

  5. Intellij IDEA下导出Java工程的可运行JAR包

    Intellij IDEA下导出Java工程的可运行JAR包 昨天一直向导出一个Java工程的可运行JAR包,然后查阅网上的资料以及自己一遍一遍的尝试,均以失败告终.可以导出JAR包,但是导出的JAR ...

  6. （一）html之基本结构

    一:HTML基本结构 1.1 HTML文档结构 1.1.1 外层结构 <!DOCTYPE HTML> <html> </html> DOCTYPE元素用于告诉浏览器 ...

  7. html中 iframe子页面 与父页面之间的方法调用 ;

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...

  8. CodeForces 702E Analysis of Pathes in Functional Graph

    倍增预处理. 先看一下这张图的结构,因为出度都是$1$,所以路径是唯一的,又因为每个点都有出度,所以必然有环,也就是一直可以走下去. 接下来我们需要记录一些值便于询问: 设$t[i][j]$表示从$i ...

  9. String类之endsWith方法--->检测该字符串以xx为结尾

    endsWith(XX)方法是java内置类String类的一个内置方法,我们直接拿来用即可了,下边是api说明:检测该字符串以xx为结尾,结果返回布尔值 public class Demo { pu ...

  10. Firebug入门指南

    据说,对于网页开发人员来说,Firebug是Firefox浏览器中最好的插件之一. 我最近就在学习怎么使用Firebug,网上找到一篇针对初学者的教程,感觉比较有用,就翻译了出来. ========= ...