FSO组件之CreateTextFile方法介绍
ASP FSO操作文件(复制文件重命名文件删除文件替换字符串)
ASP FSO操作文件（复制文件、重命名文件、删除文件、替换字符串）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,oFileset oFso=server.createobject("Scripting.FileSystemObject")set oFile=oFso.getFile(Server.mappath(sourceName))=destNameSet oFso=NothingSet oFile=NothingEnd Function删除文件：Function FSOdel(fileName)dim fso,fset fso = server.CreateObject("scripting.filesystemobject")f=server.MapPath(fileName)if fso.FileExists(f) thenfso.DeleteFile f,trueend ifset f = nothingset fso = nothingEnd Function替换文件中的字符串:Function FSOreplace(fileName,Target,repString)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True) FiletempData = objCountFile.ReadAllobjCountFile.CloseFiletempData=Replace(FiletempData,Target,repString)Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True) objCountFile.Write FiletempDataobjCountFile.CloseSet objCountFile=NothingSet objFSO = NothingEnd Function<%'*******************************************************'函数名：CreateFolder(sPath)'作用: 创建目录'参数：sPath : 创建的相对目录路径'返回值：成功 true , 失败 false'*******************************************************'response.Write createfolder("/dgsunshine/UploadFile/demo1/")Function CreateFolder(sPath)On Error Resume NextDim Fso,Arrfolder,Folder,i,jIf sPath="" thenCreateFolder = FalseExit FunctionEnd IfIf Left(sPath,1) = "/" ThenFolder = "/"sPath = Mid(sPath,2,Len(sPath))ElseFolder = "./"End Ifif 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 thenFolder = Folder & ArrFolder(i) & "/"ElseFolder = Folder & ArrFolder(i) & "/"End IfIf Fso.folderExists(Server.MapPath(Folder)) = False then response.Write server.MapPath(folder)Fso.createFolder(Server.MapPath(Folder)) End IfNextSet Fso = nothingErr.clear()CreateFolder = FalseElseCreateFolder = TrueEnd IfEnd functionFunction getFile(paramFilePath)Set Fso = Server.CreateObject("Scripting.FileSystemObject")Set Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2) getFile = Fso_Read.readallSet Fso_Read = NothingSet Fso = NothingEnd Function'*******************************************************'函数名：CreateFile(paramFileContent,paramFilePath)'作用: 创建文件'参数：paramFileContent '文件的内容' paramFilePath '文件名(不包括路径)'返回值：成功 true , 失败 false'*******************************************************Function CreateFile(paramFileContent,paramFilePath)On Error Resume NextDim Fso,fWriteSet Fso = Server.CreateObject("Scripting.FileSystemObject")Set fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)fWrite.write paramFileContentfWrite.close()Set fWrite = nothingSet Fso = nothingErr.clear()CreateFile = FalseElseCreateFile = TrueEnd IfEnd Function'*******************************************************'函数名：DelFile(FilePath)'作用: 删除文件'参数：FilePath '文件路径多个文件用"|"隔开'返回值：成功 true , 失败 false'*******************************************************Function DelFile(FilePath)On Error Resume NextDim fso,arrFile,iIf GetSafeStr(FilePath,"")="" thenCreateFolder = falseExit FunctionEnd IfarrFile = Split(FilePath,"|")Set Fso = Server.CreateObject("Scripting.FileSystemObject")for i=0 to UBound(arrFile)FilePath = arrFile(i)If Fso.FileExists(Server.MapPath(FilePath)) thenFso.DeleteFile Server.MapPath(FilePath)End IfNextSet fso = nothingIf Err thenErr.clear()DelFile = falseElseDelFile = trueEnd IfEnd Function'*******************************************************'函数名：DelFolder(FolderPath)'作用: 删除目录'参数：FolderPath '目录路径 '多个目录用"|"分隔'返回值：成功 true , 失败 false'*******************************************************Function DelFolder(FolderPath)On Error Resume NextDim Fso,arrFolder,iIf GetSafeStr(FolderPath,"")="" thenDelFolder = falseExit FunctionEnd IfarrFolder = Split(FolderPath,"|")Set Fso = Server.CreateObject("Scripting.FileSystemObject")For i=0 to UBound(arrFolder)FolderPath = arrFolder(i)If Fso.folderexists(Server.MapPath(FolderPath)) thenFso.deleteFolder Server.MapPath(FolderPath) End IfNextIf Err thenErr.clear()DelFolder = false'ShowError "删除目录失败",""elseDelFolder = trueEnd IfEnd Function'*******************************************************'函数名：IsExistFile(FilePath)'作用: 判断文件或目录是否存在'参数：FilePath '文件路径多个文件用"|"隔开'返回值：成功 true , 失败 false'*******************************************************Function IsExistFile(FilePath)On Error Resume NextDim fso,arrFile,iIf GetSafeStr(FilePath,"")="" thenIsExistFile = falseEnd IfarrFile = Split(FilePath,"|")Set Fso = Server.CreateObject("Scripting.FileSystemObject")for i=0 to UBound(arrFile)FilePath = arrFile(i)If Fso.FileExists(Server.MapPath(FilePath)) thenIsExistFile = TrueEnd IfIf Fso.folderexists(Server.MapPath(FilePath)) thenIsExistFile = TrueEnd IfNextSet fso = nothingIf Err thenErr.clear()IsExistFile = false'ShowError "判断文件或目录是否存在失败",""elseIsExistFile = trueEnd IfEnd Function'*******************************************************'函数名：DelFile(FilePath)'作用: 删除文件或目录'参数：FilePath '文件路径多个文件用"|"隔开'返回值：成功 true , 失败 false'*******************************************************Function DelFile(FilePath)On Error Resume NextDim fso,arrFile,iIf GetSafeStr(FilePath,"")="" thenCreateFolder = falseEnd IfarrFile = Split(FilePath,"|")Set Fso = Server.CreateObject("Scripting.FileSystemObject")for i=0 to UBound(arrFile)FilePath = arrFile(i)If Fso.FileExists(Server.MapPath(FilePath)) thenFso.DeleteFile Server.MapPath(FilePath)End IfIf Fso.folderexists(Server.MapPath(FilePath)) thenFso.deleteFolder Server.MapPath(FilePath)End IfNextSet fso = nothingIf Err thenErr.clear()DelFile = false'ShowError "删除文件或目录失败",""elseDelFile = trueEnd IfEnd Function'******************************************************* '函数名：ReNameFile((oldName,newName)'作用: 重命名文件或目录'参数：strOldName '原文件名多个用"|"隔开' strNewName '新文件名多个用"|"隔开' 上面两个参数请保持一致'返回值：成功 true , 失败 false'******************************************************* Function ReNameFile(strOldName,strNewName)On Error Resume NextDim fso,arrOld,arrNew,i,oldName,newNameold = GetSafeStr(strOldName,"")Newfile = GetSafeStr(strNewName,"")If old ="" or Newfile = "" thenReNameFile = falseExit FunctionEnd IfarrOld = Split(strOldName,"|")arrNew = Split(strNewName,"|")If UBound(arrOld)<> UBound(arrNew) thenReNameFile = falseExit FunctionEnd IfSet 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) thenfso.MoveFile oldName,newName'ReNameFile = TrueEnd IfNextSet fso = nothingIf Err.Number <> 0 ThenErr.clear()ReNameFile = falseElseReNameFile = TrueEnd IfEnd Function'*******************************************************'函数名：CopyFiles((TempSource,TempEnd)'作用: 复制文件或者目录'参数：TempSource '源文件名多个用"|"隔开' TempEnd '目的文件名多个用"|"隔开' 注意：上面两个参数请保持一致，并且都为完整路径，' 已经经过Server.MapPath方法处理过'返回值：成功 true , 失败 false'*******************************************************Function CopyFiles(TempSource,TempEnd)On Error Resume NextDim CopyFSO,arrSource,arrEndCopyFiles = falseSet CopyFSO = Server.CreateObject("Scripting.FileSystemObject")If TempSource ="" or TempEnd = "" thenErrRaise "复制文件或目录","条件为空"CopyFiles = falseExit FunctionEnd IfarrSource = Split(TempSource,"|")arrEnd = Split(TempEnd,"|")If UBound(arrSource) <> UBound(arrEnd) thenCopyFiles= falseExit FunctionEnd Iffor i=0 to UBound(arrSource)srcName = arrSource(i)tarName = arrEnd(i)IF CopyFSO.FileExists(srcName) and not CopyFSO.FileExists(tarName) thenCopyFSO.CopyFile srcName,tarNameCopyFiles = trueEnd IfIF CopyFSO.FolderExists(srcName) and notCopyFSO.FolderExists(tarName)thenCopyFSO.CopyFolder srcName,tarNameCopyFiles = trueEnd IfNextSet CopyFSO = NothingIf Err then'Err.clear()CopyFiles = falseEnd IfEnd Function%>。
VBS中FSO文件与文件夹的基本操作
VBS中FSO文件与文件夹的基本操作VBS中FSO文件的基本操作一、文件属性：在windows中，文件的属性一般用数字来表示：0 代表normal，即普通文件未设置任何属性。
1 代表只读文件。
2 代表隐藏文件。
4 代表系统文件。
16 代表文件夹或目录。
32代表存档文件。
1024代表链接或快捷方式。
例如：set fs=wscript.createobject(“scripting.filesystemobject”)set f=fs.getfile(“d:\index.txt”)msgbox f.Attributes ‘attributes函数的作用是显示文件属性需要说明的是：msgbox显示的结果往往不是上面说明的数字，而是有关属性代表数字的和二、创建文件：object.createtextfile方法，注意创建前一般需要检查文件是否存在。
例如：set fso=wscript.createobject(“scripting.filesystemobject”)if fso.fileexists(“c:\kk.txt”) thenmsgbox “文件已存在”else set f=fso.createtextfile(“c:\kk.txt”)end if如需要强制覆盖已存在的文件，则在文件名后加true参数。
三、复制、移动、删除文件：使用copyfile方法、movefile方法、deletefile方法。
例如：set fso=wscript.createobject(“scripting.filesystemobject”)fso.copyfile “c:\kk.txt”,”d:\1\kk.txt”,true //如上文说述，true代表强制覆盖fso.movefile “c:\kk.txt”, “d:\”//移动文件fso.deletefile “c:\kk.txt”//删除文件四、文件的读写：1、打开文件：使用opentextfile方法如：set ts=fso.opentextfile(“c:\kk.txt”,1,true)说明：第二个参数为访问模式1为只读、2写入、8为追加第三个参数指定如文件不存在则创建。
FSO详解
FSO是FileSystemObject或Scripting.FileSystemObject的缩写，为IIS 内置组件，用于操作磁盘、文件夹或文本文件。
FSO 的对象、方法和属性非常的多，这里用示例的方式列出常用的，注意：《VBScript 语言参考》或《JScript 语言参考》中的：《FileSystemObject 用户指南》和《Scripting 运行时库参考》便是微软给出的FileSystemObject 完整参考。
FSO 不能操作二进制文件，要操作二进制文件，使用：ADODB.Stream。
创建文件set fso =server.CreateObject("Scripting.FileSystemObject")set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖f.Write("写入内容")f.WriteLine("写入内容并换行")f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）f.Close()set f = nothingset fso = nothing打开并读文件set fso =server.CreateObject("Scripting.FileSystemObject")set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建f.Skip(3) '将当前位置向后移三个字符f.SkipLine() '将当前位置移动到下一行的第一个字符，注意：无参数response.Write f.Read(3) '从当前位置向后读取三个字符，并将当前位置向后移三个字符response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数response.Write f.ReadAll() '从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后if f.atEndOfLine thenresponse.Write("一行的结尾！")end if if f.atEndOfStream thenresponse.Write("文件的结尾！")end iff.Close()set f = nothingset fso = nothing打开并写文件set fso =server.CreateObject("Scripting.FileSystemObject")set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写，如果是8 表示追加f.Write("写入内容")f.WriteLine("写入内容并换行")f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）f.Close()set f = nothingset fso = nothing判断文件是否存在set fso =server.CreateObject("Scripting.FileSystemObject")if fso.FileExists("C:\test.txt") thenresponse.Write("目标文件存在")elseresponse.Write("目标文件不存在")end ifset fso = nothing移动文件set fso =server.CreateObject("Scripting.FileSystemObject")call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同set fso = nothing复制文件set fso =server.CreateObject("Scripting.FileSystemObject")call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同set fso = nothing删除文件set fso =server.CreateObject("Scripting.FileSystemObject")fso.DeleteFile("C:\test.txt")set fso = nothing创建文件夹set fso =server.CreateObject("Scripting.FileSystemObject")fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在set fso = nothing判断文件夹是否存在set fso =server.CreateObject("Scripting.FileSystemObject")if fso.FolderExists("C:\Windows") thenresponse.Write("目标文件夹存在")elseresponse.Write("目标文件夹不存在")end ifset fso = nothing删除文件夹set fso =server.CreateObject("Scripting.FileSystemObject")fso.DeleteFolder("C:\test") '文件夹不必为空set fso = nothing检测驱动器C盘是否存在Set fso =Server.CreateObject("Scripting.FileSystemObject") fso.DriveExists("c:")获取文件路径的驱动器名Setfso=Server.CreateObject("Scripting.FileSystemObject") p=fso.GetDriveName(Server.MapPath("aqa33")) Response.Write("驱动器名称是：" & p) set fs=nothing取得某个指定的路径的父文件夹的名称Setfso=Server.CreateObject("Scripting.FileSystemObject") p=fso.GetParentFolderName(Server.MapPath("aqa331.as p"))Response.Write("父文件夹名称是：" & p)set fs=nothing取得指定路径中的最后一个成分的文件扩展名Set fs=Server.CreateObject("Scripting.FileSystemObject") Response.Write(fs.GetExtensionName(Server.MapPath(" aqa33.asxd")))set fs=nothing取得指定路径中的最后一个成分的文件名Set fs=Server.CreateObject("Scripting.FileSystemObject") Response.Write(fs.GetFileName(Server.MapPath("aqa33. asxd")))set fs=nothing返回在指定的路径中文件或者文件夹的基本名称。
fso组件
编辑词条fsoFSO的意思是File System Object，即文件系统对象。
我们将要操纵的计算机文件系统，在这里是指位于web服务器之上。
所以，确认你对此拥有合适的权限。
理想情况下，你可以在自己的机器上建立一个web服务器，这样就能方便地进行测试。
如果运行于Windows平台，请试一试微软公司的免费个人Web服务器PWS。
FSO 模型对象Drive Object：驱动器对象供存取磁盘或者网络驱动器FileSystemObject Object：文件系统对象供存取计算机的文件系统Folder Object：文件夹对象供存取文件夹的所有属性TextStream Object：文本流对象供存取文件内容你可以使用上面的对象做计算机上的任何事情，也包括破坏活动;-( 所以，请小心使用FSO。
在web环境中，存储信息是非常重要的，比如用户信息，日志文件，等等。
FSO提供了一个强大且简单的方法高效率地保存数据。
在这篇文章里面，着重讨论FileSystemObject和TextStream对象。
FSO由微软公司提供支持，对于非Windows系统，大概不能再使用ASP。
怎么样使用FSO？为了使用FSO来执行所有的工作，首先要创建对象，代码就象下面这样：< %Set fso = Server.CreateObject("Scripting.FileSystemObject")% >这样就建立了FSO并且赋予变量fso，接着就可以使用熟悉的object.method语法来执行文件系统的操作〔查看Visual Basic文档，获取更多的关于对象和对象向导编程的知识〕。
在这里，我们可以使用fso.method 或者fso.property，这些将在下面的例子中看到。
FSO模型位于由微软提供的脚本运行时间DLL文件中，它是scrrun.dll。
你可以在任何应用程序中引用这个DLL文件，比如MS Access，Word。
Fso使用
fso.DeleteFolder("c:\\WINDOWS\\Desktop", true); //把你的Desktop目录删除，但因为desktop是系统的东西，所以不能全部删除，但.........
-->
</SCRIPT>
FileExists(文件名) //检查一个文件是否存在，如果存在就返会真，不存在就返回.......
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
fileName = fso.FileExists("c:\\autoexec.bat");
if (fileName) alert("你在C盘中有autoexec.bat文件，按下确定后这个文件将被删除！"); //开个玩笑:)
-->
</SCRIPT>
FolderExists(目录名) //检查一个目录是否存在，如果存在就返会真，不存在就返回.......
GetFileName() 取得文件名
GetFolder() 取得目录对象
GetParentFolderName 取得文件或目录的父目录名
GetSpecialFolder() 取得特殊的目录名
GetTempName() 生成一个临时文件对象
vbs的Filesystemobject使用详解
destination必选项。表示目标位置的字符串，从 source 复制文件到该位置。不允许用通配符。
overwrite可选项。Boolean 值表明是否覆盖现有文件。如果是 True，则覆盖文件；如果是 False，则不覆盖现有文件。默认值是 True。要注意，无论 overwrite 设置为何值，只要设置 destination 为只读属性，CopyFile 操作就无法完成。
7：DeleteFolder
描述：删除指定的文件夹和其中的内容。
语法：object.DeleteFolder folderspec[, force]
解释：object必选项。应为 FileSystemObject 的名称。
folderspec必选项。要删除的文件夹名称。folderspec 在路径的最后一个组成部分中可包含通配符。
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfolder "c:\test","d:\"
4、CreateFolder
描述：创建文件夹
语法：object.CreateFolder(foldername)
解释：object必选项。应为 FileSystemObject 对象的名称。
Set fso = CreateObject("Scriptinet f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
ExcelVBA操作文本文档TXT文件的方法(一)
VBA使用FileSystemObject 将读取或写入文本文件(一)有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject 对象来进行操作。
在接下来的几篇里我们介绍如何使用FileSystemObject 对象操作文本文件的。
工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject 对象。
一、如何创立FileSystemObject 对象在VBA中，是通过CreateObject 函数返回FileSystemObject 对象。
例如：Dim fso As ObjectSet fso=CreateObject(" Script in g.FileSystemObject ")二、FileSystemObject 主要方法介绍1、CreateTextFile 方法：用于创立一个指定文件名，并返回一个可操作的TextStream对象。
例如1在中创立一个名为testFile 的文本文件，并写入一行“CreateTextFile TestSub CreateFile()Dim sFile As Object , FSO As ObjectSet FSO = CreateObject(〞 Script in g.FileSystemObject ")(〞Set sFile = Noth ingSet FSO = Noth ingEnd Sub2、DeleteFile 方法：用于删除一个指定的文件。
如果指定的文件不存在，那么返回一个错误信息。
语法：object.DeleteFile(filespec[,force])Sub DeleteFile()Dim fso As ObjectSet fso = CreateObject(〞Script in g.FileSystemObject ")fso.DeleteFile (" C:\FSOTest\TestFile.txt ")End Sub3、FileExists 方法：判断指定的文件是否存在。
Javascript操作文件
JS操作文件（Files）操作文件（Files）对文件进行的操作要比以上介绍的驱动器（Drive）和文件夹（Folder）操作复杂些，基本上分为以下两个类别：对文件的创建、拷贝、移动、删除操作和对文件内容的创建、添加、删除和读取操作。
下面分别详细介绍。
（一）创建文件一共有3种方法可用于创建一个空文本文件，这种文件有时候也叫做文本流（text stream）。
第一种是使用CreateTextFile方法。
代码如下：var fso, f1;fso = new ActiveXObject("Scripting.FileSystemObject");f1 = fso.CreateTextFile("c:\\testfile.txt", true);第二种是使用OpenTextFile方法，并添加上ForWriting属性，ForWriting的值为2。
代码如下：var fso, ts;var ForWriting= 2;fso = new ActiveXObject("Scripting.FileSystemObject");ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true);`第三种是使用OpenAsTextStream方法，同样要设置好ForWriting属性。
代码如下：var fso, f1, ts;var ForWriting = 2;fso = new ActiveXObject("Scripting.FileSystemObject");fso.CreateTextFile ("c:\\test1.txt");`f1 = fso.GetFile("c:\\test1.txt");ts = f1.OpenAsTextStream(ForWriting, true);（二）添加数据到文件`当文件被创建后，一般要按照“打开文件－>填写数据－>关闭文件”的步骤实现添加数据到文件的目的。
createtextfile 注释方法
createtextfile 注释方法CreateTextFile 注释方法在编程过程中，创建文本文件是一项常见的操作。
在许多编程语言中，都提供了相应的函数或方法来实现创建文本文件的功能。
本文将介绍几种常见的创建文本文件的注释方法，并对其使用进行详细说明。
一、直接使用文件操作函数在许多编程语言中，都提供了直接使用文件操作函数来创建文本文件的方法。
通过这种方法，我们可以先打开一个文件，然后再将数据写入到这个文件中。
最后，我们需要关闭文件以确保数据的完整性和文件资源的释放。
在Python中，我们可以使用open()函数来创建文本文件，并使用write()函数向文件中写入数据。
具体的代码如下所示：```python# 打开文件file = open("textfile.txt", "w")# 向文件中写入数据file.write("Hello, World!")# 关闭文件file.close()```在上述代码中，我们首先调用open()函数，传入文件名和模式（"w"表示写入模式）来打开一个文本文件。
然后，我们使用write()函数将数据写入到文件中。
最后，我们调用close()函数关闭文件。
在其他编程语言中，也有类似的文件操作函数，如C语言中的fopen()、fwrite()和fclose()等函数，以及Java中的FileWriter类和BufferedWriter类等。
二、使用库函数除了直接使用文件操作函数外，许多编程语言还提供了库函数来更方便地创建文本文件。
这些库函数通常封装了文件的打开、写入和关闭等操作，使得代码更加简洁和易于阅读。
在Python中，我们可以使用codecs库来创建文本文件，并使用write()函数向文件中写入数据。
具体的代码如下所示：```pythonimport codecs# 打开文件file = codecs.open("textfile.txt", "w", "utf-8")# 向文件中写入数据file.write("你好，世界！")# 关闭文件file.close()```在上述代码中，我们首先导入codecs库，并使用codecs.open()函数来创建文本文件。
FSO组件之文件操作
二、fso.CreateTextFile 如fso.CreateFolder建立文件夹般，fso.CreateTextFile则是建立文件了。
那根据这个可以继续地扩展内容：比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片，并将此图片放于img文件夹中。 下为一增强的txtcount.asp内容代码。
<%whichfile=server.mappath("counter.txt")set fso=createobject("Scripting.FileSystemObject")set openfile=fso.opentextfile(whichfile,1)visitors=openfile.readlineopenfile.closeCountLen=len(visitors)response.write "您是本页的第"for i=1 to 6-countLen '表示最大值999999 response.write "<img src=img/0.gif></img>"next for i=1 to countlen response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>"nextresponse.write "位访客"visitors=visitors+1set creatfile=fso.createtextfile(whichfile)creatfile.writeLine(visitors)creatfile.closeset fso=nothing%>
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FSO组件之CreateTextFile方法介绍篇一：Vb6中的Fso对象模型Vb6中的Fso对象模型--------------------------------------------------------------------------------在编程中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件等。
在Vb6中新提供了一套称为Fso（Filesystemobject）对象模型来对文件系统进行访问处理。
该模型提供了一个基于对象的工具，通过它所提供的一系列属性和方法，我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。
一、Fso简介Fso对象模型包含以下几种对象：Drive对象：允许收集系统物理或通过LAn与系统逻辑连接的硬盘、cD－Rom等驱动器的可用空间、共享名等信息。
Folder对象：允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。
Files对象：允许创建、删除或移动文件，并向系统查询文件的名称、路径等。
Textstream对象：允许创建和读写文本文件。
Filesystemobject对象：提供一整套用于驱动器、文件夹和文件操作的方法，在功能上可以把它看作是上面几个对象的集合并且经常与它们配合使用。
与该对象相关联的很多方法重复了前面四个对象中的方法，因此我们既可以通过Filesystemobject对象来对驱动器、文件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作。
Fso模型通过两种方法实现对同一对象的操作，其操作效果是相同的，提供这种冗余功能的目的是为了实现最大的编程灵活性。
Fso对象模型包含在一个称为scripting的类型库中，此类型库位于scrrun.dll文件中，可从“工程”选单的“引用”对话框中选择“microsoftscriptingRuntime”项来引用此文件。
创建一个Filesystemobject对象，可以通过如下两种方法来完成：1将一个变量声明为Filesystemobject对象类型：DimfsoAsnewFilesystemobject；2createobject方法来创建：setfso=createobject(″scripting.Filesystemobject″)。
二、对驱动器的操作对驱动器的操作主要通过Drive对象并配合Filesystemobject对象，Fso 不支持进行创建或删除驱动器的操作，而只允许收集关于系统所用驱动器的信息。
通过该对象的属性可以获得下列信息：以字节表示的驱动器可用空间(Availablespace或Freespace)；为驱动器指定的字母号(DriveLetter)；驱动器类型(DriveType)；驱动器使用的文件系统类型，诸如FAT、FAT32、nTFs等(Filesystem)；驱动器是否可用(IsReady)；驱动器的路径或根文件夹(path和RootFolder)；驱动器序列号(serialnumber)；共享名或卷标名(sharename和V olumename)；以字节表示的驱动器总空间(Totalsize)。
下面一例说明了如何收集有关驱动器的信息：privatesubcommand1—click() DimfsoAsnewFilesystemobject,drvAsDrive,strAsstringsetdrv=fso.getDrive(fso.getDrivename(″c:″))Debug.print″Totalspace:″＆Formatnumber(drv.Totalsize/1024,0)＆″Kb″Debug.print″Freespace:″＆Formatnumber(drv.Freespace/1024,0)＆″Kb″endsub三、对文件夹的操作Folder对象允许通过所提供的方法来复制（copy）、删除（Delete）或移动（move）文件夹，并通过其属性向系统查询其名称（name）、路径（path）以及创建日期（Datecreated）等。
Filesystemobject对象对文件夹的操作方法有创建（createFolder）、复制（copyFolder）、移动（moveFolder）和删除（DeleteFolder）。
在进行上述操作之前，首先要获得该文件夹的访问句柄（getFolder）。
下例说明了如何对文件夹进行操作：privatesubcommand2—click() DimfsoAsnewFilesystemobject,fldrAsFoldersetfldr=fso.getFolder(″c:″)′获得当前文件夹的访问句柄Debug.print″parentfoldernameis:″＆fldr′打印文件夹名Debug.print″containedondrive″＆fldr.Drive′打印驱动器名fso.createFolder(″c:\Temp″)′用Filesystemobject对象创建一个新的文件夹fso.DeleteFolder(″c:\Temp″)′删除新建的文件夹endsub访问一个对象，要首先用“get”方法获得该对象的访问句柄，但如果是用“create”函数新创建一个对象，函数会返回一个句柄到新创建的对象，这时只要设置一个变量来获取该句柄即可，不必再用“get”方法。
如：setfldr=fso.createFolder(″c:\Temp2″)。
四、对文件的操作读写文件，在Vb6之前都是使用open等语句来实现，Fso支持通过Textstream对象来创建和读写文本文件。
Fso通过createTextFile、openTextFile、openAsTextstream三种方法来创建一个顺序文本文件。
文件创建后，就可分三步写入数据：1.Filesystemobject对象的openTextFile方法或File对象的openAsTextstream方法打开文本文件以备写入数据。
2.Textstream对象的write、writeLine或writeblankLines方法写入数据。
3.Textstream对象的close方法关闭文件。
下例说明了如何创建文本文件：我们可使用Textstream对象的Read、ReadLine或ReadAll方法从一个文本文件中读取数据。
privatesubcommand3—click() DimfsoAsnewFilesystemobject,filAsFile,tsAsTextstreamfso.createTextFile″c:\testfile.txt″setfil=fso.getFile(″c:\testfile.txt″)setts=fil.openAsTextstream(Forwriting)ts.write(″这是一个测试文件!″)ts.closesetts=fil.openAsTextstream(ForReading)s=ts.ReadLinemsgboxsts.closeendsub除了创建与读写文件之外，Vb6还可通过Filesystemobject对象对文件进行复制（copyFile）、移动（moveFile）与删除（DeleteFile）等操作，在File对象中等效的方法有copy、move和Delete。
例程如下：privatesubcommand4—click() DimfsoAsnewFilesystemobject,txtfileAsTextstream,fil1AsFile,fil2AsFilesettxtfile=fso.createTextFile(″c:\testfile.txt″,True) txtfile.write(″这是一个测试文件!″)txtfile.closesetfil1=fso.getFile(″c:\testfile.txt″)′获得一个文件句柄fil1.copy(″c:\temp1\testfile.txt″)′将该文件复制到\temp1目录下fil1.move(″c:\temp2\testfile.txt″)′将该文件移动到\temp2目录下setfil1=fso.getFile(″c:\temp1\testfile.txt″)′获得这些文件当前位置的句柄setfil2=fso.getFile(″c:\temp2\testfile.txt″)fil1.Deletefil2.Deleteendsub篇二：Fso组件Fso组件一、Fso组件：擅长处理某个功能的对象。
二、Asp内置组件：创建ADRotator对象实例：三、使用组件：DatabaseAccess（ADo）（Fso）操作数据库功能操作文件功能FileAccess 四、Fso的创建：set对象变量名=server.createobject(“scripting.Filesystemobject”) eg：setFs=server.createobject(“scripting.Filesystemobject”)五、复制、删除文件1、复制文件语法：文件系统对象实例名称.copyFile（source,Destination,overwrite)用途：Filesystemobject对象的copyFile方法将source指定的文件复制到Destination，若有同名文件，且overwrite的值为True表示将其覆盖，否则不覆盖。
2、删除文件语法：文件系统对象实例名称.DeleteFilepath,force用途：Filesystemobject对象的DeleteFile方法可以删除path指定的文件。
其中path必须使用实际路径；force默认值为False,不删除只读文件，若要采用默认值可省略不写。
若要删除只读文件，force的值要设为True。
【实例如下】：file.asp文件用来检测if.asp文件是否存在，如存在则删除，否则创建该文件。
p=server.mappath("abc\if.asp")ifobjfile.fileexists(p)thenobjfile.deletefilep,trueresponse.write"此文件已存在，已被删除！"elsesetcgfile=objfile.createtextfile(p,false)response.write"此文件不存在，已完成建立"endif%>六、文件的打开、读取与写入1.打开文件语法：文件系统对象实例名称.openTextFile（Filename，I/omode，creat) 使用Filesystemobject对象的openTextFile方法可以打开Filename指定的文本文件，并传回一个Textstream对象实例；I/omode 为文本文件的打开方式，"1"表示只读，"2"表示可写（清除文本文件的原始内容），"8"表示追加到文本文件的后面（不清除文本文件的原始内容），默认为"1"；creat为布尔值，若为True表示当文本文件不存在时就自动创建一个空的文件，若为False就会在文件未找到时产生一个出错信息。