FSO操作文件系统

【编者按】：网学网asp为您提供FSO操作文件系统参考，解决您在FSO操作文件系统学习中工作中的难题，参考学习。

实现功能：
文件(夹)目录列表 提供了查阅目录下面的文件和文件夹
文件 写,创,删 提供了编辑,删除文件(文件夹)的操作
创建文件夹/文件 针对创建文件夹(文件)而设置.
上传文件 您可以模拟FTP上传,文件大小,类型不受限制.

有兴趣的自己体验，出现任何问题我均不承担任何后果，在此说，我没多少时间上网，经常也顾不过来，是看到最近经常有人问这方面的问题，就发上来，希望有所帮助。

upfso.asp //控制上传的文件
复制代码 代码如下:
<!--#include file="upload.asp" -->
<%''On Error Resume Next%>
<STYLE type="text/css"> @import url("admin.css");</STYLE>
<%
Server.ScriptTimeOut = 999
''up_filetype="RAR,ZIP,SWF,JPG,PNG,GIF,DOC,TXT,CHM,PDF,ACE,JPG,MP3,WMA,WMV,bmp"
IF Request.QueryString("yes")="upload" Then
path=Trim(request("path"))
''response.write(path&"---")
''response.End
Dim FSO,FSOIsOK,F_FileName,mode
F_FileName=Trim(request("nn"))
mode =killint(Trim(request("mode")),0,0,2)
FSOIsOK=1
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If Err<>0 Then
Err.Clear
FSOIsOK=0
End If
Dim D_Name,F_Name
If FSOIsOK=1 Then
If InStr(1,path,":\")=0 Then
path=Replace(Lcase(path),"\","/")
path = server.mappath(path)
path=Replace(path&"/","//","/")
Else
path=Replace(Lcase(path),"/","\")
path=Replace(path&"\","\\","\")
End If
if not fso.folderexists(path) Then
response.write "<a href=""javascript:history.back()""><font color=''#000080''>基本路径查找失败,返回</font></a>"

response.End
End If
End If
Set FSO=Nothing
Dim FileUP
Set FileUP=New Upload_File
FileUP.GetDate(-1)
Dim F_FileType, F_File
Set F_File=FileUP.File("File")
If Len(F_FileName)<2 Then F_FileName = F_File.FileName
If Len(F_FileName)<2 Then
response.write("<a href=''javascript:history.go(-1);''><font color=''#000080''>空文件,请返回</font></a>")
response.End
End If
''F_FileType = Ucase(F_File.FileExt)
''IF F_File.FileSize > 90000 Then
'' Response.Write("<a href=''javascript:history.go(-1);''>大小超过限制</a>")
''exit sub
IF IsvalidFileName(F_FileName) = False Then
Response.Write("<a href=''javascript:history.go(-1);''><font color=''#000080''>名称有误</font></a>")
Else
Dim FileIsExists
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
FileIsExists=FSO.FileExists(path&F_FileName)
If FileIsExists=True And mode<>1 Then
fso.deletefile(path&F_FileName)
Response.Write("<font color=''#000080''>文件已经存在,