FSO操作文件夹的各种实例代码
Dim Fso
Set Fso = Server.CreateObject("Scripting.FileSystemObject")

设置文件属性:
Set Fso = Createobject("Scripting.FileSystemObject")
Set File = Fso.GetFile("c:\a.txt")
File.Attributes = 0
读取属性: Response.Write File.Attributes
可选的。规定文件或文件夹的属性值。
可采用下列值之一或者下列值的组合:
0 = 普通文件。没有设置任何属性。
1 = 只读文件。可读写。
2 = 隐藏文件。可读写。
4 = 系统文件。可读写。
16 = 文件夹或目录。只读。
32 = 上次备份后已更改的文件。可读写。
1024 = 链接或快捷方式。只读。
2048 = 压缩文件。只读。

Fso 参数详解:
Fso.IsRootFolder=True|False    '是否为根目录
Fso.GetFolder    '读取文件夹用法:Set fldr = fso.GetFolder("c:\\Program Files")
Fso.FolderExists=True|False    '查找此文件夹是否存在
Fso.CreateFolder    '创建文件夹用法:fso.CreateFolder("c:\\cnbruce")
Fso.GetBaseName    '返回文件夹的名字用法:fso.GetBaseName("c:\\cnbruce")
Fso.DeleteFolder    '删除指定的文件夹用法:fso.DeleteFolder("c:\\cnbruce")'加上True,强制删除只读属性的文件夹
Fso.MoveFolder    '移动指定的文件夹用法:fso.MoveFolder("c:\\cnbruce","C:\\Program Files") 将c:\\cnbruce移动到C:\\Program Files下
Fso.CopyFolder    '复制指定的文件夹用法:fso.CopyFolder("c:\\Program Files\\cnbruce","c:\\") 将c:\\Program Files\\cnbruce复制到C:\\下
FSO.MoveFile "a.txt","b.txt" '移动"a.txt"为"b.txt"
FSO.CopyFile "a.txt","b.txt" '复制"a.txt"为"b.txt"
Fso.Drive    '返回驱动器的名字 返回 "D:"
Fso.GetDriveName    '提取驱动器名 返回"d:"
Fso.GetDrive    '提取驱动器名 返回 "D:"   常用写法:fso.GetDrive(fso.GetDriveName(drvPath))
FSO.DeleteFile  '删除文件:FSO.DeleteFile Server.MapPath("\newfile.asp"),True
FSO.FileExists '判断文件是否存在:If FSO.FileExists(Server.MapPath("\newfile.asp")) Then


磁盘驱动器信息
Drv.DriveLetter    '返回盘符
Drv.VolumeName    '取得驱动器的卷标
Drv.TotalSize    '取得空间总大小返回字节数,用FormatNumber(Drive.TotalSize/1024,0)格式化,返回多少G
Drv.FreeSpace    '剩余空间大小返回同上
Drv.DriveType    '文件类型0"设备无法识别" 1"软盘驱动器" 2"硬盘驱动器" 3"网络硬盘驱动器" 4"光盘驱动器" 5"RAM虚拟磁盘"
Drv.FileSystem    '磁盘格式
Drv.SerialNumber    '磁盘系列号
Drv.IsReady    '是否可用
Drv.Path    '磁盘路径

Fso文件操作:
Txt.OpenTextFile    '打开指定的文件用法:fso.OpenTextFile(whichfile,1)
                     参数1:只读,ForReading:只读,禁写。
                     参数2:覆盖,ForWriting:可读,可写。
                     参数8:追加,ForAppending:打开文件并从文件末尾开始写
Txt.ReadLine    '读取一整行
Txt.Read(7)    '读取指定数量字符
Txt.ReadAll    '读取文本所有内容
Txt.CreateTextFile    '创建文件用法:Set MyFile = Txt.CreateTextFile(whichfile,True) True即表示能覆盖已有文件
Txt.WriteLine    '向已有文件写入内容用法:Txt.WriteLine("欢迎您来到本站")
Txt.Name    '返回文件名称
Txt.ShortPath    '返回文件短路径名
Txt.Path    '返回文件物理地址
Txt.Attributes    '返回文件属性

返回值附录:
Normal  0 普通文件  没有设置任何属性
ReadOnly 1 只读文件  可读写
Hidden  2 隐藏文件  可读写
System  4 系统文件  可读写
Directory 16 文件夹或目录  只读
Archive  32 上次备份后已更改的文件 可读写
Alias  1024 链接或快捷方式  只读
Compressed 2048 压缩文件  只读

Txt.Move    '移动指定的文件用法:Set Txt = fso.GetFile(whichfile) Txt.Move "C:\\"
Txt.Copy    '复制指定的文件用法:Set Txt = fso.GetFile(whichfile) Txt.Copy "D:\\"
Txt.delete    '删除指定的文件用法:Set Txt = fso.GetFile("d:\\cnbruce.txt")   Txt.delete'加上True,强制删除只读属性的文件
Txt.Size    '返回文件大小
Txt.Type    '返回文件类型
Txt.DateCreated    '返回文件创建时间
Txt.DateLastAccessed    '返回文件最近访问时间
Txt.DateLastModified    '返回文件最后修改时间