fso 使用说明

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

*****************FSO文件****************

----------显示文件列表------------
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