'使用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