关于FSO的代码，分享出来

转自--->大大IT__歇脚处--霍健伟

都是高人

 

才子收藏的一些关于FSO的代码，分享出来
如见到好的代码会陆续增加

比较多人问过的问题，动态include文件

程序代码

'利用FSO动态调用文件
Function include(filename)
    Dim re,Content,FSO,F,aspStart,aspEnd
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set F = FSO.OpenTextFile(Server.MapPath(filename))
    Content = F.ReadAll
    F.Close
    Set = Nothing
    Set FSO = Nothing
    Set re = New RegExp
    re.pattern = "/s*="
    aspEnd = 1
    aspStart = inStr(aspEnd,content,"<%")+2
    Do While aspStart>aspEnd+1
        Response.Write Mid(content,aspEnd,aspStart-aspEnd-2)
        aspEnd=inStr(aspStart,content,"%/>")+2
        Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
        aspStart=inStr(aspEnd,content,"<%")+2
    Loop
    Response.Write Mid(content,aspEnd)
    Set re = Nothing
End Function

删除文件

程序代码

'删除文件
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

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","世界","明天是一个好天去")

使用FSO读取文件内容的函数

程序代码

'使用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读取文件某一行的函数

程序代码

'使用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

读文件最后一行的函数

程序代码

'读文件最后一行的函数
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 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 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

复制某目录下所有文件至指定目录

程序代码

'复制某目录下所有文件至指定目录
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cur_Folder = fso.getfolder(Server.MapPath(SourcePath)) ''源文件夹
Distination_Path="c:/test"
Set sub_files = Cur_Folder.files
for each each_file in sub_files
    sub_file_path=each_file.name
    fso.CopyFile Server.MapPath(SourcePath)&"/"&sub_file_path,Distination_Path&"/"&sub_file_path,True
Next