Office中国论坛/Access中国论坛

标题: [转帖]读取远程计算机上的文本文件源码 [打印本页]

作者: xlonger 时间: 2006-7-27 01:00
标题: [转帖]读取远程计算机上的文本文件源码
如您所知，FileSystemObject（用于读写文本文件的对象）的原本用于本地；而事实上，您读过的有关 FileSystemObject 的任何材料差不多都会煞费苦心地指出，不能对远程计算机使用该对象。尽管事实并非完全如此：那是因为 FileSystemObject 可以使用 UNC 路径。假定要读取的文件位于文件共享目录中 (\\atl-fs-01\public\myfile.txt)。在这种情况下，打开和读取文本文件就像下面的代码那样简单：Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

("\\atl-fs-01\public\myfile.txt", ForReading)

strContents = objTextFile.ReadAll

objTextFile.Close

Wscript.Echo strContents

如您所看到的，我们先是定义一个名为 ForReading 的常量并将其值设置为 1。然后创建 FileSystemObject 引用，并调用 OpenTextFile 方法，传递两个参数：要操作的文件的 UNC 路径及常量 ForReading。此时我们已经可以对文件进行所需的任何操作：给您举一个操作文本文件的简单例子：调用 ReadAll 方法将文件的全部内容读入名为 strContents 的变量中。然后关闭文件并回显 strContents 的值，就是这样。

目前，只要待操作的文件位于共享文件夹中，这段代码便很有效。但如果文件不在共享文件夹中，该怎么办呢？在这种情况下，就只能使用管理共享（如 C$）。即使尚未共享文件夹 C:\Public，以下脚本也能够读取文件 MyFile.txt：Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

("\\atl-fs-01\C$\public\myfile.txt", ForReading)

strContents = objTextFile.ReadAll

objTextFile.Close

Wscript.Echo strContents

如果不使用管理共享，那多半没什么办法。（除非您真的要做出某些疯狂的举动，如使用 WSHController 对象。但那就要另当别论了。）

而这便引出了我们的不可告人目的：如何遍历远程文件夹中的所有文件并使用 FileSystemObject 打开和读取其中的每个文件？嗯，请看下面这种方法：Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

strComputer = "atl-fs-01"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFileList = objWMIService.ExecQuery _

("ASSOCIATORS OF {Win32_Directory.Name='C:\Logs'} Where " _

& "ResultClass = CIM_DataFile")

For Each objFile In colFileList

strFilePath = "\\" & strComputer & "\C$\Logs\" & _

objFile.FileName & "." & objFile.Extension

Set objTextFile = objFSO.OpenTextFile(strFilePath, ForReading)

strContents = objTextFile.ReadAll

Wscript.Echo strContents

objTextFile.Close

Next

这段代码的作用是连接到远程计算机 atl-fs-01，并检索文件夹 C:\Logs 中所有文件的集合。棘手之处是构建每个文件的路径，那是因为我们需要使用与以下类似的管理共享路径：\\atl-fs-01\C$\Logs\MyFile.log

为构建该路径，我们会各使用一些 WMI 和硬编码：strFilePath = "\\" & strComputer & "\C$\Logs\" & _

objFile.FileName & "." & objFile.Extension

我们要做的是：

•

以一对 \ 开头： \\

•

添加计算机名称：\\atl-fs-01

•

添加一个 \ 和管理共享路径 C$\Logs\：\\atl-fs-01\C$\Logs\

•

添加 WMI FileName 属性（只含文件名部分，不含文件扩展名）：\\atl-fs-01\C$\Logs\MyFile

•

在文件名和文件扩展名之间添加句点（因为句点不是 WMI Extension 属性的一部分）：\\atl-fs-01\C$\Logs\MyFile.

•

添加 WMI 属性 Extension：\\atl-fs-01\C$\Logs\MyFile.log

这稍显复杂，但它构建了我们需要的 UNC 路径。而且，每次完成循环时它都会替换新的文件名和新的文件扩展名（计算机名称和文件夹路径从不改变）。于是，我们最终能

作者: qlm 时间: 2006-7-27 06:51
不知有没有用,收藏了,顶一下吧!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)