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
%>

　　那下面就采用一个通用程序来灵活应变下。

　　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>

　　需要注意的是：删除并不会提示“确认要放入回收站”这项。这点你需要谨慎处理，特别是对你的系统文件夹。

　　四、fso.MoveFolder

　　主要作用是进行文件夹的移动，相当于剪切粘贴动作。

　　5，movefldr.asp

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

　　格式：fso.MoveFolder "被移动的文件夹","移动到的文件夹"

　　本程序先是在C盘下建立了cnbruce文件夹，然后将其移动到C:/Program Files/文件夹下面。

　　不过同样需要注意的是你的系统文件夹不能乱移动。

　　五、fso.CopyFolder

　　主要作用：将文件夹从某位置复制到另一位置。

　　6，copyfldr.asp

<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:/Program Files/cnbruce", "c:/"
%>
<a href="C:/">查看cnbruce文件夹有没有复制过来</a>