關於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