程序员的出路

alex.w的Blog

导航

ASP FSO详解-对文件夹的操作

Posted on 2008-10-15 15:09  alex.w  阅读(394)  评论(0)    收藏  举报
FSO针对文件夹的常用方法有7种
1. fso.GetFolder(dir): 对指定的文件夹创建一个Folder对象
2. fso.CreateFolder(dir): 创建一个指定的文件夹
3. fso.DeleteFolder (dir): 删除一个指定的文件夹
4. fso.FolderExists(dir): 如果该指定文件夹存在,返回True,否则False
5. fso.CopyFolder source,destination[,true]: 进行文件夹的复制,你可以通过通配符来进行多目录复制,同时如果目的目录已经存在,可以通过Overwrite参数设为True进行覆盖。
6. fso.MoveFolder source,Destinatio: 将指定进行移动,同样可以用通配符来移动多个文件夹
7. fso.GetParentFolderName(Path): 返回包含该路径的上一级目录名

 

fso.getFolder方法获取一个Folder对象,并可进行如下操作:

  • CopyFolder newcopy,[overwrite]: 将当前文件夹复制到新位置
  • DeleteFolder: 删除当前文件夹
  • Files: 返回所有该目录下文件的集合,不包括隐藏文件
  • IsRootFolder: 如果是根目录返回True
  • MoveFolder FolderSpecifier: 移动当前文件夹到新位置
  • Name: 返回当前目录名称
  • ParentFolder: 返回上一级目录
  • Size: 显示目前目录及子目录中所有文件大小总和
  • SubFolders: 返回这个文件夹下所有子目录的集合
  • drive: 显示该文件夹所在的驱动器号

 

fso.getFolder 的方法:
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
If fldr.IsRootFolder = True Then 
Response.Write "该文件夹是一根文件夹" & "<br>"
Else
Response.Write "该文件夹不是根文件夹" & "<br>"
End If
Response.Write "驱动器名字是:" & fldr.Drive & "<br>"  
Response.Write "目录名字是:" & fldr.Name & "<br>" 
Response.Write "目录大小总计:" & fldr.Size & "<br>"  
for each files in fldr.files ‘遍历该目录下所有文件
response.write files&”<br>”
next
for each forders in fldr.subfolders ‘遍历该目录下所有子目录
response.write forders&”<br>”
next
%>

 

fso.createFolder 的方法:
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\blues")
Response.Write "文件夹名为" & fso.GetBaseName("c:\blues")  ‘fso.GetBaseName提取文件夹名
%>

 

Fso.deleteFolder 的方法:
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\blues")
Response.Write "文件夹已删除"
%>
需要注意的是:删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理,特别是对你的系统文件夹。

 

Fso.folderExists 的方法:
<%
dir=server.mappath("blues")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(dir)) then
fso.DeleteFolder(dir)
response.write("blues文件夹已经删除")
else
fso.CreateFolder(dir)
response.write("blues文件夹已经建立")
end if
%>

 

Fso.moveFolder 的方法:
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\blues")
fso.MoveFolder "c:\blues", "C:\Program Files\"
%>
<a href="C:\Program Files\">查看blues文件夹有没有移动过来</a>