用FSO进行文件操作（复制、重命名、删除、替换字符串等）

重命名文件

  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

  复制文件

  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  fs.CopyFile "d:\ss.txt","e:\bb.txt",True    ’用fs的CopyFile方法复制文件
  fs.Close
  Set fs = Nothing

  移动文件

  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  fs.MoveFile "d:\ss.txt","e:\bb.txt",True    ’用fs的MoveFile方法移动文件
  fs.Close
  Set fs = Nothing

  移动文件夹

  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  fs.MoveFolder "d:\ss","e:\bb",True    ’用fs的MoveFolder方法移动文件夹
  fs.Close
  Set fs = Nothing

  复制文件夹

  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  fs.CopyFolder "d:\ss","e:\bb",True    ’用fs的CopyFolder方法复制文件夹
  fs.Close
  Set fs = Nothing

  查看文件是否存在

  object.FileExists([文件路经])   如果指定的文件存在，则返回 True；否则返回 False。
  dim a
  Set fs =Server.CreateObject("Scripting.FileSystemObject")
  a=fs.FileExists("D:\ss.txt")
  response.write a

  删除文件夹

  object.DeleteFile [路经][, force] 如果要删除只读文件夹，则force值为True；否则为 False（默认）
  Set fs=Server.CreateObject("Scripting.FileSystemObject")  
  fs.DeleteFolder "e:\呵呵",true    ’用fs的DeleteFolder方法删除文件夹

  读取文件

  object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开
  dim a
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  Set a=fs.OpenTextFile("D:\ss.txt")
  do while not a.AtEndOfStream    
  ’判断是否读到文件最后一行
  response.write a.readLine & "<br>"    ’读取文件逐行输出
  loop
  a.close
  set fs=nothing

  追加记录

  object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])
  dim a
  Set fs =Server.CreateObject("Scripting.FileSystemObject")
  Set a=fs.OpenTextFile("D:\ss.txt",8,true)   ’true 带表如果文件不存在就自动建立
  a.WriteLine("文件写入")
  a.close
  set fs=nothing

  修改

  object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])
  dim a
  Set fs =Server.CreateObject("Scripting.FileSystemObject")    ’用Server创建一个FSO
  Set a=fs.OpenTextFile("D:\ss.txt",2,true)   ’如果不存在就自动建立
  a.WriteLine("文件写入")
  a.close
  set fs=nothing

  查看驱动器是否存在

  object.DriveExists([驱动器路径]) 如果指定的驱动器存在，则返回 True；否则返回 False。
  dim a
  Set fs =Server.CreateObject("Scripting.FileSystemObject")  
  a=fs.DriveExists("D:")   ’用fs的DriveExists查找驱动器
  response.write a