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. CreateProcess函数诡异的表现

    场景:程序A使用CreateProcess函数去启动另一个程序(.exe)文件,在绝大部分情况下是可以成功启动的,但是在某些电脑上无效. 因为这“某些电脑”实在不好找,终于有一天借到一台这样的电脑. ...

  2. mysql 报错：java.lang.OutOfMemoryError: Java heap space

    原因:mysql会将查询到的记录全部发送到java端保存,而JVM中如果98%的时间是用于GC,且可用的Heap size 不足2%的时候将抛出此异常信息.JVM堆的设置是指java程序运行过程中JV ...

  3. sql 各种格式

    --以2013-12-10 12:56:55为例--convert(nvarchar(10),CreateDate,120)      =>      2013-12-10--DATEPART( ...

  4. android studio的lib和jniLibs

    在android studio 中添加jar和so时,将jar文件直接拷贝到 项目目录\app\libs下即可,将so文件按照平台分类目录放到 项目目录\app\src\main\jniLibs\平台 ...

  5. 人人公益模式系统开发app

    人人公益模式系统开发app(微or电 158.1500.1390 小凡团队)人人公益系统开发,人人公益系统模式定制,人人公益系统开发模式,人人公益平台开发系统,人人公益APP系统开发. 深圳人人优益网 ...

  6. Entitlements (授权机制) 延伸

    授权机制 (Entitlements) 到目前为止,我们都假设所有的证书起到的作用都是一样的,并且假设如果我们有了一个有效的证书代码签名也就相应的有效.然而这当然不是唯一的规则.操作系统有许多标准来检 ...

  7. Android:View颤抖的动画效果代码

    public void propertyValuesHolderDown(final View view) { PropertyValuesHolder pvhX = PropertyValuesHo ...

  8. 谷歌Dremel即时数据分析解决方案

    Hadoop技术已经无处不在.不管是好是坏,Hadoop已经成为大数据的代名词.短短几年间,Hadoop从一种边缘技术成为事实上的标准.看来,不仅现在Hadoop是企业大数据的标准,而且在未来,它的地 ...

  9. 网络最大流最短增广路Dinic算法模板

    #include<cstdio> #include<cstring> #include<string> #include<cmath> #include ...

  10. 关于闭包与for循环的理解

    function createFunction1(){ for(var i=0;i<5;i++){ function s(){ console.log(i); } s(); } } create ...