FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便。 （请注意后面的常用函数）

复制代码FSO文件（File）对象属性

DateCreated 返回该文件夹的创建日期和时间
DateLastAccessed 返回最后一次访问该文件的日期和时间
DateLastModified 返回最后一次修改该文件的日期和时间
Drive 返回该文件所在的驱动器的Drive对象
Name 设定或返回文件的名字
ParentFolder 返回该文件的父文件夹的Folder对象
Path 返回文件的绝对路径，可使用长文件名
ShortName 返回DOS风格的8.3形式的文件名
ShortPath 返回DOS风格的8.3形式的文件绝对路径
Size 返回该文件的大小（字节）Type 如果可能，返回一个文件类型的说明字符串
FSO文件（File）对象方法
FSO文件对象方法 用途
CopyFile 拷贝一个或者多个文件到新路径
CreateTextFile 创建文件并且返回一个TextStream对象
DeleteFile 删除一个文件
OpenTextFile 打开文件并且返回TextStream对象，以便读取或者追加

重命名文件：

Function reName(sourceName, destName)
    Dim oFso, oFile
    Set oFso = Server.CreateObject("Scripting.FileSystemObject")
    Set oFile = oFso.getFile(Server.mappath(sourceName))
    oFile.Name = destName
    Set oFso = Nothing
    Set oFile = Nothing
End Function

删除文件：

Function FSOdel(fileName)
    Dim fso, f
    Set fso = server.CreateObject("scripting.filesystemobject")
    f = server.MapPath(fileName)
    If fso.FileExists(f) Then
        fso.DeleteFile f, True
    End If    
    Set f = Nothing
    Set fso = Nothing
End Function

替换文件中的字符串:

Function FSOreplace(fileName, Target, repString)
    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, repString)
    Set objCountFile = objFSO.CreateTextFile(Server.MapPath(fileName), True)
    objCountFile.Write FiletempData
    objCountFile.Close
    Set objCountFile = Nothing
    Set objFSO = Nothing
End Function

ASP代码：

<%
'*******************************************************
'函数名：CreateFolder(sPath)
'作 用: 创建目录
'参 数：sPath : 创建的相对目录路径
'返回值：成功 true , 失败 false
'*******************************************************
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
Function CreateFolder(sPath)
    On Error Resume Next

    Dim fso, arrFolder, Folder, i, j

    If sPath = "" Then
        CreateFolder = False
        Exit Function
    End If

    If Left(sPath, 1) = "/" Then
        Folder = "/"
        sPath = Mid(sPath, 2, Len(sPath))
    Else
        Folder = "./"
    End If

    If Right(sPath, 1) = "/" Then sPath = Left(sPath, Len(sPath) - 1)

    arrFolder = Split(sPath, "/")

    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFolder)
        If i = 0 Then
            Folder = Folder & arrFolder(i) & "/"
        Else
            Folder = Folder & arrFolder(i) & "/"
        End If

        If fso.FolderExists(Server.MapPath(Folder)) = False Then
            response.write Server.MapPath(Folder)
            fso.CreateFolder (Server.MapPath(Folder))
        End If

    Next
    Set fso = Nothing

    If Err.Number <> 0 Then
        Err.clear()
        CreateFolder = False
    Else
        CreateFolder = True
    End If
End Function


Function getFile(paramFilePath)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath), 1, False, -2)
    getFile = Fso_Read.readall
    Set Fso_Read = Nothing
    Set fso = Nothing
End Function

'*******************************************************
'函数名：CreateFile(paramFileContent,paramFilePath)
'作 用: 创建文件
'参 数：paramFileContent '文件的内容
' paramFilePath '文件名(不包括路径)
'返回值：成功 true , 失败 false
'*******************************************************
Function CreateFile(paramFileContent, paramFilePath)
    On Error Resume Next
    Dim fso, fWrite

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set fWrite = fso.CreateTextFile(Server.MapPath(paramFilePath), True)

    fWrite.write paramFileContent
    fWrite.close()
    Set fWrite = Nothing
    Set fso = Nothing

    If Err.Number <> 0 Then
        Err.clear()
        CreateFile = False
    Else
        CreateFile = True
    End If
End Function

'*******************************************************
'函数名：DelFile(FilePath)
'作 用: 删除文件
'参 数：FilePath '文件路径 多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
    On Error Resume Next
    Dim fso, arrFile, i

    If GetSafeStr(FilePath, "") = "" Then
        CreateFolder = False
        Exit Function
    End If

    arrFile = Split(FilePath, "|")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFile)
        FilePath = arrFile(i)
        If fso.FileExists(Server.MapPath(FilePath)) Then
            fso.DeleteFile Server.MapPath(FilePath)
        End If
    Next
    Set fso = Nothing

    If Err Then
        Err.clear()
        DelFile = False
    Else
        DelFile = True
    End If
