19
2008
08

FSO所有的方法列表及部分使用说明

方法:BuildPath
语法:对象名.BulidPath(路径,文件名)
说明:在路径上添加文件名,如果有需要的话,会自动加上分隔符。

方法:CopyFile
语法:对象名.CopyFile(源路径,目标路径[,是否覆盖])
说明:将一个或多个文件从源位置复制到目标位置。源位置支持通配符,如果目标路径最后字符为则认为目标路径是目录,是否覆盖参数默认值为TURE,如果目标位置文件已经存在,而是否覆盖属性设置为FALSE的话会出错。(关于是否覆盖参数的说明其它各处皆同)

方法:CopyFolder
语法:对象名.CopyFolder(源路径,目标路径[,是否覆盖])
说明:将一个文件夹从源位置复制到目标位置。

方法:CreateFolder
语法:对象名.CreateFolder(文件夹名)
说明:创建一个文件夹。

方法:CreateTextFile
语法:对象名.CreateTextFile(文件名[,是否覆盖[,是否为Unicode编码]])
说明:创建指定的文件,并返回TextStream对象,该对象可用于读或写创建的文件。

方法:DeleteFile
语法:对象名.DeleteFile(文件名[,是否删除只读文件])
说明:删除指定文件,可以使用通配符,如果是否删除只读文件参数设置为TURE,则即便为只读属性也会被删除,默认值为FALSE。

方法:DeleteFolder
语法:对象名.DeleteFolder(目录名[,是否删除只读文件夹])
说明:删除指定文件夹,可以使用通配符,如果是否删除只读文件夹参数设置为TURE,则即便为只读属性也会被删除,默认值为FALSE。

方法:DriveExists
语法:对象名.DriveExists(驱动器名)
说明:如果指定的驱动器存在,则返回TURE,否则返回FLASH。

方法:FileExists
语法:对象名.FileExists(文件名)
说明:如果指定的文件存在,则返回TURE,否则返回FLASH。

方法:FolderExists
语法:对象名.FolderExists(文件夹名)
说明:如果指定的文件夹存在,则返回TURE,否则返回FLASH。

方法:GetAbsolutePathname
语法:对象名.GetAbsolutePathname(路径)
说明:从提供的路中返回完整且含义明确的路径,支持通配符。

方法:GetBaseName
语法:对象名.GetBaseName(路径)
说明:返回一个字符串,该字符串包含路径,最后一个部分的基本名,无扩展名。

方法:GetDrive
语法:对象名.GetDrive(驱动器名)
说明:返回与指定驱动器相对应的Drive对象。

方法:GetDriveName
语法:对象名.GetDriveName(路径)
说明:返回一个包含指定路径中驱动器名的字符串。

方法:GetExtensionName
语法:对象名.GetExtensionName(路径)
说明:返回一个字符串,包含路径最后一个组成部分的扩展名。

方法:GetFile
语法:对象名.GetFile(文件路径)
说明:返回一个与指定路径中某文件相应的FILE对象。

方法:GetFileName
语法:对象名.GetFileName(文件路径)
说明:返回路径中的文件名。

方法:GetFolder
语法:对象名.GetFolder(文件夹路径)
说明:返回一个与指定的路径中某文件夹相应的Folder对象。

方法:GetParentFolderName
语法:对象名.GetParentFolderName(文件夹路径)
说明:返回一个字符串,该字符串包含指定的路径中最后一个组成部分的你文件夹。

方法:GetSpecialFolder
语法:对象名.GetSpecialFolder(参数)
说明:返回一个与特定的WINDOWS文件夹相对应的FOLDER对象。参数的允许值是0(WindowsFolder)1(SystemFolder)2(TemporaryFolder)。

方法:GetTempName
语法:对象名.GetTempName()
说明:返回随机生成的临时文件或文件夹的名称,用于执行要求临时文件或文件夹的操作。

方法:MoveFile
语法:对象名.MoveFile(源路径,目标路径)
说明:将一个或多个文件从某位置移动到另一个位置,支持通配符。

