客家人客家网 FSO组件操作实例技巧--天南地北客家人客家人的网上家园 | hakka 客家论坛客家网站山歌在线客家新闻客家风情客家聊天室免费电影软件下载中心客家算命源码编程技术

操作完驱动器，接着就是来操作文件夹了。其中包括：提取文件夹信息、创建文件夹、删除文件夹、复制文件夹、移动文件夹等。下面就具体来看。
　　一、fso.GetFolder
　　一看就明白，是提取文件夹了。那具体是提取哪个文件夹呢？后面肯定要跟一个文件夹的路径。提取出来了再来显示该文件夹相关信息呢？是不是有要具体提取下去。所以，看程序：
　　1，getfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夹名字是：" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "该文件夹是一根文件夹" & "<br>"
Else
Response.Write "该文件夹不是根文件夹" & "<br>"
End If
Response.Write "驱动器名字是：" & fldr.Drive & "<br>"%>
　　首先建立FSO组件的连接是必不可少的啦，然后Set fldr = fso.GetFolder("c:\Program Files")设定fldr对象被赋值，以作下面程序的引用。
　　fldr.IsRootFolder即为判断该文件夹是否为一根文件夹，值为布尔值（true or false）；fldr.Drive则显示该文件夹所在的驱动器号了。
　　二、fso.CreateFolder
　　下面比较让人激动的是通过ASP建立文件夹了，你可以在你的权力范围内任意位置建立任意文件夹。
　　2，creatfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
Response.Write "文件夹名为" & fso.GetBaseName("c:\cnbruce")%>
　　执行程序，应该发现C盘多出了cnbruce文件夹，fso.GetBaseName则是提取文件夹名。
　　三、fso.DeleteFolder
　　通过ASP可以建立了文件夹，则同样可以删除文件夹。
　　3，delfldr.asp

<%Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\cnbruce")
Response.Write "文件夹已删除"%>
　　发现刚建立的cnbruce文件夹确实已被删除。
　
　　那下面就采用一个通用程序来灵活应变下。
　　4，mainflr.asp

<%Sub CreateAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(file)
response.write "已经建立了"&file
End Sub
Sub DeleteAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(file)
response.write "已经删除了"&file
End Sub%>
<%subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname<>"" then
if create<>"" then
  call CreateAFolder(""&create&"")
  end if
   if del<>"" then
    call DeleteAFolder(""&del&"")
   end if
end if%>
<form action="mainflr.asp" method="post">
<input name="create">
<input type="submit" value="建立" name="submit">
</form>
<hr>
<form action="mainflr.asp" method="post"><input name="del">
<input type="submit" value="删除" name="submit">
</form>
　　需要注意的是：删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理，特别是对你的系统文件夹。

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 下一页