首页 / ASP / FSO一些代码

FSO一些代码

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了FSO一些代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含6945字，纯文字阅读大概需要10分钟。

内容图文

使用FSO修改文件特定内容的函数
function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

使用FSO读取文件内容的函数
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function

使用FSO读取文件某一行的函数
function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
FSOlinedit = temparray(lineNum-1)
end if
end if
end function

使用FSO写文件某一行的函数
function FSOlinewrite(filename,lineNum,Linecontent)
if linenum < 1 then exit function
dim fso,f,temparray,tempCnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
temparray = split(tempcnt,chr(13)&chr(10))
if lineNum>ubound(temparray)+1 then
exit function
else
temparray(lineNum-1) = lineContent
end if
tempcnt = join(temparray,chr(13)&chr(10))
set f = fso.createtextfile(server.mappath(filename),true)
f.write tempcnt
end if
f.close
set f = nothing
end function

使用FSO添加文件新行的函数
function FSOappline(filename,Linecontent)
dim fso,f
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),8,1)
f.write chr(13)&chr(10)&Linecontent
f.close
set f = nothing
end function

读文件最后一行的函数
function FSOlastline(filename)
dim fso,f,temparray,tempcnt
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then exit function
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
f.close
set f = nothing
temparray = split(tempcnt,chr(13)&chr(10))
FSOlastline = temparray(ubound(temparray))
end if
end function

FSO替换指定文件的字符
程序代码：

'FSO替换指定文件的字符
Function FSOLineEdit(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function
'Response.Write FSOLineEdit("test.txt","世界","明天是一个好天去")

删除文件
程序代码：

'删除文件
Function DelFile(Filename)
If Filename <> "" Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Filename) Then
FSO.DeleteFile Filename
End If
Set FSO = Nothing
End If
End Function

判断文件是否存在
程序代码：

'判断文件是否存在
Function ReportFileStatus(filespec)
Dim FSO,msg
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(filespec)) Then
msg = filespec & " exists."
Else
msg = filespec & " doesn't exist."
End If
ReportFileStatus = msg
End Function

使用FSO修改文件特定内容的函数
程序代码：

'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData = Replace(FiletempData,Target,String)
Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write FiletempData
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
End Function

使用FSO写文件某一行的函数
程序代码：

'使用FSO写文件某一行的函数
Function FSOlinewrite(filename,lineNum,Linecontent)
If linenum < 1 Then Exit Function
Dim FSO,f,temparray,tempCnt
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(Server.MapPath(filename)) Then Exit Function
Set f = FSO.OpenTextFile(Server.MapPath(filename),1)
If Not f.AtEndofStream Then
tempcnt = f.ReadAll
f.Close
temparray = Split(tempcnt,Chr(13)&Chr(10))
If lineNum>UBound(temparray)+1 Then
Exit Function
Else
temparray(lineNum-1) = lineContent
End If
tempcnt = jo& #105;n(temparray,Chr(13)&Chr(10))
Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true)
f.Write tempcnt
End If
f.Close
Set f = Nothing
End Function

建立目录的程序，如果有多级目录，则一级一级的创建
程序代码：
'建立目录的程序，如果有多级目录，则一级一级的创建
Function CreateDIR(ByVal LocalPath)
On Error Resume Next
LocalPath = Replace(LocalPath,"\","/")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = UBound(patharr)
For i = 0 to path_level
If i=0 Then pathtmp=patharr(0) & "/" Else pathtmp = pathtmp & patharr(i) & "/"
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath
Next
Set FileObject = Nothing
If Err.Number <> 0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function

下面列举一下这些不常用但是却非常酷的功能：
很少被了解的FSO功能
GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])　
GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时
GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。
比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"
GetExtensionName Method 返回路径中最后部分的扩展名
(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt)
GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹
(比如：FSO.GetParentFolder ("c:docsmydocs") 将返回'docs')
Drives Property 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。

使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。

内容总结

以上是互联网集市为您收集整理的FSO一些代码全部内容，希望文章能够帮你解决FSO一些代码所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/385287.html

来源：【匿名】

【上一篇】Object对象的一些的隐藏函数介绍【下一篇】ASP知识讲座四

