第一步：OpenTextFile()或者OpenAsTextStream()第二步：Read 方法或者ReadAll 方法或者ReadLine 方法Write 方法WriteBlankLines 方法WriteLine 方法相关脚本参考：set fso=createobject(“scripting.filesystemobject“)set file=fso.opentextfile(“Test.txt“)s=file.readallfile.closes=replace(s,“A“,“B“)set file=fso.createtextfile(“#text.txt“)file.write sfile.closemsgbox “请查看#text.txt文件！“批量替换参考：http://blog.csdn.net/windone0109/article/details/5545575

File Access组件提供了访问计算机文件系统的方法和属性。我们可以使用File Access组件创建FileSystemObject对象，FileSystemObject对象有两种最常用的方法，一种用来创建文件，另一种是用来打开并读写文本文件。CreateTextFile方法获得你指定的文件名并创建该文件，它返回一个 TextStream对象，你可以用该对象在文件被创建后操作该文件，CreateTextFile方法的语法如下 : Set objTextStream=FileSystemObject.CreateTextFile(Filename,)下面作者给大家解释一下 CreateTextFile 方法的参数 　　1、Filename包含文件路径名的字符串，可以是文件的全路径名，包括驱动器名和目录名，或者也可以只是文件名，如果只包含文件名的话，文件将被创建在站点的根目录下。　　2、Overwrite布尔量，设置成False时可以防止FileSystemObject对象在创建一个新文件时删除已存在的文件，该参数是可选的，如果没有赋值系统默认为true，具有相同文件名的已有文件会被删掉。　　3、Unicode可选参数。布尔值指明是否以Unicode或ASCII文件格式创建文件。如果以Unicode文件格式创建文件，则该值为True；如果以ASCII文件格式创建文件，则该值为False。如果省略此部分，则假定创建ASCII文件。　　我们用 set ss=fs.CreateTextFile(syslog,ForWriting,false)来在log文件不存在的情况下创建文件并对文件进行写操作，这里的“ForWriting”表示写文件。　　与CreateTextFile方法不同,OpenTextFile方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作和CreateTextFile方法一样，OpenTextFile 方法返回一个TextStream对象，使得你可以在文件被打开后操作该文件。OpenTextFile 方法的语法如下 : Set objTextStream=FileSystemObject.OpenTextFile(Filename,) 参数说明如下 : 　1、Filename必须的变量，同CreateTextFile的filename　2、IOmode可选的常量，取值为下列两个常数之一ForReading或ForAppending，如果mode为 1，文件以只读方式打开，如果为8，则文件以追加的方式打开。　3、Create可选的布尔量，指定如果你想打开的文件不存在是做什么操作，如果其值为True，当文件不存在时就自动创建一个空的文件。如果为False，就会在文件没找到时产生一个出错信息，其默认值是False，建议将其设为True，以避免在打开文件时检查是否出错。 　4、Format可选值，可以选择三种Tristate值分别指定文件的格式，-2、-1、和0分别对应于系统缺省、unicode和ASCII。　　在打开或创建了文本文件后，就得到一个TextStream对象，下面列出了TextStream对象的属性和方法　TextStream.AtEndOfLine只读布尔量，当光标在当前行的末尾时，其值为true，否则为false　TextStream.AtEndOfStream只读布尔量，如果光标在流的末尾时，其值为true，否则为false　TextStream.Column只读的整数，统计从行首到当前光标位置之间的字符数　TextStream.Line只读的整数，指明光标所在行在整个文件中的行号　TextStream.close()关闭流以及对应的文本文件　TextStream.read(Num)指定从光标的当前位置开始从文本文件中读取一定数目的字符　TextStream.readall()将整个流读入一个字符串中　TextStream.readline()将一整行的字符读入一个字符串中　TextStream.write(text)将一个字符串写入流中　TextStream.writeline()将一个文本串写入流中　TextStream.skip(Num)在流中，将光标的位置移动一定数目的字符串长度　TextStream.skiplines()在流中，将光标移动一定数目的行数　TextStream.writeblank将一定数目的空行写入流中　lines(num)

创建文本文件，运行如下代码：Sub Test() Set myo = CreateObject(“Scripting.FileSystemObject“) Set myt = myo.CreateTextFile(ThisWorkbook.Path & “Text.txt“, True) myt.WriteLine (“hello“) myt.CloseEnd Sub

Set fso = CreateObject(“Scripting.FileSystemObject“)Set textfile = fso.CreateTextFile(“c:\abc.txt“, True, False)textfile.WriteLine (“ok“)textfile.CloseSet fso = Nothing

路径加上引号。Set fil = fso.CreateTextFile( “c:\test.txt“ , True)

;名称:set_doc.asm ;功能：建立文件 data segment FName db ’TEST.TXT’,0 FErr db ’File error...’, 07h, 0 FSucc db ’File success!’, 07h, 0 data ends code segment assume CS:code DS:data $start: mov AX, data mov AX, DS mov DX, offset FileName ;DS:DX=文件名字符串首地址mov AX, 3c00h int 21h jnc OKMsg ;新建成功，转mov SI, offset FErr ;失败信息显示mov DL, inc SI jz OVER mov AH, 2 int 21h OKMsg: mov SI, offset FSucc ;成功信息显示mov DL, inc SI jz over mov AH, 2 int 21h OVER: mov AH, 4ch int 21h code sends end $start

创建空文本文件（有时被叫做“文本流”）有三种方法。第一种方法是用 CreateTextFile 方法。 下面的示例示范了在 VBScript 中如何用这种方法来创建文本文件：Dim fso, f1Set fso = CreateObject(“Scripting.FileSystemObject“)Set f1 = fso.CreateTextFile(“c:\testfile.txt“, True)要在 Visual Basic Scripting Edition 中用这种方法，则使用下面的代码：var fso, f1;fso = new ActiveXObject(“Scripting.FileSystemObject“);f1 = fso.CreateTextFile(“c:\\testfile.txt“, true);创建文本文件的第二种方法是，使用 FileSystemObject 对象的 OpenTextFile 方法，并设置 ForWriting 标志。在 VBScript 中，代码就像下面的示例一样：Dim fso, tsConst ForWriting = 2Set fso = CreateObject(“Scripting. FileSystemObject“)Set ts = fso.OpenTextFile(“c:\test.txt“, ForWriting, True)要在 Visual Basic Scripting Edition 中使用这种方法来创建文本文件，则使用下面的代码：var fso, ts;var ForWriting= 2;fso = new ActiveXObject(“Scripting.FileSystemObject“);ts = fso.OpenTextFile(“c:\\test.txt“, ForWriting, true);创建文本文件的第三种方法是，使用 OpenAsTextStream 方法，并设置 ForWriting 标志。要使用这种方法，在 VBScript 中使用下面的代码：Dim fso, f1, tsConst ForWriting = 2Set fso = CreateObject(“Scripting.FileSystemObject“)fso.CreateTextFile (“c:\test1.txt“)Set f1 = fso.GetFile(“c:\test1.txt“)Set ts = f1.OpenAsTextStream(ForWriting, True)在 Visual Basic Scripting Edition 中，则使用下面示例中的代码：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);添加数据到文件中一旦创建了文本文件，使用下面的三个步骤向文件添加数据：打开文本文件。写入数据。关闭文件。要打开现有的文件，则使用 FileSystemObject 对象的 OpenTextFile 方法或 File 对象的 OpenAsTextStream 方法。要写数据到打开的文本文件，则根据下表所述任务使用 TextStream 对象的 Write、WriteLine 或 WriteBlankLines 方法。任务方法向打开的文本文件写数据，不用后续一个新行字符。 Write 向打开的文本文件写数据，后续一个新行字符。 WriteLine 向打开的文本文件写一个或多个空白行。 WriteBlankLines 要关闭一个打开的文件，则使用 TextStream 对象的 Close 方法。注意 新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。下面的 VBScript 例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：Sub CreateFile() Dim fso, tf Set fso = CreateObject(“Scripting.FileSystemObject“) Set tf = fso.CreateTextFile(“c:\testfile.txt“, True) ’ 写一行，并且带有新行字符。 tf.WriteLine(“Testing 1, 2, 3.“) ’向文件写三个新行字符。 tf.WriteBlankLines(3) ’写一行。 tf.Write (“This is a test.“) tf.CloseEnd Sub这个示例示范了在 Visual Basic Scripting Edition 中如何使用这三个方法：function CreateFile(){ var fso, tf; fso = new ActiveXObject(“Scripting.FileSystemObject“); tf = fso.CreateTextFile(“c:\\testfile.txt“, true); // 写一行，并且带有新行字符。 tf.WriteLine(“Testing 1, 2, 3.“) ; // 向文件写三个新行字符。 tf.WriteBlankLines(3) ; // 写一行。 tf.Write (“This is a test.“); tf.Close();}

　　一、功能实现核心：FileSystemObject 对象

要在javascript中实现文件操作功能，主要就是依靠FileSystemobject对象。

二、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); 四、操作文件夹（Folders） 涉及到文件夹的操作包括创建、移动、删除以及获取相关属性。 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);

