File System Object

FSO对象模型在VB中的应用 
            从 Visual Basic 的第一版至今，VB中有关文件的处理都是通过使用 Open
            、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展，加上面向对象编程概念的日臻成熟，这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此，从VB6.0开始，微软提出了一个全新的文件系统对象FSO。

            一、简介
            文件系统对象FSO的英文全称是File System Object
            ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

            FSO
            对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除，而且可以检测是否存在指定的文件夹，如果存在，那么，这个文件夹又位于磁盘上的什么位置。更令人高兴的是FSO
            对象模型还可以获取关于文件和文件夹的信息，如名称、创建日期或最近修改日期等以及当前系统中使用的驱动器的信息，如驱动器的种类是CD－ROM还是可移动磁盘，当前磁盘的剩余空间还有多少。而以前要获取这些信息必须通过调用Windows
            API函数集中的相应函数才能实现。
            FSO对象模型包含在Scripting 类型库
            (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。其中Drive用来收集驱动器的信息，如可用磁盘空间或驱动器的类型；Folder用于创建、删除或移动文件夹，同时可以进行向系统查询文件夹的路径等操作；File的基本操作和Folder基本相同，所不同的是Files的操作主要是针对磁盘上的文件进行的；FileSystemObject是FSO对象模型中最主要对象，它提供了一套完整的可用于创建、删除文件和文件夹，收集驱动器、文件夹、文件相关信息的方法。需要注意的是，FSO对象模型提供的方法是冗余的，也就是说在实际使用中，FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作，而且FileSystemObject对象的方法直接作用于其余对象，所以在后面的文章中并没有单独提到FileSystemObject对象，千万不要以为没有提到就不重要，事实上FileSystemObject对象在整个FSO对象模型中无处不在；最后的TextStream对象则是用来完成对文件的读写操作的。

            在初步了解了FSO对象模型之后，下面我们通过实际的代码对不同的对象进行进一步的阐述。
            二、FSO对象模型的应用
            （一）创建FSO对象模型
            由于FSO对象包含在Scripting 类型库
            (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft
            Scripting Runtime”前的复选框，然后单击“确定”。
            要创建FSO对象可以采用两种方法，一种是将一个变量声明为FSO对象类型：Dim fsoTest As New
            FileSystemObject；另一种是通过CreateObject方法创建一个FSO 对象：Set fsoTest =
            CreateObject(“Scripting.FileSystemObject")。在实际使用中具体采用哪种声明方法，可根据个人的使用习惯而定。

            完成了FSO对象模型的创建之后，就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了，具体的方法在下面结合各个对象分别讲述。

            （二）Drive对象
            上面已经提到Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法，其应用都是通过属性表现出来的，所以我们必须熟悉Drive对象的属性：

            AvailableSpace：返回在指定的驱动器或网络共享上的用户可用的空间容量。
            DriveLetter ：返回某个指定本地驱动器或网络驱动器的字母，这个属性是只读的。
            DriveType：返回指定驱动器的磁盘类型。
            FileSystem： 返回指定驱动器使用的文件系统类型。
            FreeSpace：返回指定驱动器上或共享驱动器可用的磁盘空间，这个属性是只读的。
            IsReady：确定指定的驱动器是否准备好。

 

      作者：lvcii   2006-9-20 20:37 　 回复此发言  

 

      2fso
            Path ：返回指定文件、文件夹、或驱动器的路径。
            RootFolder ：返回一个 Folder 对象，该对象表示一个指定驱动器的根文件夹。只读属性。
            SerialNumber：返回用于唯一标识磁盘卷标的十进制序列号。
            ShareName：返回指定驱动器的网络共享名
            TotalSize ：以字节为单位，返回驱动器或网络共享的总空间大小。
            VolumeName ：设置或返回指定驱动器的卷标名。
            从上面的属性可以看到Drive对象基本上包含了日常操作所需的全部的驱动器信息，因此在使用中是非常方便的。下面通过一个实例讲述Drive对象的使用。首先在VB中建立一个工程，然后添加一个命令按钮，将其Caption设置为“TestDrive”，然后在click事件中加入以下代码：

            Dim fsoTest As New FileSystemObject 
            Dim drv1 As Drive, sReturn As String
            Set drv1 = fsoTest.GetDrive(“C:/")
            sReturn = “Drive " ＆ “C:/" ＆ vbCrLf
            sReturn = sReturn ＆ “VolumeName" ＆ drv1.VolumeName ＆ vbCrLf
            sReturn = sReturn ＆ “Total Space: " ＆ FormatNumber(drv1.TotalSize /
            1024, 0)
            sReturn = sReturn ＆ “Kb" ＆ vbCrLf
            sReturn = sReturn ＆ “Free Space: " ＆ FormatNumber(drv1.FreeSpace /
            1024, 0)
            sReturn = sReturn ＆“Kb" ＆ vbCrLf
            sReturn = sReturn ＆“FileSystem:" ＆ drv1.FileSystem ＆ vbCrLf
            MsgBox sReturn
            其中GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。该方法的语法格式为object.GetDrive
            drivespec，object是一个FSO对象的名称，drivespec用于指定驱动器的名称。
            按F5运行上述代码，按下TestDrive按钮就会弹出一个消息框显示C盘的信息。
            （三）Folder对象
            在FSO 对象模型中，提供了丰富的有关文件夹操作的方法，这些方法分别是：
            FileSystemObject对象有关文件夹的方法：
            CreateFolder ：创建一个文件夹 。
            DeleteFolder：删除一个文件夹 。
            MoveFolder ：移动一个文件夹 。
            CopyFolder：复制一个文件夹 。
            FolderExists： 查找一个文件夹是否在驱动器上 。
            GetFolder ：获得已有Folder对象的一个实例 。
            GetParentFolderName： 找出一个文件夹的父文件夹的名称。
            GetSpecialFolder： 找出系统文件夹的路径。
            Folder对象的方法：
            Delete ：创建一个文件夹 。
            Move ：移动一个文件夹 。
            Copy：复制一个文件夹。
            Name：检索文件夹的名称。
            在此需要强调一点，前面我们曾经提到过FSO对象模型包含的方法是冗余的，所以Folder对象的Delete、Move、Copy方法和FileSystemObject对象的DeleteFolder、MoveFolder、CopyFolder方法实际上是相同的，因此在实际使用中可以任选其中的一种。

            和Drive对象一样，下面通过实例演示Folder对象的应用。在VB下新建一个工程，然后在上面添加三个命令按钮，然后在Form1的通用部分加入以下代码：

            Option Explicit
            Dim fsoTest As New FileSystemObject
            Dim folder1 As Folder
            并且分别在三个命令按钮的click事件输入以下代码：
            Private Sub CmdCreate_Click()
            ' 获取 Folder 对象。
            Set folder1 = fsoTest.GetFolder(“C:")
            '创建文件夹
            fsoTest.CreateFolder (“C:/Test")
            MsgBox “folder C:/Test has created"
            End Sub
            Private Sub CmdDelete_Click()
            ' 获取 Drive 对象。
            Set folder1 = fsoTest.GetFolder(“C:")
            '删除文件夹 
            fsoTest.DeleteFolder (“C:/Test")
            MsgBox“folder C:/Test has deleted"
            End Sub
            Private Sub CmdGetPro_Click()
            '获取文件夹的有关信息 
            Dim sReturn As String
            Set folder1 = fsoTest.GetFolder(“C:/Windows")
            'sReturn = “The folder's Attributes is " ＆ folder1.Attributes ＆
            vbCrLf
            '获取最近一次访问的时间
            sReturn = sReturn ＆ “The folder's last access time is " ＆
            folder1.DateLastAccessed ＆ vbCrLf
3fso
            '获取最后一次修改的时间
            sReturn = sReturn ＆ “The folder's last modify time is " ＆
            folder1.DateLastModified ＆ vbCrLf
            '获取文件夹的大小
            sReturn = sReturn ＆ “The folder's size is " ＆
            FormatNumber(folder1.Size / 1024, 0)
            sReturn = sReturn ＆ “Kb" ＆ vbCrLf
            '判断文件或文件夹类型
            sReturn = sReturn ＆ “The type is " ＆ folder1.Type ＆ vbCrLf
            MsgBox sReturn
            End Sub
            上述代码中提到的CreateFolder方法的语法形式为object.CreateFolder(foldername)。foldername指定了要创建的文件夹的名称，而DeleteFolder方法的语法形式为object.DeleteFolder
            folderspec[,force]，其中，folderspec用来指定要删除的文件夹的名称，force是一个可选的布尔型参数，如果希望删除只读属性的文件夹则将该值设为TRUE，默认为FALSE。至于代码中用到的
            Folder 对象的属性限于篇幅，就不详细介绍了，读者可参考VB文档中的相关内容。
            （四）File对象和TextStream对象
            由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。

            通常对文本文件的操作包括在文本文件中创建数据，在文本文件中添加数据，删除文本文件的数据等操作。这些操作都可以通过File对象和FileSystemObject对象的相关方法完成。不过在使用之前，首先要创建一个文本文件，这可以通过三种方法完成。一种方法是使用FileSystemObject对象的
            CreateTextFile 方法。要创建一个空文本文件，可以用以下语句：
            Dim fsoTest As New FileSystemObject, fil1 As File
            Set fil 1= fsoTest.CreateTextFile(“c:/testfile.txt", True)
            第二种方法是使用 FileSystemObject 对象带 ForWriting 标志设置的 OpenTextFile 方法，
            Dim fsoTest As New FileSystemObject, ts1 As New TextStream
            Set ts1 = fsoTest.OpenTextFile(“c:/testfile.txt", ForWriting)
            第三种方法是使用File对象的带 ForWriting 标志设置的 OpenAsTextStream 方法：
            Dim fsoTest As New FileSystemObject, fil 1As File, ts 1As TextStream

            Set fsoTest = CreateObject(“Scripting.FileSystemObject")
            fsoTest.CreateTextFile (“c:/testfile.txt")
            Set fil1 = fsoTest.GetFile(“c:/testfile.txt")
            Set ts1 = fil1.OpenAsTextStream(ForWriting)
            其中CreateTextFile方法的第一个参数用来指定，第二个参数用来指定如果磁盘上已经存在要创建的文件是否覆盖，TRUE表示覆盖，FALSE表示不覆盖，省略表示不覆盖；OpenTextFile方法的第一个参数确定要打开的文本文件，第二个参数表示对该文件进行写操作；OpenAsTextStream方法的参数和OpenTextFile方法的第二个参数含义相同。

            在创建了写入数据的文本之后就可以利用TextStream 对象的 Write 或 WriteLine 方法了，它们之间的区别在于
            WriteLine 在指定的字符串末尾添加换行符，而Write方法没有。如果想要向文本文件中添加一个空行，可以使用
            WriteBlankLines 方法。
            在完成写的动作之后，用Close方法关闭打开的文本文件。如果要读取一个存在的文本文件的内容，就要用到 TextStream 对象的
            Read、 ReadLine 或 ReadAll 方法；这些方法的区别是 Read：从一个文件中读取指定数量的字符
            ；ReadLine：读取一整行（紧跟，但不包括，换行符）； ReadAll
            ：读取一个文本文件的所有内容。下面在一个VB的工程中演示上述的效果。
            在VB中新建一个工程，然后在Form1上添加两个命令按钮，然后输入以下代码：
            Private Sub CmdRead_Click()
            Dim fsoTest As New FileSystemObject, file1 As File, ts As
            TextStream, s As String
            Set file1 = fsoTest.GetFile(“C:/testfile.txt")
            Set ts = file1.OpenAsTextStream(ForReading)
            '读取一行
            s = ts.ReadLine
            MsgBox s
            ts.Close
            End Sub
            Private Sub CmdWrite_Click()
            Dim txtfile As File, ts As TextStream
            Set txtfile = fsoTest.GetFile(“c:/testfile.txt")
            Set ts = txtfile.OpenAsTextStream(ForWriting)
            '使用Write方法写入一行。
            ts.Write (“This is only a Test")
            ' 写入一行带有换行符的文本。
            ts.WriteLine (“Testing 1, 2, 3.")
            ' 向文件中写入三个换行符。
            ts.WriteBlankLines (3)
            ts.Close
            End Sub
            在这里我们假设已经在磁盘上建立了一个名为testfile.txt的文件。在按下F5运行时，先单击Write写入数据，然后按下Read读取数据。

            三、结束语
            通过上面的介绍，我们可以看到FSO对象模型的确在传统的文件操作语句之外，提供了一种更方便，功能更强大的访问文件的操作方法。不过，我们还需要注意到FSO对象模型目前还不完善，当前使用的FSO对象模型还不支持创建随机文件或二进制文件。要创建随机文件和二进制文件，仍然要使用带
            Random 或 Binary 标志的 Open
            命令。但从目前FSO对象模型的实际应用来看，我们仍然可以将FSO对象模型作为一种比较简便的文件操作解决方案。
            注：上述代码均在VB6.0 SR3，

 

 

File System Object
　　在ASP中，FSO的意思是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。
就是说，并非仅仅限制在ASP中应用它。
　　
FSO方法列表

　　CopyFile 拷贝一个或者多个文件到新路径
　　CreateTextFile 创建文件并且返回一个TextStream对象
　　DeleteFile 删除一个文件
　　OpenTextFile
打开文件并且返回TextStream对象，以便读取或者追加。如果想了解完整的FSO方法与属性，请查阅微软MSDN。下面来看几个例子。
　　
权限许可

　　　上面讨论了基本知识，然后说说权限许可的问题。FSO以创建它的用户帐户权限运行，换言之，如果有人从Internet上访问你的页面，那么这个internet帐户就创建FSO。如果以administrator的身份登录计算机，并且登录页面，那么administrator帐户就创建了FSO。这是非常重要的，因为一定的帐户拥有一定的权限，并且FSO需要一些权限从而能完整的执行功能。internet帐户（IUSER_MachineName，MachineName是服务器的名字）一般只拥有读权限，这意味着用户将不能写入留言簿文件。然而，有几个选择可以绕过这个问题。
　　首先，也是很困难的，是要求用户在填写留言簿前登录到服务器。然而，留言簿的要点是从匿名用户处收集信息，如
　　果要求用户登录，就必须要知道他们是谁。因此，跳过这个选择，看下一个。
　　第2个方法是创建一个目录或者文件，IUSER_MachineName用户对此有写权限。这样做可能开放了一些潜在的安全漏
　　洞，因为任何知道正确目录并具备一定web技巧的人就能在服务器上填充内容。这是一个很严重的禁忌。所以你必须确认在
　　隐藏的场所保存了这些可写目录的信息，并且尽可能地将这些目录设置在web目录结构以外（比如在Windows下，这是一个
　　不在inetpub目录下的一个目录）。
　　
文件读取

　　　现在已经有了一些用户信息保存在文件中，就像一个简单的数据库。假设有一个用户想了解所有的访问者，就要从登记的信息中分离出相关部分，因为没有象数据库一样拥有结构化的列。
　　我们知道，在所创建的文件中，第1行是用户名，第2行是他们的主页，第3行是他们的电子邮件地址。随后登记的用户也是按照这样的结构存储他们的信息，所以每3行将包含一个用户的登记信息。知道了这些，就可以编写下面的代码来显示信息：
　　< %
　　' create the fso object
　　set fso = Server.Createobject("Scripting.FileSystemObject")
　　path = "c: emp est.txt"
　　' open the file
　　set file = fso.opentextfile(path, 1) 'For reading
　　'接着，分析每一行，并且格式化数据：
　　do until file.AtEndOfStream
　　Response.write("Name: " & file.ReadLine & " ")
　　Response.write("Home Page: " & file.ReadLine & " ")
　　Response.write("Email: " & file.ReadLine & "< p>")
　　loop
　　' close and clean up
　　file.close
　　set file = nothing
　　set fso = nothing
　　%>
　　这里仅仅做了一个非常简单的输出，但是你可以根据情况包含表格或者DHTML表单信息。
　　如果已经正确地建立并写入了文件，上面的小小循环将合适地列出数据库中的每一个人的信息。ReadLine方法读取1
　　行内容，直到遇到换行符，随后的ReadLine调用将读取下一行。AtEndOfStream是TextStream对象的属性，它告诉我们何时
　　遇到文件的尾部。
　　假设由于某种原因，我们没有正确地形成文件，如果一个用户只有2行信息而不是3行，那么就会产生一些错误。我们
　　这里的循环取回文件中的下3行信息，如果没有3行多的信息，就将出现如下的错误信息：
　　Server object error 'ASP 0177 : 800a003e'
　　所以，一定要添加一些错误处理代码，以防文件中插入了多余的行或者少了必要的行信息。
　　
写文件

　　　假设你想创建一个简单的留言簿，你可以建立一个数据库，在其中存储用户的信息。然而，如果并不需要数据库的强大功能，使用FSO来存储信息将节省你的时间和金钱。并且，一些ISP也许限制了web上的数据库应用。假设你在一个表单中收集了一些用户信息，这里是一个简单表单HTML代码：
　　< html>
　　< body>
　　< form action="formhandler.asp" method="post">
　　< input type="text" size="10" name="username">
　　< input type="text" size="10" name="homepage">
　　< input type="text" size="10" name="Email">
　　< /form>
　　< /body>
　　< /html>
　　再看看formhandler.asp中处理表单的代码：
　　< %
　　' Get form info
　　strName = Request.Form("username")
　　strHomePage = Request.Form("homepage")
　　strEmail = Request.Form("Email")
　　' create the fso object
　　Set fso = Server.CreateObject("Scripting.FileSystemObject")
　　迄今为止，还没有新鲜的东西，无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分 － 写文件：
　　path = "c: emp est.txt"
　　ForReading = 1, ForWriting = 2, ForAppending = 3
　　' open the file
　　set file = fso.opentextfile(path, ForAppending, TRUE)
　　' write the info to the file
　　file.write(strName) & vbcrlf
　　file.write(strHomePage) & vbcrlf
　　file.write(strEmail) & vbcrlf
　　' close and clean up
　　file.close
　　set file = nothing
　　set fso = nothing
　　回想一下，OpenTextFile方法返回一个TextStream对象，它是FSO模型中的另外一个对象。TextStream对象揭示了操作文件内容的方法，比如写、读一行、跳过一行。VB常量vbcrlf产生一个换行符。
　　在OpentextFile的命令参数中定义了TRUE，这就告诉了系统，如果文件不存在，就创建它。如果文件不存在，并且没有定义TRUE参数，就会出错。
　　现在转到目录c: emp，打开test.txt，你可以看到如下的信息：
　　User's name
　　User's home page
　　User's email
　　当然，这些单词可以被输入在表单中的任何内容所替换。
　　
使用FSO进行搜索

　　　你也许想：好，现在我知道如何写入文件了。但能做到更多一些吗？下面来试一试为web站点建立一个搜索功能。建立搜索引擎的关键是递归。主要地，编写一段代码搜索目录下的文件，然后对所有的目录循环执行同样的代码。因为不能确定总共有多少个子目录，所以必须一遍又一遍地执行搜索代码，直到结束。递归调用非常好！下面来创建搜索页面。假设已经建立了一个HTML表单，用户在其中输入一个搜索字符串。
　　Dim objFolder
　　Dim strSearchText
　　Dim objFSO
　　strSearchText = Request.Form("SearchText") < -- The search string
　　' create the FSO and Folder objects
　　Set fso = Server.CreateObject("Scripting.FileSystemObject")
　　Set objFolder = objFSO.GetFolder(Server.MapPath("/"))
　　Search objFolder
　　上面的代码简单地初始化变量，Search函数执行搜索功能，描述如下：
　　Function Search(objFolder)
　　Dim objSubFolder
　　'loop through every file in the current
　　folder
　　For Each objFile in objFolder.Files
　　Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) < -- For Reading
　　'read the file's contents into a
　　variable
　　strFileContents = objTextStream.ReadAll
　　'if the search string is in the file, then
　　write a link
　　' to the file
　　If InStr(1, strFileContents, strSearchText, 1) then
　　Response.Write "< A HREF=""/" & objFile.Name & _
　　""">" & objFile.Name & "< /A>< BR>"
　　bolFileFound = True
　　End If
　　objTextStream.Close
　　Next
　　'Here's the recursion part - for each
　　' subfolder in this directory, run the Search function again
　　For Each objSubFolder in objFolder.SubFolders
　　Search objSubFolder
　　Next
　　End Function
　　为了能打开文件，FSO需要实际的文件路径，而不是web路径。比如，是c:inetpubwwwroot empindex.html, 而不是
　　www.enfused.com/temp/index.html 或者 /temp/index.html。
为了将后者转换为前者，使用Server.MapPath
　　("filename"), filename表示web路径名。
　　上面的代码将在你指定的初始目录下的文件夹的每一个子目录中执行，在这里，初始目录是指web根目录“/”。然后
　　就简单地打开目录下的每一个文件，看看其中是否包含指定的字符串，如果找到字符串就显示那个文件的链接。
　　注意，随着文件和子目录数量的增加，搜索花费的时间也将增加。如果需要繁重的搜索工作，建议你采取其他的方
　　法，比如微软公司的索引服务器Index Server。
　　
用FSO进行内容管理

　　　到此，你对FSO可能已经有了很好的体会。让我们再深入研究一步，来解决更复杂的难题。首先，你可能希望对文件改名。为了跟踪所有的文档，你将要重新命名它们以便唯一，这样就可以被系统容易地区别。很不幸，FSO不允许简单的文件改名操作，所以我们不得不修改一下。

　　< %
　　' create the fso object
　　set fso = Server.Createobject("Scripting.FileSystemObject")
　　path = "c: emp est.txt"
　　strDate = Replace(Date(), "/", "")
　　strDir = "c:inetpubwwwrootarticles" & strDate
　　strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
　　second(Now) & ".html"
　　' open the old file
　　set file = fso.opentextfile(path, 1) < -- For reading
　　strText = file.readall
　　set file = nothing
　　' check for and/or create folder
　　if not fso.folderexists(Server.MapPath(strDir)) then
　　set f = fso.CreateFolder(Server.MapPath(strDir))
　　else
　　set f = fso.GetFolder(Server.MapPath(strDir))
　　end if
　　' create and write new file
　　set file = fso.Createtextfile(f.path & "" & strNewFileName)
　　file.write(strText)
　　set f = nothing
　　file.close
　　set file = nothing
　　' delete the old file
　　fso.DeleteFile(path & "" & rst("FileName") & i)
　　' clean up
　　set fso = nothing
　　%>
　　FSO能力的不足在这里却成了优势，我们可以一次执行2步。首先，打开文件并读入文件的内容。假设这里要创建一个
　　唯一的文件夹和一个唯一的文件来存储文章。然而，因为文件夹的路径每天都将改变，所以必须首先检查是否文件夹已经
　　存在，如果不存在，就创建它。这在if not fso.folderexists代码段完成。然后，取得那个路径，创建一个新的文件。新
　　文件建立完成后，删除掉旧文件，这通过fso.DeleteFile来完成。
　　这2步就是：对文件改名，然后移动到一个更合适的目录下。注意，在这里还可以对文件进行更多地操作，比如在写
　　入新文件前进行一下内容的编辑。
　　
FSO不能做到的

　　　FSO确实存在一些弱点 － 比如，它很难处理二进制文件，这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 －
移动它们、删除它们，等等。你不能做的就是对它们进行打开或者写操作。
　　另外一个限制是对于文件长度的问题。当立刻读写一些内容时，所有的信息都存储在内存中 －
内容越多，消耗的内存就越大。这将使每个工作都变得慢起来。所以，如果需要操作非常大的文件，或者大量的小文件时，考虑将文件分割成小块，并且经常的清除内存。将应用程序融入进COM对象组件，也能大大地提高程序的速度。
　　同样，你也不能使用FSO来管理权限以及文件、文件夹的属性，执行安全加密的一个很好方法就是将前面提到的留言簿文件设置为只读，在需要时再设置为可写，然后再修改回来。这个方法经常在CGI和Perl使用，但是很不幸，还没有令人满意的方法来用FSO实现。　
　　
很少被了解的FSO功能

　　　在FSO中还有许多很棒的功能，但许多人没有意识到。这些功能常常是在你感到做某些事情很难后才发现的，这时你经常要感叹到：要是我早知道这个方法就好了！
　　下面列举一下这些不常用但是却非常酷的功能：
　　GetSpecialFolder Method 返回特定的Windows文件夹的路径:
Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])
　　GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时
　　GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。
　　比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion"
　　GetExtensionName Method 返回路径中最后部分的扩展名
　　(比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt)
　　GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹
　　(比如：FSO.GetParentFolder ("c:docsmydocs") 将返回'docs')
　　Drives Property 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。
　　使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。
[编辑本段]Free Space Optics
　　自由空间光通信，包括大气激光通信和太空激光通信。是一种无线激光通信方式。
　　FSO技术基于传输方式，具有高带宽、部署迅速、费用合理等优势。FSO技术以激光为载体，用点对点或点对多点方式实现连接。虽然FSO通信不需要光纤而是以空气为介质，但由于其设备以发光二极管或激光二极管为光源，因此又有“无线光纤”之称。
　　最初，FSO通信设备是无线设备生产商，为宽带服务运营商开发的一种在不易进行光纤布线的地段代替光纤设备的网络连接方案。以前只用于国防和实验目的，至今已有30多年历史。FSO技术具有与光纤技术相同的带宽传输能力，使用相似的光学发射器和接收器，甚至还可以在自由空间实现波分复用（WDM）技术。目前FSO技术已开始走向民用，它即可以提供短距离的网桥解决方案，也可以在服务商的全光网络中扮演重要角色。
　　FSO是一种新型无线宽带接入方式，是继激光器件发明之后，开始在工程上应用的，它是光纤通信与无线通信相结合的产物。FSO不是用光纤作为传输媒介，而是以大气为媒质，通过激光或光脉冲在太赫兹（THE）光谱范围内传送分组数据的通信系统，其传送终端在原理上与光纤传送终端十分相似，但由于用在接入系统，因而组成更为简单。
　　一个光的无线传输系统，所用的基本技术，也就是光电的转换。在点对点传输的情况下，每一端都设有光发射机和光接收机，具有全双工（双向）的通信能力。光发射机的光源受到电信号的控制，并通过作为天线的光学望远镜，将光信号经过空间送到接收端的望远镜，高灵敏度的光接收机将望远镜收到的光信号再转换成电信号。由于大气空间对不同光波长信号的透过率有较大差别，可以选用透过率较好的波段窗口。光的无线系统通常使用0.85微米或1.5微米的红外波段，但是，发送端和接收端之间，互相必须是可视线的，两终端之间不能有阻挡。
　　FSO网络主要有三种拓扑结构：点到点、点到多点（星形）和网状，也可以把它们组合起来使用。FSO技术相对是简单的，相连的二个FSO单位均由一个激光发射器和一个接收器组成，以提供全双工能力。
　　FSO产品可以传输数据、语音和影像等内容。目前市场上的产品最高支持2.5bit/s的传输速率，最大传输距离为4千米。不过FSO技术在理论上没有带宽上限，目前，国外160Gbit/s的设备正在研制当中。