ASP应用之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替换指定文件的字符 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读取文件内容的函数 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 建立目录的程序，如果有多级目录，则一级一级的创建 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 javascript操作文件__FSO 对象/集合 含义 Driver 对象类型，包括收集系统中驱动器相关信息的方法和属性，比如共享名、可用空间等，一个“driver”对象不一定代表一个物理硬盘，还可以是一个CD-ROM驱动器、一个RAM盘或者一个通过网络逻辑连接的资源。 Drivers 集合类型，提供系统中一系列以物理方式或逻辑方式存在的驱动器对象 File 对象类型，包括对文件进行创建、删除或者移动操作的相关方法和属性，还包括查询文件名称、路径以及其他文件属性的方法和操作。 Files 集合类型，提供包含在文件夹中的一系列File对象 Folder 对象类型，包括对文件夹进行创建、删除或者移动操作的相关方法和属性，还包括查询文件夹名称、路径以及其他文件夹属性的方法和操作。 Folders 集合类型，提供包含在文件夹中的一系列Folder对象 TestStream 对象类型，提供文本文件的读写功能 二、FileSystemObject编程三部曲 使用FileSystemObject 对象进行编程很简单，一般要经过如下的步骤： 创建FileSystemObject对象、应用相关方法、访问对象相关属性 。 （一）创建FileSystemObject对象 创建FileSystemObject对象的代码只要1行： var fso = new ActiveXObject("Scripting.FileSystemObject"); 上述代码执行后，fso就成为一个FileSystemObject对象实例。 （二）应用相关方法 创建对象实例后，就可以使用对象的相关方法了。比如，使用CreateTextFile方法创建一个文本文件： var fso = new ActiveXObject("Scripting.FileSystemObject"); var f1 = fso.createtextfile("c://myjstest.txt",true"); （三）访问对象相关属性 要访问对象的相关属性，首先要建立指向对象的句柄，这就要通过get系列方法实现：GetDrive负责获取驱动器信息，GetFolder负责获取文件夹信息，GetFile负责获取文件信息。比如，指向下面的代码后，f1就成为指向文件c:/test.txt的句柄： var fso = new ActiveXObject("Scripting.FileSystemObject"); var f1 = fso.GetFile("c://myjstest.txt"); 然后，使用f1访问对象的相关属性。比如： var fso = new ActiveXObject("Scripting.FileSystemObject"); var f1 = fso.GetFile("c://myjstest.txt"); alert("File last modified: " + f1.DateLastModified); 执行上面最后一句后，将显示c:/myjstest.txt的最后修改日期属性值。 但有一点请注意：对于使用create方法建立的对象，就不必再使用get方法获取对象句柄了，这时直接使用create方法建立的句柄名称就可以： var fso = new ActiveXObject("Scripting.FileSystemObject"); var f1 = fso.createtextfile("c://myjstest.txt",true"); alert("File last modified: " + f1.DateLastModified); 三、操作驱动器（Drives） 使用FileSystemObject对象来编程操作驱动器（Drives）和文件夹（Folders）很容易，这就象在Windows文件浏览器中对文件进行交互操作一样，比如：拷贝、移动文件夹，获取文件夹的属性。 （一）Drives对象属性 Drive对象负责收集系统中的物理或逻辑驱动器资源内容，它具有如下属性： l TotalSize：以字节（byte）为单位计算的驱动器大小。 l AvailableSpace或FreeSpace：以字节（byte）为单位计算的驱动器可用空间。 l DriveLetter：驱动器字母。 l DriveType：驱动器类型，取值为：removable（移动介质）、fixed（固定介质）、network（网络资源）、CD-ROM或者RAM盘。 l SerialNumber：驱动器的系列码。 l FileSystem：所在驱动器的文件系统类型，取值为FAT、FAT32和NTFS。 l IsReady：驱动器是否可用。 l ShareName：共享名称。 l VolumeName：卷标名称。 l Path和RootFolder：驱动器的路径或者根目录名称。 （二）Drive对象操作例程 下面的例程显示驱动器C的卷标、总容量和可用空间等信息： var fso, drv, s =""; fso = new ActiveXObject("Scripting.FileSystemObject"); drv = fso.GetDrive(fso.GetDriveName("c://")); s += "Drive C:" + " - "; s += drv.VolumeName + "/n"; s += "Total Space: " + drv.TotalSize / 1024; s += " Kb" + "/n"; s += "Free Space: " + drv.FreeSpace / 1024; s += " Kb" + "/n"; alert(s); 执行后出现下面的信息框： Driver C: - MYDISKC Total Space: 2096160 Kb Free Space: 763328 Kb 四、操作文件夹（Folders） 涉及到文件夹的操作包括创建、移动、删除以及获取相关属性。 （一） Folder对象的相关属性和方法列表 方法/属性 任务 FileSystemObject.CreateFolder 创建文件夹 Folder.Delete FileSystemObject.DeleteFolder 删除文件夹 Folder.Move FileSystemObject.MoveFolder 移动文件夹 Folder.Copy FileSystemObject.CopyFolder 拷贝文件夹 Folder.Name 取得文件夹名称 FileSystemObject.FolderExists 判断文件夹是否存在 FileSystemObject.GetFolder 取得存在Folder对象中的实例 FileSystemObject.GetParentFolderName 取得文件夹的父文件夹名称 FileSystemObject.GetSpecialFolder 取得系统文件夹路径信息 （二）Folder对象操作例程 下面的例程将练习获取父文件夹名称、创建文件夹、删除文件夹、判断是否为根目录等操作： var fso, fldr, s = ""; // 创建FileSystemObject对象实例 fso = new ActiveXObject("Scripting.FileSystemObject"); // 获取Drive 对象 fldr = fso.GetFolder("c://"); // 显示父目录名称 alert("Parent folder name is: " + fldr + "/n"); // 显示所在drive名称 alert("Contained on drive " + fldr.Drive + "/n"); // 判断是否为根目录 if (fldr.IsRootFolder) alert("This is the root folder."); else alert("This folder isn't a root folder."); alert("/n/n"); // 创建新文件夹 fso.CreateFolder ("C://Bogus"); alert("Created folder C://Bogus" + "/n"); // 显示文件夹基础名称，不包含路径名 alert("Basename = " + fso.GetBaseName("c://bogus") + "/n"); // 删除创建的文件夹 fso.DeleteFolder ("C://Bogus"); alert("Deleted folder C://Bogus" + "/n"); 五、操作文件（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); （三）创建文件及添加数据例程 下面的代码将创建文件、添加数据、关闭文件几个步骤结合起来进行应用： var fso, tf; fso = new ActiveXObject("Scripting.FileSystemObject"); // 创建新文件 tf = fso.CreateTextFile("c://testfile.txt", true); // 填写数据，并增加换行符 tf.WriteLine("Testing 1, 2, 3.") ; // 增加3个空行 tf.WriteBlankLines(3) ; // 填写一行，不带换行符 tf.Write ("This is a test."); // 关闭文件 tf.Close(); （四）读取文件内容 从文本文件中读取数据要使用TextStream对象的Read、ReadLine或ReadAll 方法。Read方法用于读取文件中指定数量的字符；ReadLine方法读取一整行，但不包括换行符；ReadAll方法则读取文本文件的整个内容。读取的内容存放于字符串变量中，用于显示、分析。在使用Read或ReadLine方法读取文件内容时，如果要跳过一些部分，就要用到Skip或SkipLine方法。 下面的代码演示打开文件、填写数据，然后读取数据： var fso, f1, ts, s; var ForReading = 1; fso = new ActiveXObject("Scripting.FileSystemObject"); // 创建文件 f1 = fso.CreateTextFile("c://testfile.txt", true); // 填写一行数据 f1.WriteLine("Hello World"); f1.WriteBlankLines(1); // 关闭文件 f1.Close(); // 打开文件 ts = fso.OpenTextFile("c://testfile.txt", ForReading); // 读取文件一行内容到字符串 s = ts.ReadLine(); // 显示字符串信息 alert("File contents = '" + s + "'"); // 关闭文件 ts.Close(); （五）移动、拷贝和删除文件 对于以上三种文件操作，Javascript各有两种对应的方法：File.Move 或 FileSystemObject.MoveFile用于移动文件；File.Copy 或 FileSystemObject.CopyFile用于拷贝文件；File.Delete 或 FileSystemObject.DeleteFile用于删除文件。 下面的代码演示在驱动器C的根目录下创建一个文本文件，填写一些内容，然后将文件移动到/tmp目录下，再在目录/temp下面建立一个文件拷贝，最后删除这两个目录的文件： var fso, f1, f2, s; fso = new ActiveXObject("Scripting.FileSystemObject"); f1 = fso.CreateTextFile("c://testfile.txt", true); // 写一行 f1.Write("This is a test."); // 关闭文件 f1.Close(); // 获取C:/根目录下的文件句柄 f2 = fso.GetFile("c://testfile.txt"); // 移动文件到/tmp目录下 f2.Move ("c://tmp//testfile.txt"); // 拷贝文件到/temp目录下 f2.Copy ("c://temp//testfile.txt"); // 获取文件句柄 f2 = fso.GetFile("c://tmp//testfile.txt"); f3 = fso.GetFile("c://temp//testfile.txt"); // 删除文件 f2.Delete(); f3.Delete();

http://hi.baidu.com/ecentury/blog/item/a046aec2fe61fa1d0ff47733%2Ehtml