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. C#获取网页内容 (WebClient、WebBrowser和HttpWebRequest/HttpWebResponse)

    获取网页数据有很多种方式.在这里主要讲述通过WebClient.WebBrowser和HttpWebRequest/HttpWebResponse三种方式获取网页内容. 这里获取的是包括网页的所有信息 ...

  2. [妙味DOM]第三课：Event-事件详解1

    知识点总结 焦点事件 onfocus 获取焦点 onblur 失点焦点 obj.focus() 给指定元素设置焦点 obj.blur() 取消指定元素的焦点 obj.select() 选择指定元素里的 ...

  3. SLF4J 教程

    转自:SLF4J 教程 一.介绍:简单日记门面(simple logging Facade for java)SLF4J是为各种loging APIs提供一个简单统一的接口,从而使得最终用户能够在部署 ...

  4. 关于ApkTool不同版本在重新打游戏包时候的区别

    在工作中由于使用到将游戏CP提供的apk包重新反编译,然后二次签名出包,所以遇到了一个奇怪的bug. 下面是CP提供的apk包,将近358M 但是在重新编译之后,包变成了250M左右的apk包,虽然可 ...

  5. javascript 限制字符串字数换行 带BUG

    function chang(str ,len) { function lenStat(str) { function isChinese(str) { //判断是不是中文 var reCh = /[ ...

  6. linux 查看日志

    第一步 :提交自己目录文件(先到自己目录下载最新文件-->合并-->提交到临时目录temp-->在提交到master总目录-->其他关联master远 程分支的目录.就可以pu ...

  7. 二分法经典习题——HDU1969

    #include <iostream>#include <cmath>#include <iomanip>using namespace std; double p ...

  8. Linux的网卡由eth0变成了eth1，如何修复

    Linux的网卡由eth0变成了eth1,如何修复   使用wmware安装了linux,安装成功后,使用的网卡是eth0,没有eth1.但是用过一段时间后,不知道为什么eth0无法使用,系统却自动生 ...

  9. ESFramework 4.0 进阶（01）－－ 消息

    需要交互的分布式系统之间通过消息来传递有意义的信息.消息是通信框架的核心.离开了消息,再谈通信框架就没有任何意义,所以,消息是ESFramework中一个最核心的概念. 一. 消息的类别 在具体的应用 ...

  10. OMCS开发手册（04） －－ 二次开发流程

    在掌握了前面几篇关于OMCS的详细介绍后,我们就可以正式基于OMCS进行二次开发了.下面我们就从服务端和客户端的角度分别介绍开发的步骤. 一.服务端开发 抛开具体的业务逻辑而言,就OMCS的服务端的开 ...