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
