一、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文件夹确实已被删除。
注意，有时需要删除文件夹，而该文件夹不存在时，会出现程序逻辑性错误。则应先判断文件夹的状态。
<% dir=server.mappath("cnbruce") Set fso = CreateObject("Scripting.FileSystemObject") if (fso.FolderExists(dir)) then fso.DeleteFolder(dir) response.write("cnbruce文件夹已经删除") else fso.CreateFolder(dir) response.write("cnbruce文件夹已经建立") end if %> 内容版权声明：除非注明，否则皆为本站原创文章。 |