• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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读取文件内容的函数 
    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 返回所有本地可用驱动器的集合,用于建立资源浏览器样的用户接口。 

    使用上面的功能时,最好建立好出错处理的代码。因为如果需要的参数不存在,将会产生麻烦的信息。
    上一篇:ByVal和ByRef(编写ASP子程序所用到命令)
    下一篇:ASP连接11种数据库语法总结
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    FSO一些代码 FSO,一些,代码,FSO,一些,代码,