End Function

'*******************************************************
'函数名：DelFolder(FolderPath)
'作 用: 删除目录
'参 数：FolderPath '目录路径 '多个目录用"|"分隔
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFolder(FolderPath)
    On Error Resume Next
    Dim fso, arrFolder, i

    If GetSafeStr(FolderPath, "") = "" Then
        DelFolder = False
        Exit Function
    End If

    arrFolder = Split(FolderPath, "|")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFolder)
        FolderPath = arrFolder(i)
        If fso.FolderExists(Server.MapPath(FolderPath)) Then
            fso.deleteFolder Server.MapPath(FolderPath)
        End If
    Next

    If Err Then
        Err.clear()
        DelFolder = False
        'ShowError "删除目录失败",""
    Else
        DelFolder = True
    End If
End Function


'*******************************************************
'函数名：IsExistFile(FilePath)
'作 用: 判断文件或目录是否存在
'参 数：FilePath '文件路径 多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function IsExistFile(FilePath)
    On Error Resume Next
    Dim fso, arrFile, i

    If GetSafeStr(FilePath, "") = "" Then
        IsExistFile = False
    End If

    arrFile = Split(FilePath, "|")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFile)
        FilePath = arrFile(i)
        If fso.FileExists(Server.MapPath(FilePath)) Then
            IsExistFile = True
        End If
        If fso.FolderExists(Server.MapPath(FilePath)) Then
            IsExistFile = True
        End If
    Next
    Set fso = Nothing

    If Err Then
        Err.clear()
        IsExistFile = False
        'ShowError "判断文件或目录是否存在失败",""
    Else
        IsExistFile = True
    End If
End Function


'*******************************************************
'函数名：DelFile(FilePath)
'作 用: 删除文件或目录
'参 数：FilePath '文件路径 多个文件用"|"隔开
'返回值：成功 true , 失败 false
'*******************************************************
Function DelFile(FilePath)
    On Error Resume Next
    Dim fso, arrFile, i

    If GetSafeStr(FilePath, "") = "" Then
        CreateFolder = False
    End If

    arrFile = Split(FilePath, "|")
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFile)
        FilePath = arrFile(i)
        If fso.FileExists(Server.MapPath(FilePath)) Then
            fso.DeleteFile Server.MapPath(FilePath)
        End If
        If fso.FolderExists(Server.MapPath(FilePath)) Then
            fso.deleteFolder Server.MapPath(FilePath)
        End If
    Next
    Set fso = Nothing

    If Err Then
        Err.clear()
        DelFile = False
        'ShowError "删除文件或目录失败",""
    Else
        DelFile = True
    End If
End Function


'*******************************************************
'函数名：ReNameFile((oldName,newName)
'作 用: 重命名文件或目录
'参 数：strOldName '原文件名 多个用"|"隔开
' strNewName '新文件名 多个用"|"隔开
' 上面两个参数请保持一致
'返回值：成功 true , 失败 false
'*******************************************************
Function ReNameFile(strOldName, strNewName)
    On Error Resume Next
    Dim fso, arrOld, arrNew, i, oldName, newName

    old = GetSafeStr(strOldName, "")
    Newfile = GetSafeStr(strNewName, "")

    If old = "" Or Newfile = "" Then
        ReNameFile = False
        Exit Function
    End If

    arrOld = Split(strOldName, "|")
    arrNew = Split(strNewName, "|")

    If UBound(arrOld) <> UBound(arrNew) Then
        ReNameFile = False
        Exit Function
    End If

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    For i = 0 To UBound(arrOld)
        oldName = Server.MapPath(arrOld(i))
        newName = Server.MapPath(arrNew(i))
        If fso.FileExists(oldName) And Not fso.FileExists(newName) Then
            fso.MoveFile oldName, newName
            'ReNameFile = True
        End If
    Next
    Set fso = Nothing

    If Err.Number <> 0 Then
        Err.clear()
        ReNameFile = False
    Else
        ReNameFile = True
    End If
End Function


