Chikoo's Blog

方法：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