FSO其实是ASP中一个相当强大有组件,强大到能够访问电脑的每一个角落!
CopyFile() 复制文件
CopyFile(源文件, 目标文件, 覆盖) //复制源文件到目标文件，当覆盖值为true时，如果目标文件存在会把文件覆盖，当省略文件名时，使用源文件名，如写成fso.CopyFile "c:\autoexec.bat","d:\"
应用举例：
令 ：set fso = Server.CreateObject("Scripting.FileSystemObject")
<%fso.CopyFile "c:\autoexec.bat","d:\autoexec.bak"%>
CopyFolder() 复制目录
CopyFolder(对象目录,目标目录 ,覆盖) //复制对象目录到目标目录，当覆盖为true时，如果目标目录存在会把文件覆盖，当省略目录名时，使用源目录名，如写成fso.CopyFolder "c:\BlueShine","d:\"
应用举例：
<%fso.CopyFolder "c:\BlueShine","d:\blue-sun" %>
CreateFolder() 创建新目录
CreateFolder(目录名) //创建一个新的目录
应用举例：
<%fso.CreateFolder "c:\BlueShine" %>
CreateTextFile() 生成一个文件
CreateTextFile(文件名, 覆盖) //创建一个新的文件，如果此文件已经存在，你需要把覆盖值定为true
应用举例：
<%
fso.CreateTextFile "c:\BlueShine\BlueShine.txt"%>
DeleteFile() 删除一个文件
DeleteFile(文件名, 只读？) //删除一个文件，如果文件的属性是只读的话，你需要把只读值设为true,如果文件不存在，则报错！
应用举例：
<%if fso.fileexists("c:\BlueShine\BlueShine.txt") then
fso.DeleteFile "c:\BlueShine\BlueShine.txt"
Response.Write("删除文件成功！")
else
Response.Write("文件不存在！")
end if
%>
DeleteFolder() 删除一个目录
DeleteFolder(目录名, 只读？)//删除一个目录，如果目录的属性是只读的话，你需要把只读值设为true，如果文件不存在，则报错！
应用举例：
<%if fso.Folder.exists("c:\BlueShine") then
fso.DeleteFolder "c:\BlueShine"
Response.Write("删除目录成功！")
else
Response.Write("目录不存在！")
end if %>
DriveExists() 检验盘符是否存在
DriveExists(盘符) //检查一个盘是否存在，如果存在就返会True，不存在就返回False
应用举例：
<%if fso.DriveExists("d") then
Response.Write("D盘存在！")
else
Response.Write("D盘不存在！")
end if %>
FileExists() 检验文件是否存在
FileExists(文件名) //检查一个文件是否存在，如果存在就返会True，不存在就返回False
应用举例：
<%if fso.FileExists("d:\BlueShine.txt") then
Response.Write("BlueShine.txt文件存在！")
else
Response.Write("BlueShine.txt文件不存在！")
end if %>
FolderExists() 检验一个目录是否存在
FolderExists(目录名) //检查一个目录是否存在，如果存在就返会True，不存在就返回False
应用举例：
<%if fso.FolderExists("d:\BlueShine") then
Response.Write("BlueShine目录存在！")
else
Response.Write("BlueShine目录不存在！")
end if %>
MoveFile() 移动一个文件
MoveFile(源文件, 目标文件) //把源文件移到目标文件的位置
应用举例：
<% fso.movefile "c:\autoexec.bat","c:\ww\Blueshine.txt" '必须确定目录是存在的，省略文件名时使用原文件名%>
MoveFolder() 移动一个目录
MoveFile(源目录, 目标目录) //把源目录移到目标目录的位置
应用举例：
<% fso.MoveFolder "c:\blueshine","c:\blue-sun\ee" '必须确定目录是存在的，省略目录名时使用原目录名。%>
FSO下的folder子对象!生成方法:set fd=fso.GetFolder(路径)
属性:
1.name 返回目录的名称
2.path 返回目录的路径
3.Size 返回目录的大小
4.SubFolders.Count 返回子目录的个数
5.Files.Count 返回文件的个数
6.DateCreated 返回创建日期
应用举例:
<%set fd=fso.getFolder(Server.MapPath(".")) '生成目录对象
Response.Write(fd.name)'输出目录的名称
Response.Write(fd.path)'输出目录的路径
Response.Write("目录大小:"&fd.Size)
Response.Write("子目录个数:"&fd.SubFolders.Count)
Response.Write("文件个数:"&fd.Files.Count)
Response.Write("创建日期:"&fd.DateCreated)
%>
其下又有两个集合:
1.subfolders 返回目录下的所有子目录
运用这个子集,我们可以轻松获得目录下的所有子目录
应用举例:
<%set fd=fso.getFolder(server.mappath(".")) '生成目录对象
Response.Write(fd.path&"下所拥有的子目录")
For Each sfd In fd.subfolders '利用循环获取该目录下的所有子目录
Response.Write("<br>")
Response.Write(sfd.name) '输出子目录名
Next%>
2.files 返回目录下的所有文件
运用这个子集,我们可以轻松获得目录下的所有文件
应用举例:
<%set fd=fso.getFolder(server.mappath(".")) '生成目录对象
Response.Write(fd.path&"下所拥有的文件")
For Each sfile In fd.files '利用循环获取该目录下的所有文件
Response.Write("<br>")
Response.Write(sfile.name) '输出文件名
Next%>
FSO下的folder子对象!
生成方法:set fd=fso.GetFolder(路径)
属性:
1.name 返回目录的名称
2.path 返回目录的路径
3.Size 返回目录的大小
4.SubFolders.Count 返回子目录的个数
5.Files.Count 返回文件的个数
6.DateCreated 返回创建日期
应用举例:
<%set fd=fso.getFolder(Server.MapPath(".")) '生成目录对象
Response.Write(fd.name)'输出目录的名称
Response.Write(fd.path)'输出目录的路径
Response.Write("目录大小:"&fd.Size)
Response.Write("子目录个数:"&fd.SubFolders.Count)
Response.Write("文件个数:"&fd.Files.Count)
Response.Write("创建日期:"&fd.DateCreated)%>
其下又有两个集合:
1.subfolders 返回目录下的所有子目录
运用这个子集,我们可以轻松获得目录下的所有子目录
应用举例:
<%set fd=fso.getFolder(server.mappath(".")) '生成目录对象
Response.Write(fd.path&"下所拥有的子目录")
For Each sfd In fd.subfolders '利用循环获取该目录下的所有子目录
Response.Write("<br>")
Response.Write(sfd.name) '输出子目录名
Next%>
2.files 返回目录下的所有文件
运用这个子集,我们可以轻松获得目录下的所有文件
应用举例:
<%set fd=fso.getFolder(server.mappath(".")) '生成目录对象
Response.Write(fd.path&"下所拥有的文件")
For Each sfile In fd.files '利用循环获取该目录下的所有文件
Response.Write("<br>")
Response.Write(sfile.name) '输出文件名
Next%>
Drive子对象
生成Drive子对象的方法:set MyDrive=GetDrive("c")
属性:
1.path 返回驱动器的路径,输出格式为"C:"
2.DriveLetter 返回驱动器的盘符,输出大写
3.isReady 返回驱动器的状态,true为准备就绪,false为准备未就绪
4.DriveType 返回驱动器的类型,0: 未知;1: 可移动磁盘;2: 本地硬盘;3: 网络磁盘;4: CD-ROM;5: RAM磁盘
5.VolumeName 返回驱动器的卷标
6.FileSystem 返回驱动器的文件系统
7.FreeSpace 返回驱动器的闲置空间,单位为B
8.TotalSize 返回驱动器的总大小,单位为B
应用举例:
<%set dd=fso.GetDrive("e") '生成Drive子对象
Response.Write("路径:"&dd.path)
Response.Write("盘符:"&dd.DriveLetter)
Response.Write("磁盘类型:"&dd.DriveType)
Response.Write("是否准备就绪:"&dd.isReady)
if dd.isReady then
Response.Write("卷标:"&dd.VolumeName)
Response.Write("文件系统:"&dd.FileSystem)
Response.Write("可用空间:"&dd.FreeSpace)
Response.Write("总空间"&dd.TotalSize)
end if%>
File子对象
利用FSO的File子对象,我们可以得到关于文件的许多信息。如创建时间，最后访问时间，最后修改时间，大小等等！
下面我对文件的属性总结了一下！
属性
DateCreated 属性 获取创建时间
DateLastAccessed 属性 获取最后访问时间
DateLastModified 属性 获取最后修改时间
Drive, 属性 获取文件所在的驱动器名
Name 属性 获取文件名
ParentFolder 属性获取文件所在的目录
Path 属性 获取路径
ShortName 属性 获取短文件名
ShortPath 属性 获取短路径
Size 属性 获取文件大小
Type 属性 获取文件类型
<% Set fso =Server.CreateObject("Scripting.FileSystemObject")
set myfile=fso.getfile(server.MapPath("BlueShine.asp"))
Response.Write("<table><tr><td>")
Response.Write("创建时间:</td><td>"&myfile.DateCreated)
Response.Write("</td></tr><tr><td>")
Response.Write("最后访问时间:</td><td>"&myfile.DateLastAccessed)
Response.Write("</td></tr><tr><td>")
Response.Write("最后修改时间:</td><td>"&myfile.DateLastModified)
Response.Write("</td></tr><tr><td>")
Response.Write("文件所在的驱动器名:</td><td>"&myfile.Drive)
Response.Write("</td></tr><tr><td>")
Response.Write("文件名:</td><td>"&myfile.Name)
Response.Write("</td></tr><tr><td>")
Response.Write("文件所在的目录:</td><td>"&myfile.ParentFolder)
Response.Write("</td></tr><tr><td>")
Response.Write("文件的路径:</td><td>"&myfile.Path)
Response.Write("</td></tr><tr><td>")
Response.Write("短文件名:</td><td>"&myfile.ShortName)
Response.Write("</td></tr><tr><td>")
Response.Write("短路径:</td><td>"&myfile.ShortPath)
Response.Write("</td></tr><tr><td>")
Response.Write("文件大小:</td><td>"&myfile.Size)
Response.Write("</td></tr><tr><td>")
Response.Write("文件类型:</td><td>"&myfile.Type)
Response.Write("</td></tr></table>")
%>