'*******************************************************
'函数名：CopyFiles((TempSource,TempEnd)
'作 用: 复制文件或者目录
'参 数：TempSource '源文件名 多个用"|"隔开
' TempEnd '目的文件名 多个用"|"隔开
' 注意：上面两个参数请保持一致，并且都为完整路径，
' 已经经过Server.MapPath方法处理过
'返回值：成功 true , 失败 false
'*******************************************************
Function CopyFiles(TempSource, TempEnd)
    On Error Resume Next
    Dim CopyFSO, arrSource, arrEnd

    CopyFiles = False
    Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")

    If TempSource = "" Or TempEnd = "" Then
        ErrRaise "复制文件或目录", "条件为空"
        CopyFiles = False
        Exit Function
    End If

    arrSource = Split(TempSource, "|")
    arrEnd = Split(TempEnd, "|")
    If UBound(arrSource) <> UBound(arrEnd) Then
        CopyFiles = False
        Exit Function
    End If

    For i = 0 To UBound(arrSource)
        srcName = arrSource(i)
        tarName = arrEnd(i)
        If CopyFSO.FileExists(srcName) And Not CopyFSO.FileExists(tarName) Then
            CopyFSO.CopyFile srcName, tarName
            CopyFiles = True
        End If

        If CopyFSO.FolderExists(srcName) And Not CopyFSO.FolderExists(tarName) Then
            CopyFSO.CopyFolder srcName, tarName
            CopyFiles = True
        End If
    Next
    Set CopyFSO = Nothing

    If Err Then
        'Err.clear()
        CopyFiles = False
    End If
End Function
%>

以下为使用实例：

<%
Server.execute ("redirect.asp")
username = session("username")Dim SourceFile, TargetFile
SourceFile = "test\xx.txt"TargetFile = "test\xx"TargetFile = TargetFile & "_" & username & ".txt"' 文件已存在则先删除If IsExistFile(TargetFile) Then    Call DelFile(TargetFile)End If' 複制文件Call CopyFiles(SourceFile, TargetFile)'*******************************************************'函数名：CopyFiles((TempSource,TempEnd)'作 用：複制档或者目录'参 数：TempSource '原始档案名 多个用"|"隔开' TempEnd '目的档案名 多个用"|"隔开?'注意：上面两个参数请保持一致，文件路径为相对路径'已经经过Server.MapPath方法处理过'返回值：成功 true , 失败 false'*******************************************************Function CopyFiles(TempSource, TempEnd)
    On Error Resume Next    Dim CopyFSO, arrSource, arrEnd

    CopyFiles = False    Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")

    If TempSource = "" Or TempEnd = "" Then        ErrRaise "複制文件或目录", "条件为空"        CopyFiles = False        Exit Function    End If    arrSource = Split(TempSource, "|")
    arrEnd = Split(TempEnd, "|")
    If UBound(arrSource) <> UBound(arrEnd) Then        CopyFiles = False        Exit Function    End If    For i = 0 To UBound(arrSource)
        srcName = arrSource(i)
        tarName = arrEnd(i)

        If CopyFSO.FileExists(Server.MapPath(srcName)) And Not CopyFSO.FileExists(Server.MapPath(tarName)) Then            CopyFSO.CopyFile Server.MapPath(srcName), Server.MapPath(tarName)
            CopyFiles = True        End If        If CopyFSO.folderexists(Server.MapPath(srcName)) And Not CopyFSO.folderexists(Server.MapPath(tarName)) Then            CopyFSO.CopyFolder Server.MapPath(srcName), Server.MapPath(tarName)
            CopyFiles = True        End If    Next    Set CopyFSO = Nothing    If Err Then        'Err.clear()        CopyFiles = False    End IfEnd Function'*******************************************************'函数名：IsExistFile(FilePath)'作 用： 判断文件或目录是否存在'参 数：FilePath '档路径 多个档用"|"隔开'返回值：成功 true , 失败 false'*******************************************************Function IsExistFile(FilePath)
    On Error Resume Next    Dim Fso, arrFile, i

    If FilePath = "" Then        IsExistFile = False    End If    arrFile = Split(FilePath, "|")
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFile)
        FilePath = arrFile(i)
        If Fso.FileExists(Server.MapPath(FilePath)) Then            IsExistFile = True        End If        If Fso.folderexists(Server.MapPath(FilePath)) Then            IsExistFile = True        End If    Next    Set Fso = Nothing    If Err Then        Err.clear()
        IsExistFile = False        'ShowError "判断文件或目录是否存在失败",""    Else        IsExistFile = True    End IfEnd Function'*******************************************************'函数名：DelFile(FilePath)'作 用: 删除档或目录'参 数：FilePath '档路径 多个档用"|"隔开'返回值：成功 true , 失败 false'*******************************************************Function DelFile(FilePath)
    On Error Resume Next    Dim Fso, arrFile, i

    If FilePath = "" Then        CreateFolder = False    End If    arrFile = Split(FilePath, "|")
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")

    For i = 0 To UBound(arrFile)
        FilePath = arrFile(i)
        If Fso.FileExists(Server.MapPath(FilePath)) Then            Fso.DeleteFile (Server.MapPath(FilePath))
        End If        If Fso.folderexists(Server.MapPath(FilePath)) Then            Fso.deleteFolder (Server.MapPath(FilePath))
        End If    Next    Set Fso = Nothing    If Err Then        Err.clear()
        DelFile = False        'ShowError "删除文件或目录失败",""    Else        DelFile = True    End IfEnd Function%>