摘要： <%= Mid (request.ServerVariables("Script_Name"),InStrRev (request.ServerVariables("Script_Name"), "/")+1) %><%Set sysFSO = Server.CreateObject("Scripting.FileSystemObject") Set sysFolder = sysFSO.GetFolder(Server.MapPath("./")) Set sysFiles 阅读全文

摘要： 使用fso获取文件夹列表 <% function WriteChildFolderNames(folderPath) dim fso, fd set fso = Server.CreateObject("Scripting.FileSystemObject") set fd = fso.GetFolder(folderPath) Response.Write "<br>目录 " & folderPath & " 下的子目录：<hr>" for each item in fd.SubFold 阅读全文

摘要： 方法或者属性 描述 BuildPath() 生成一个文件路径 CopyFile() 复制文件 CopyFolder() 复制目录 CreateFolder() 创建新目录 CreateTextFile() 生成一个文件 DeleteFile() 删除一个文件 DeleteFolder() 删除一个目录 DriveExists() 检验盘符是否存在 Drives 返回盘符的集合 FileExists() 检验文件是否存在 FolderExists 检验一个目录是否存在 GetAbsolutePathName() 取得一个文件的绝对路径 GetBaseName() 取得文件名 GetDrive(. 阅读全文

摘要： <% '获取几级文件夹或文件名称 arr=Split(Request.ServerVariables("SCRIPT_NAME"),"/") wenjianjia_name=arr(2) response.Write(wenjianjia_name&"<br />") '文件所在文件夹名称 cur_URL = Server.MapPath(".") arr_curURL = split(cur_URL,"\") len_arr = ubound(arr_ 阅读全文

摘要： 实例一：写入文件 语法 object.CreateTextFile([要建立的文件],[如存在，是否替代]) <% Set fs =Server.CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(server.MapPath("ss.txt"), True) ’a = fs.CreateTextFile("e:\web\testfile.txt", True) a.WriteLine("我的文件写入") a.Close ’ 阅读全文