更多 ►

【FSO一些代码】教程文章相关的互联网学习教程文章

asp.net实现的计算网页下载速度的代码

复制代码代码如下:private void getSpeed() { //链接开始时间 DateTime stime = DateTime.Now; //文件 string url = "http://xxx.com/images/test.jpg "; WebRequest myRequest = WebRequest.Create(url); //链接成功 WebResponse myReponse = myRequest.GetResponse(); //取得文件的大小　字节单位 int ii = int.Parse(myRepons...

asp.net 多文件上传，兼容IE6/7/8，提供完整代码下载【图】

最终效果如下：现贴出核心代码如下： aspx里的代码：复制代码代码如下:<div style="text-align: center"> <div style="width: 200px;"> <input type="file" size="50" name="File" /> <span id="upload"></span> <br /> <input type="button" name="button" value="添加文件" onclick="addInput()"> <input type="button" name="button" value="删除文件" onclick="deleteInput()"> </div> <div style="margin: 10px 0 10px 0;wi...

简单高效的asp.net目录树源代码【代码】

前台页面：<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="Tree._Default"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"><title>目录树</title><script type="text/javascript" language="javascript" src="MzTreeView10.js"></script...

asp.net直接Response输出WML页面示例代码

复制代码代码如下:protected void Page_Load(object sender, EventArgs e) { Response.ContentType = "text/vnd.wap.wml"; StringBuilder builder = new StringBuilder(); builder.AppendLine("<?xml version=\"1.0\" encoding=\"UTF-8\" ?>"); builder.AppendLine("<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">"); builder.AppendLine("<wml>"); builder.AppendLine("<he...

ASP.NET MVC 排球计分程序（六）HomeController代码和一些解释【代码】

Index Action方法（默认进入的主页）public ActionResult Index(){return View();}AddPerson Action方法（单击主页提交将交到AddPerson里来处理数据，并将队员名字插入数据库） public ActionResult AddPerson(){//获取填入的衣服编号和名字并将其写入数据库//编号idA1 nameA1 SqlHelper.ClearBiaoRen();//插入B的idB1 nameB1..int numsA = 1;//将十二个队员全部插入数据库总共有十二个文本框执行<=12次的循环 ...

asp.net中使用cookie与md5加密实现记住密码功能的实现代码

在做一个前台的登陆和后台的信息审核管理功能时，需要用到记住密码的模块：虽然.net内置了登陆控件，有记住密码的功能，但还是想自己实践一下，以下代码主要应用了COOKIE，包括安全加密的过程等。复制代码代码如下://设置，删除Cookie//provider jb51.net protected void set_cookie() { HttpCookie UserNameCookie = Request.Cookies["UserNameCookie"]; HttpCookie UserPasswordCookie = R...

分享一个ASP.NET开发中经常碰到的小问题，修改好的js代码保存生成后，在运行调试时却还是修改前的代码

记得刚开始学ASP.NET的时候就遇到过这个问题，各种无语，明明本地代码改了，保存生成了N遍，甚至重开VS，清浏览器缓存，都没用，调试起来就还是修改之前的js代码，上网查了半天也没查到解释，倒是有人提同样的问题，但是没人能给出答案。于是那段时间很悲剧的只能每次出现这个问题，就重新建一个Web项目，把代码粘过去...后来我尝试了下把VS升级到了2013，之后似乎就没出现过这个问题了，于是就以为就是VS2010的bug。最近到了一家新...

asp.ne去除html的函数代码

复制代码代码如下:/// <summary> /// 过滤字符串中的html代码 /// </summary> /// <param name="Str"></param> /// <returns>返回过滤之后的字符串</returns> public static string LostHTML(string Str) { string Re_Str = ""; if (Str != null) { if (Str != string.Empty) { string Pattern = "<\\/*[^<>]*>"; Re_Str = Regex.Replace(Str, Pattern, ""); } } return (Re_Str.Replace("\\r\\n", "")).Replace("\\r", ""); } 原...

Asp.net Core的代码移植技巧，半天将SqlSugarORM转成Core【代码】【图】

.net core中有哪些被抛弃的类 1、DataTable DataRow SqlDataAdapter DataRow DataColumn DataColumn虽然这些类不是我ORM核心功能，但是为了保证非Core版本的ORM和Core的语法要一致方便以后升级于是我就有了一个想法将他们复活，打造一个小巧的DataTable，让更多的老程可以方便的移植到Core。///<summary>/// 作者：sunkaixuan /// 创建时间：2016/7/31/// 修改时间：-/// 说明：让.netCore支持DataTable///</summary>publicclass ...

asp也玩三层架构(有源代码)【代码】

实体类<% Class UserInfoPrivate mintIdPublic Property Let UserId(intUserId)mintId = intUserIdEnd Property Public Property Get UserId()UserId=mintIdEnd PropertyPrivate mstrNamePublic Property Let UserName(strName)mstrName = strNameEnd PropertyPublic Property Get UserName()UserName = mstrNameEnd PropertyPrivate mintAgePublic Property Let UserAge(intAge)mintAge=intAgeEnd PropertyPublic Property Get Us...

Aspose Cells 控件如何实现数据过滤（附代码和下载地址）【图】

Aspose Cells 是一款操作和处理以及转换Excel文件的类库，支持.NET和JAVA版，几乎所有Excel能实现的功能，Aspose Cells都可以实现，在Excel中经常会用到数据过滤，通过过滤规则，以达到想要显示的结果，一般过滤都是根据设置的条件，通常是文本、数字或者日期。Aspose Cells控件下载地址：http://www.componentcn.com/kongjianchanpin/yonghujiemian/biaogekongjian/2014-09-16/174.html下面咱们首先介绍，在Excel里是怎么实现数据...

Asp.Net平台下的图片在线裁剪功能的实现代码(源码打包)

1.前台展现实现网上找到这个jquery.Jcrop,稍看了下,发现它提供的效果完全能满足项目需求. 官方网址:http://deepliquid.com/content/Jcrop.html,感兴趣的朋友可去看看. 页面先引用相关样式和脚本: 复制代码代码如下:<link href="Styles/jquery.Jcrop.css" rel="stylesheet" type="text/css" /> <script src="Scripts/jquery-1.4.1.js" type="text/javascript"></script> <script src="Scripts/jquery.Jcrop.js" type="text/javasc...

asp.net ajax 检测用户名是否可用代码

原文 asp.net ajax 检测用户名是否可用代码.net ajax 检测用户名是否可用代码<script type="text/网页特效" src="css教程/jquery-1.3.2.js"></script> <script type="text/javascript"> function judgeusername() { $.ajax({ type:"get", url:"ajaxuserinfomodify.aspx", datatype:"html", data:"username="+$("#txtname").val(), beforesend:function(xmlhttprequest) { $("#showresult").text("正在查询"); //pause(this,100000...

JQuery EasyUI弹出对话框解决Asp.net服务器控件无法执行后台代码的方法【代码】【图】

jquery-easyui是一个基于jquery的图形界面插件，利用easyui可以创建很多好看的网页界面效果，easyui的相关地址是：http://jquery-easyui.wikidot.com/； easyui的中文文档地址是：http://www.easyui.net/，本人也利用easeyUI在做一些页面效果。由于我很喜欢那种弹出的对话框界面，因此在界面中应用了Dialog类来处理一些确认的信息，但在利用中发现，弹出的对话框，不能再继续执行asp.net按钮的后台响应代码。界面如下所示。操作是在...

解密ASP源代码

从网上兴致冲冲地下载了ASP源代码,准备学习研究的时候.一打开文件,天书般的加密代码.很让人郁闷吧 :( 在网上是找到了解密的方法,得一个文件挨一个文件地打开,复制,粘贴,解密,再复制,再粘贴,再保存......如果一个ASP程序有几百个文件??? 解决办法来了..复制代码代码如下:<% @Language="JavaScript" %> <% /* *--------------- decode.asp ----------------- * 功能:遍历某个目录下的所有文件,对加密过的.asp文件 * 进行解密...

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

首页 / ASP / FSO一些代码

FSO一些代码

内容导读

内容图文

内容总结

内容备注

内容手机端

【FSO一些代码】教程文章相关的互联网学习教程文章

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程