（二）添加数据到文件 当文件被创建后，一般要按照“打开文件－》填写数据－》关闭文件”的步骤实现添加数据到文件的目的。 打开文件可使用FileSystemObject对象的OpenTextFile方法，或者使用File对象的OpenAsTextStream方法。 填写数据要使用到TextStream对象的Write、WriteLine或者WriteBlankLines方法。在同是实现写入数据的功能下，这3者的区别在于：Write方法不在写入数据末尾添加新换行符，WriteLine方法要在最后添加一个新换行符，而WriteBlankLines则增加一个或者多个空行。 关闭文件可使用TextStream对象的Close方法。 （三）创建文件及添加数据例程 下面的代码将创建文件、添加数据、关闭文件几个步骤结合起来进行应用： 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方法则读取文本文件的整个内容。读取的内容存放于字符串变量中，用于显示、分析。 方法或者属性 描述 BuildPath() 生成一个文件路径 CopyFile() 复制文件 CopyFolder() 复制目录 CreateFolder() 创建新目录 CreateTextFile() 生成一个文件 DeleteFile() 删除一个文件 DeleteFolder() 删除一个目录 DriveExists() 检验盘符是否存在 Drives 返回盘符的集合 FileExists() 检验文件是否存在 FolderExists 检验一个目录是否存在 GetAbsolutePathName() 取得一个文件的绝对路径 GetBaseName() 取得文件名 GetDrive() 取得盘符名 GetDriveName() 取得盘符名 GetExtensionName() 取得文件的后缀 GetFile() 生成文件对象 GetFileName() 取得文件名 GetFolder() 取得目录对象 GetParentFolderName 取得文件或目录的父目录名 GetSpecialFolder() 取得特殊的目录名 GetTempName() 生成一个临时文件对象 MoveFile() 移动文件 MoveFolder() 移动目录 OpenTextFile() 打开一个文件流 f.Files //目录下所有文件集合 f.attributes //文件属性 Case 0 Str=“普通文件。没有设置任何属性。 “ Case 1 Str=“只读文件。可读写。 “ Case 2 Str=“隐藏文件。可读写。 “ Case 4 Str=“系统文件。可读写。 “ Case 16 Str=“文件夹或目录。只读。 “ Case 32 Str=“上次备份后已更改的文件。可读写。 “ Case 1024 Str=“链接或快捷方式。只读。 “ Case 2048 Str=“ 压缩文件。只读。“ f.Datecreated // 创建时间 f.DateLastAccessed //上次访问时间 f.DateLastModified // 上次修改时间 f.Path //文件路径 f.Name //文件名称 f.Type //文件类型 f.Size // 文件大小（单位：字节） f.ParentFolder //父目录 f.RootFolder // 根目录 实例说明 BuildPath(路径,文件名) //这个方法会对给定的路径加上文件，并自动加上分界符 

