Windows下使用脚本语言操作文件系统之五-file对象

with

File对象

描述

提供访问一个文件的所有属性

方法

Copy Method | Delete Method | Move Method | OpenAsTextStream Method

属性

Attributes Property | DateCreated Property | DateLastAccessed Property | DateLastModified Property | Drive Property |Name Property | ParentFolder Property | Path Property | ShortName Property | ShortPath Property | Size Property | Type Property

语法

使用FSO对象GetFile方法方法返回一个File对象，下面展示如何实例化一个文件:

[size=1em][url=]VBScript[/url]

[Shell] 纯文本查看 复制代码

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
'创建c:\testfile.txt，并写入一串字符
Set NewFile = fso.CreateTextFile("c:\testfile.txt", True)
NewFile.WriteLine("This is a test.")
NewFile.Close
'实例化testfile文件
Set MyFile = fso.GetFile("c:\testfile.txt")

file对象方法介绍

Copy 方法

描述

复制文件或文件夹

语法

object.Copy( destination[, overwrite] )

参数

object	必要参数.file对象或floder对象的名称.
destination	必要参数.指定文件文件夹复制到达的位置.不允许特殊字符.
overwrite	可选参数.是否覆盖已存在的文件或文件夹，默认值为True.

[size=1em][url=]VBScript[/url]

[Shell] 纯文本查看 复制代码

Dim fso,MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
'创建c:\testfile.txt，并写入一串字符
Set NewFile = fso.CreateTextFile("c:\testfile.txt", True)
NewFile .WriteLine("This is a test.")
NewFile .Close
'复制c:\testfile.txt内容到c:\windows\desktop\test2.txt
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Copy ("c:\windows\desktop\test2.txt")

Delete方法

描述

删除一个指定的文件或文件夹

语法

object.Delete(force)

参数

object	必要参数.file对象或floder对象的名称.
force	可选参数.删除只读文件或文件夹时为True，默认是False.

[size=1em][url=]VBScript[/url]

[Shell] 纯文本查看 复制代码

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
'创建c:\testfile.txt，并写入一串字符
Set NewFile = fso.CreateTextFile("c:\testfile.txt", True)
NewFile.WriteLine("This is a test.")
NewFile.Close
'删除testfile文件
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Delete()

Move方法

描述

把一个指定的文件或文件夹从一个地方移动到另一个地方

语法

object.Move(destination)

参数

object	必要参数.file对象或floder对象的名称.
destination	必要参数.移动文件文件夹到达的位置.不允许特殊字符.

Move方法与FileSystemObject.MoveFile或FileSystemObject.MoveFolder功能相同.

OpenAsTextStream方法

描述
打开一个特定文件返回一个TextStream对象，用来从文件读取，写入和添加信息。
语法
object.OpenAsTextStream([iomode, [format]])

参数

object	必要参数.file对象的名称.
iomode	可选参数.指定I/O模式,可以是三个常量ForReading, ForWriting, 或ForAppending.
format	可选参数.三个Tristate值之一，指定打开文件的格式，省略则以ASCII方式打开.

iomode参数可以设置为以下任何一项：

常量	值	描述
ForReading	1	只读方式打开文件，不能写入.
ForWriting	2	打开文件用来写入，如果文件重名，会覆盖靠前的那个
ForAppending	8	打开文件在末尾追加.

format参数可以设置为以下任何一项:

常量	值	描述
TristateUseDefault	-2	使用系统默认方式打开文件.
TristateTrue	-1	使用Unicode编码打开文件.
TristateFalse	0	使用ASCII编码打开文件.

OpenAsTextStream方法提供了与 FileSystemO对象OpenTextFile方法功能相同。但OpenAsTextStream方法可用来向一个文件写入。下面展示如何向一个文件中写入内容：

[size=1em][url=]VBScript[/url]

[Shell] 纯文本查看 复制代码

Dim fso,MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
'创建c:\testfile.txt，并写入一串字符
Set NewFile = fso.CreateTextFile("C:\Users\web\Desktop\test.file",True)
NewFile.WriteLine("This is a test.")
NewFile.Close
'将test.file文件实例化为一个TextStream对象，并设为写入模式
Set MyFile = fso.GetFile("C:\Users\web\Desktop\test.file")
Const ForWriting = 2
set objTextStream = MyFile.OpenAsTextStream(ForWriting)
'向文件中写入"Write into a file not txt"
objTextStream.WriteLine("Write into a file not txt")
objTextStream.Close

file对象属性介绍

ssplyh

学海无涯，回头是岸!

uf123

不知该说些什么。。。。。。就是谢谢

ab168

比我有才的都没我帅，比我帅的都没我有才！

张颢镡

俺从不写措字，但俺写通假字!

52037317

人生不能像做菜、把所有的料都准备好才下锅!

cz-sjm

没看完~~~~~~ 先顶，好同志