ASP FSO操作文件(復制文件、重命名文件、刪除文件、替換字符串)

FS0對象模型包含在返回8.3形式的文件名OpenTextFile打文件并且返回TextStream對象FunctionreName(sourceName,destNasetoFile=oFso.getFile(Server.mappath(sourceName))dimfso,fiffso.FileExists(f)thenendifFunctionFSOreplace(fileName,Target,repString)SetobjCountFile=objFS0.OpenTextFile(Server.MapPatFiletempData=Replace(FiletempData,TargSetobjCountFile=objFS0.CreateTextFile(Server.MapPath(fileName),True)objCountFile.WriteOnErrorResumeNeEndIfEndIfIfi=0thenEndIfIfFso.folderExists(Server.MapPath(Folder))=FalsethenEndIfNextIfErr.Number<>0thenEndIffso.OpenTextFile(Server.MapPath(paramFil’********************************’********************************FunctionCreateFile(paramFileContent,paramFilePath)OnErrorResumeNextFso.CreateTextFile(Server.Mappath(paramFilfWrite.writeparamFileContentIfErr.number<>0ThenEndIfOnErrorResumeNextEndIfIfNextFso.FileExists(Server.MapPath(FilIfIfErrthenDelFile=falseEndIf’*****************************FunctionDelFolder(FolderPath)EndIfFolderPath=arrFolder(i)IfFso.folderexists(Server.MapPath(FolderPath))thenEndIfNextIfErrthenIf’參數：FilePath’文件路徑多個文件用隔開’********************************EndIfEndIfIfFso.folderexists(Server.MapPath(NextIfIfErrthenEndIfOnErrorResumeNextEndIfIfFso.FileExists(Server.MapPath(FilePath))thenEndIfIfFso.folderexists(Server.MapPath(FilePath))thenEndIfIfErrthenEndIf’作用：重命名文件或者目錄FunctionReNameFile(strOldName,strNewName)Dimfso,arrOld,arrNew,i,oldName,newNameEndIfIfUBound(arr0ld)<>UBound(arrNew)thenReNameFile=falseEndIffori=0toUBound(arroldName=Server.MapPatnewName=Server.MapPath(aEndIfNextIfErr.Number<>0ThenReNameFile=falseEndIf’***************************’作用：復制文件或者目錄TempEnd’目的文件名多個用隔開’************************************Function