方法:MoveFolder
语法:对象名.MoveFolder(源路径,目标路径)
说明:将一个或多个文件夹从某位置移动到另一个位置,支持通配符。

方法:OpenTextFile
语法:对象名.OpenTextFile(文件名[,访问类型[,是否创建不存在的文件[,文件读写格式]]])
说明:打开一个文件,并且返回一个与其相关的TextStream对象,访问类型参数可以是ForReading(1 默认)、ForWriting(2)、ForAppending(8),当是否创建不存在的文件参数值为TRUE时会创建不存在的文件,默认值为FALSE,文件读写格式允许值是:0 (默认,按照ASCII格式打开)、-1(按照UNICODE格式打开)、-2(用系统默认格式打开)。

================================================

FSO方法使用说明
Set fso = Server.CreateObject("Scripting.FileSystemObject")


----------显示文件列表------------
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next

----------文件扩展名------------
fso.GetExtensionName(filename)

----------文件是否存在------------
fso.FileExists(FileName)
‘返回;True 或 False

----------文件删除------------
fso.deleteFile(FileName)

----------文件复制------------
Set MyFile = fso.GetFile(源文件)
MyFile.Copy 目标文件

----------文件移动------------
fso.MoveFile 源文件,目标文件或路径

----------文件属性------------
Set f = fso.GetFile(FileName)
select Case f.attributes
Case 0 Str="普通文件。没有设置任何属性。 "
Case 1 Str="只读文件。可读写。 "
Case 2 Str="隐藏文件。可读写。 "
Case 4 Str="系统文件。可读写。 "
Case 16 Str="文件夹或目录。只读。 "
Case 32 Str="上次备份后已更改的文件。可读写。 "
Case 1024 Str="链接或快捷方式。只读。 "
Case 2048 Str=" 压缩文件。只读。"
End select

f.Datecreated '// -----创建时间
f.DateLastAccessed '//-----上次访问时间
f.DateLastModified '//-----上次修改时间
f.Path '//-----文件路径
f.Name '//-----文件名称
f.Type '//-----文件类型
f.Size '//-----文件大小,单位字节
f.ParentFolder '//父目录



----------文件操作------------
Const ForReading = 1, ForWriting = 2 , ForAppending = 8

'读文本文件
Set f = fso.OpenTextFile(FileName, ForReading)
str = f.ReadLine '//-----读一行
str = f.ReadAll '//-----读全文
str = f.Read(n) '//-----读取指定数量的字符

'创建文件
fso.CreateTextFile (FileName, True) '----True:覆盖已有文件


'写文本文件
'//-----文件进行写操作
Set f = fso.OpenTextFile(FileName, ForWriting, True)
'Set f = fso.OpenTextFile(FileName, ForWriting)
f.Write TextStr
f.WriteLine TextStr '相当于f.Write TextStr&vbcrlf,在TextStr后加一个回车换行
f.Close
'//-----文件末尾进行写操作
Set f = fso.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close

'删除文件
Set f = fso.GetFile(FileName)
f.Delete


----------FSO目录----------

Set f = fso.createFolder(FolderName) '//-----创建文件夹
fso.deleteFolder (Folderspec) '//-----删除文件夹
fso.CopyFolder SourceFolder,DestinationFolder '//-----复制文件夹
fso.MoveFolder SourcePath, DestinationPath '//-----移动文件夹
fso.FolderExists(fldr) '//-----判断目录是否存在

'目录创建时信息
Set f = fso.GetFolder(FolderName)
f.Datecreated '// 1 -----创建时间
f.DateLastAccessed '// 2 -----上次访问时间
f.DateLastModified '// 3 -----上次修改时间
f.Path '// 4 -----文件路径
f.Name '// 5 -----文件名称
f.Type '// 6 -----文件类型
f.Size '// 7 -----文件大小
f.ParentFolder '// 8 -----父目录


'显示目录列表
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next

« 上一篇 下一篇 »

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。