Loop
objFile.Close
DataList.Sort = "ComputerName"
DataList.MoveFirst
Do Until DataList.EOF
strText = strText & DataList.Fields.Item("ComputerName") & vbCrLf
DataList.MoveNext
Loop
Set objFile = objFSO.OpenTextFile("C:ScriptsComputers.txt", ForWriting)
objFile.WriteLine strText
objFile.Close
首先，我们定义要创建断开连接的记录集所需要的一系列常量。（应将断开连接的记录集视为一个只存在于内存中的、与储存在磁盘驱动器上的物理数据库无关的数据库。）然后，我们使用以下这组代码来创建一个由单个字段“ComputerName”组成的断开连接的记录集：
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "ComputerName", adVarChar, MaxCharacters
DataList.Open
接下来，我们使用 FileSystemObject 来打开文本文件 C:ScriptsComputers.txt。此时，我们准备开始对所创建的记录集进行填充。我们要执行的操作就是逐行读取该文本文件。每读取一行，我们都将使用“AddNew”方法向记录集添加一条新记录。我们将 ComputerName 字段的值设置为我们刚才在该文本文件中读取的行（请记住，该文本文件的各行分别表示一个计算机名称），然后使用“Update”方法将记录保存到该记录集。继续执行此操作，直至我们读取完该文本文件的每一行为止，然后我们将关闭该文件。
是的，这听起来好像工作量很大，但是正如您看到的，所有的操作只需以下几行代码：
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
DataList.AddNew
DataList("ComputerName") = strLine
DataList.Update
Loop
objFile.Close
接下来，我们需要对记录集进行排序。这是使用断开连接的记录集而不使用冒泡排序或其他手动排序算法的主要好处之一。对记录集进行排序只需执行一行代码：
DataList.Sort = "ComputerName"
现在我们就有了一个已排序的记录集，需要使用该记录集将数据写回文本文件。实现此目的最简单的方法就是遍历此记录集、抓取每条记录并将整个记录集保存在一个变量中。这就是下面所执行的操作：
DataList.MoveFirst
Do Until DataList.EOF
strText = strText & DataList.Fields.Item("ComputerName") & vbCrLf
DataList.MoveNext
Loop
我们只是看一看各行记录，然后将 ComputerName 字段的值存储在变量 strText 中。请注意我们是如何执行此操作的：我们将 strText 的值设置为 strText 中的任何值加上当前 ComputerName 字段的值，再加上一个回车换行符（这正是 vbCrLf 常量所表示的）。我们将使用内存中的一个名为 strText 的变量来结束此操作，该变量包含以下数据：