《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); var newpath = fso.BuildPath(“c://tmp“, “51js.txt“); //生成 c:/tmp/51js.txt的路径 alert(newpath); --》 《/SCRIPT》 CopyFile(源文件, 目标文件, 覆盖) //复制源文件到目标文件，当覆盖值为true时，如果目标文件存在会把文件覆盖 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); var newpath = fso.CopyFile(“c://autoexec.bat“, “d://autoexec.bak“); --》 《/SCRIPT》 CopyFolder(对象目录,目标目录 ,覆盖) //复制对象目录到目标目录，当覆盖为true时，如果目标目录存在会把文件覆盖 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); fso.CopyFolder(“c://WINDOWS//Desktop“, “d://“); //把C盘的Desktop目录复制到D盘的根目录 --》 《/SCRIPT》 CreateFolder(目录名) //创建一个新的目录 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); var newFolderName = fso.CreateFolder(“c://51JS“); //在C盘上创建一个51JS的目录 --》 《/SCRIPT》 CreateTextFile(文件名, 覆盖) //创建一个新的文件，如果此文件已经存在，你需要把覆盖值定为true 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); var newFileObject = fso.CreateTextFile(“c://autoexec51JS.bat“, true); //脚本将在C盘创建一个叫 autoexec51JS.bat的文件 --》 《/SCRIPT》 DeleteFile(文件名, 只读？) //删除一个文件，如果文件的属性是只读的话，你需要把只读值设为true 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); //为了安全我先把要删除的autoexec.bat备份到你的D盘 var newpath = fso.CopyFile(“c://autoexec.bat“, “d://autoexec.bat“); //把C盘的autoexec.bat文件删除掉 fso.DeleteFile(“c://autoexec.bat“, true); --》 《/SCRIPT》 DeleteFolder(文件名, 只读？)//删除一个目录，如果目录的属性是只读的话，你需要把只读值设为true 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); fso.CopyFolder(“c://WINDOWS//Desktop“, “d://“); //为了安全我先把你C盘的Desktop目录复制到你D盘的根目录 fso.DeleteFolder(“c://WINDOWS//Desktop“, true); //把你的Desktop目录删除，但因为desktop是系统的东西，所以不能全部删除，但......... --》 《/SCRIPT》 DriveExists(盘符) //检查一个盘是否存在，如果存在就返会真，不存在就返回....... 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); hasDriveD = fso.DriveExists(“d“); //检查系统是否有D盘存在 hasDriveZ = fso.DriveExists(“z“); //检查系统是否有Z盘存在 if (hasDriveD) alert(“你的系统内有一个D盘“); if (!hasDriveZ) alert(“你的系统内没有Z盘“); --》 《/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(目录名) //检查一个目录是否存在，如果存在就返会真，不存在就返回....... 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); folderName = fso.FolderExists(“c://WINDOWS//Fonts“); if (folderName) alert(“按下确定后系统的字库将被删除！“); //开个玩笑:) --》 《/SCRIPT》 GetAbsolutePathName(文件对象) //返回文件对象在系统的绝对路径 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); pathName = fso.GetAbsolutePathName(“c://autoexec.bat“); alert(pathName); --》 《/SCRIPT》 GetBaseName(文件对象) //返回文件对象的文件名 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); baseName = fso.GetBaseName(“c://autoexec.bat“); //取得autoexec.bat的文件名autoexec alert(baseName); --》 《/SCRIPT》 GetExtensionName(文件对象) //文件的后缀 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); exName = fso.GetExtensionName(“c://autoexec.bat“); //取得autoexec.bat后缀bat alert(exName); --》 《/SCRIPT》 GetParentFolderName(文件对象) //取得父级的目录名 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); parentName = fso.GetParentFolderName(“c://autoexec.bat“); //取得autoexec.bat的父级目录C盘 alert(parentName); --》 《/SCRIPT》 GetSpecialFolder(目录代码) //取得系统中一些特别的目录的路径，目录代码有3个分别是 0:安装Window的目录 1:系统文件目录 2:临时文件目录 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); tmpFolder = fso.GetSpecialFolder(2); //取得系统临时文件目录的路径 如我的是 C:/windows/temp alert(tmpFolder); --》 《/SCRIPT》 GetTempName() //生成一个随机的临时文件对象，会以rad带头后面跟着些随机数，就好象一些软件在安装时会生成*.tmp 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); tmpName = fso.GetTempName(); //我在测试时就生成了radDB70E.tmp alert(tmpName); --》 《/SCRIPT》 MoveFile(源文件, 目标文件) //把源文件移到目标文件的位置 《SCRIPT LANGUAGE=“JavaScript“》 《!-- var fso = new ActiveXObject(“Scripting.FileSystemObject“); var newpath = fso.MoveFile(“c://autoexec.bat“, “d://autoexec.bat“); //把C盘的autoexec.bat文件移移动到D盘 --》

1.打开顺序访问文件当以顺序型访问打开一个文件时，可执行以下操作：从文件输入字符(Input)向文件输出字符(Output)把字符加到文件(Append)要顺序型访问打开一个文件，Open语句使用以下语法：OpenpathnameFor[Input|Output|Append]Asfilenumber[Len=buffersize]从文件中读取字符串要检索文本文件的内容，应以顺序Input方式打开该文件。然后使用LineInput#，Input()，或者Input#语句将文件拷贝到程序变量中。LineInput#FileNum,NextLineInput#FileNum,name,street,city,state,zipLinesFromFile=Input(n,FileNum)要在顺序文件中存储变量的内容，应以顺序Output或Append打开它，然后使用Print#语句。例如，文本器可以使用以下代码行来把一个文本框的内容拷贝到文件。Print#FileNum,TheBox.TextVisualBasic也支持Write#语句，它把一列数字和/或字符串表达式写入文件。它自动地用逗号分开每个表达式，并且在字符串表达式端放置引号。Write#FileNumAnyString,AnyNumber注意如果正在用顺序型访问的Write#与Input#语句，可考虑换用随机型或二进制型访问，因为它们更适合面向于记录的数据。2.打开随机访问的文件要打开随机访问的文件，Open语句使用以下语法：Openpathname[ForRandom]AsfilenumberLen=reclength因为Random是缺省的访问类型，所以ForRandom关键字是可选项。可用以下代码打开文件：Open“MYFILE.FIL“ForRandomAsFileNumLen=RecLength把记录读入变量使用Get语句把记录复制到变量。GetFileNum,Position,Employee把变量写入记录使用Put语句把记录添加或者替换到随机型访问打开的文件。替换记录要替换记录，请使用Put语句，指定想要替换的记录位置，例如：Put#FileNum,Position,Employee添加记录要向随机访问打开的文件的尾端添加新记录，应使用前述代码段中所示的Put语句。把Position变量的值设置为比文件中的记录数多1。例如，要在一个包含五个记录的文件中添加一个记录，把Position设置为6。LastRecord=LastRecord+1Put#FileNum,LastRecord,Employee删除记录通过清除其字段可以删除一个记录，但是该记录仍在文件中存在。通常文件中不能有空记录，因为它们会浪费空间且会干扰顺序操作。最好把余下的记录拷贝到一个新文件，然后删除老文件。3.打开二进制型访问的文件要为二进制型访问打开文件，应使用以下Open语句的语法：OpenpathnameForBinaryAsfilenumber通过使用二进制型访问可使磁盘空间的使用降到最小。因为这不需要固定长度的字段，类型声明语句可以省略字符串长度参数。4.用FileSystemObjects创建文件并添加数据有三种不同方法来创建一个顺序文本文件（有时被称为“文本流”）。一种方法就是使用CreateTextFile方法。要创建一个空文本文件，可以：DimfsoAsNewFileSystemObject,filAsFileSetfil=fso.CreateTextFile(“c:\testfile.txt“,True)另一种方法是使用FileSystemObject对象的OpenTextFile方法，该对象的ForWriting标志设置为：DimfsoAsNewFileSystemObject,tsAsNewTextStreamSetts=fso.OpenTextFile(“c:\test.txt“,ForWriting)或者使用带ForWriting标志设置的OpenAsTextStream方法：DimfsoAsNewFileSystemObject,filAsFile,tsAsTextStreamSetfso=CreateObject(“Scripting.FileSystemObject“)fso.CreateTextFile(“test1.txt“)Setfil=fso.GetFile(“test1.txt“)Setts=fil.OpenAsTextStream(ForWriting)添加数据到文件文本文件一经创建，就可以分三步向其中加入数据：打开文本文件以备写入数据。写入数据。关闭文件。要打开文件，可以使用下面两种方法中的任一种：File对象的OpenAsTextStream方法，或FileSystemObject对象的OpenTextFile方法。要向打开的文本文件中写入数据，可以使用TextStream对象的Write或WriteLine方法。它们之间的唯一差别是WriteLine在指定的字符串末尾添加换行符。如果想要向文本文件中添加一个空行，请使用WriteBlankLines方法。要关闭一个已打开的文件，请使用TextStream对象的Close方法。例：SubCreate_File()Dimfso,txtfileSetfso=CreateObject(“Scripting.FileSystemObject“)Settxtfile=fso.CreateTextFile(“c:\testfile.txt“,True)txtfile.Write(“这是一个测试例子。“)’写入一行。’写入一行带有换行符的文本。txtfile.WriteLine(“Testing1,2,3.“)’向文件中写入三个换行符。txtfile.WriteBlankLines(3)txtfile.CloseEndSub使用FileSystemObjects读取文件要从一个文本文件中读取数据，请使用TextStream对象的Read、ReadLine或ReadAll方法：任务方法从一个文件中读取指定数量的字符Read读取一整行（紧跟，但不包括，换行符）ReadLine读取一个文本文件的所有内容ReadAll如果使用Read或ReadLine方法并且想要跳过数据的某些部分，可以使用Skip或SkipLine方法。这些读取方法产生的文本被存储在一个字符串中，而这个字符串可以在一个控件中显示，也可以被字符串操作符分解（诸如Left、Right和Mid）、合并等等。注意vbNewLine常数包含一个或多个字符（取决于操作系统）使得光标移至下一行的开头（回车/换行）。请注意，有的字符串末尾可能有这样的非打印字符。