源址：
http://www.zhouguoqing.com.cn/article.asp?id=50

' FSO 文件操作相關(guān)
' FSO 參數(shù)詳解：
' Fso.IsRootFolder=True|False  '是否為根目錄
' Fso.GetFolder    '讀取文件夾  用法：Set fldr = fso.GetFolder("C:\\目錄2")
' Fso.FolderExists=True|False  '查找此文件夾是否存在
' Fso.CreateFolder   '創(chuàng)建文件夾  用法：fso.CreateFolder("C:\\目錄1")
' Fso.GetBaseName    '返回文件夾的名字 用法：fso.GetBaseName("C:\\目錄1")
' Fso.DeleteFolder   '刪除指定的文件夾 用法：fso.DeleteFolder("C:\\目錄1")
' Fso.MoveFolder    '移動指定的文件夾 用法：fso.MoveFolder("C:\\目錄1","C:\\目錄2") 將C:\\目錄1移動到C:\\目錄2下
' Fso.CopyFolder    '復(fù)制指定的文件夾 用法：fso.CopyFolder("C:\\目錄2\\cnbruce","c:\\") 將C:\\目錄2\\cnbruce復(fù)制到C:\\下
'
' Fso.Drive    '返回驅(qū)動器的名字 返回 “D:”
' Fso.GetDriveName   '提取驅(qū)動器名 返回“d:”
' Fso.GetDrive    '提取驅(qū)動器名 返回 “D:” 常用寫法：fso.GetDrive(fso.GetDriveName(drvPath))
' 磁盤驅(qū)動器信息
' Drv.DriveLetter    '返回盤符
' Drv.VolumeName    '取得驅(qū)動器的卷標(biāo)
' Drv.TotalSize    '取得空間總大小  返回字節(jié)數(shù)，用FormatNumber(Drive.TotalSize/1024,0)格式化，返回多少G
' Drv.FreeSpace    '剩余空間大小  返回同上
' Drv.DriveType    '文件類型   0“設(shè)備無法識別” 1“軟盤驅(qū)動器” 2“硬盤驅(qū)動器” 3“網(wǎng)絡(luò)硬盤驅(qū)動器” 4“光盤驅(qū)動器” 5“RAM虛擬磁盤”
' Drv.FileSystem    '磁盤格式
' Drv.SerialNumber   '磁盤系列號
' Drv.IsReady    '是否可用
' Drv.Path    '磁盤路徑
'
' FSO文件操作
' Txt.OpenTextFile   '打開指定的文件  用法：fso.OpenTextFile(whichfile,1) 參數(shù)1：表示“ForReading：只讀，禁寫?！?nbsp;參數(shù)2：表示“ForWriting：可讀，可寫?！?nbsp;參數(shù)8：表示“ForAppending：打開文件并從文件末尾開始寫”
' Txt.ReadLine    '讀取一整行
' Txt.Read(7)    '讀取指定數(shù)量字符
' Txt.ReadAll    '讀取文本所有內(nèi)容
' Txt.CreateTextFile   '創(chuàng)建文件   用法：Set MyFile = Txt.CreateTextFile(whichfile,True) True即表示能覆蓋已有文件
' Txt.WriteLine    '向已有文件寫入內(nèi)容 用法：Txt.WriteLine("歡迎您來到本站")
' Txt.Name    '返回文件名稱
' Txt.ShortPath    '返回文件短路徑名
' Txt.Path    '返回文件物理地址
' Txt.Attributes    '返回文件屬性
'  返回值附錄：
'  Normal  0 普通文件。 沒有設(shè)置任何屬性
'  ReadOnly 1 只讀文件。 可讀寫
'  Hidden   2 隱藏文件。 可讀寫
'  System   4 系統(tǒng)文件。 可讀寫
'  Directory  16 文件夾或目錄。 只讀
'  Archive  32 上次備份后已更改的文件。 可讀寫
'  Alias   1024 鏈接或快捷方式。 只讀
'  Compressed  2048 壓縮文件。 只讀
'
' Txt.Move    '移動指定的文件  用法：Set Txt = fso.GetFile(whichfile) Txt.Move "C:\\"
' Txt.Copy    '復(fù)制指定的文件  用法：Set Txt = fso.GetFile(whichfile) Txt.Copy "D:\\"
' Txt.delete    '刪除指定的文件  用法：Set Txt = fso.GetFile("d:\\cnbruce.txt") Txt.delete
'
'
' Txt.Size    '返回文件大小
' Txt.Type    '返回文件類型
' Txt.DateCreated    '返回文件創(chuàng)建時間
' Txt.DateLastAccessed   '返回文件最近訪問時間
' Txt.DateLastModified   '返回文件最后修改時間
'
'
' 常用函數(shù)記錄
' instr     '用法：alert(instr("Abcde","A"))
' mid     '用法：alert(mid("abjdllodfjd",2,8)) 說明：顯示從第二位到第8位的這符
'
'------------------------------------------------