DDR爱好者之家 Design By 杰米
问:
您好,脚本专家!如何读取远程计算机上的文本文件?
-- BM
答:
您好,BM。我们得承认:我们在利用您和您的问题来达成我们自己的邪恶目的。本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题;在回答中,我们承诺将会说明如何使用 FileSystemObject 对远程计算机执行同样的功能。这并无恶意,只是为了维护本专栏的精神,除非有人提出有关对远程计算机上的文本文件进行处理的问题,我们是不会做出回答的。于是我们选择了您的问题。
因此,没错,我们在利用您。但如果往好处想,您的问题得到了回答。事实上,让我们先来看一看您的问题。
如您所知,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 路径。而且,每次完成循环时它都会替换新的文件名和新的文件扩展名(计算机名称和文件夹路径从不改变)。于是,我们最终能够打开(并读取)远程文件夹中的每个文件。
顺便向 BM 表示感谢,感谢您让我们利用您的问题。我们欠您一个人情!
您好,脚本专家!如何读取远程计算机上的文本文件?
-- BM
答:
您好,BM。我们得承认:我们在利用您和您的问题来达成我们自己的邪恶目的。本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题;在回答中,我们承诺将会说明如何使用 FileSystemObject 对远程计算机执行同样的功能。这并无恶意,只是为了维护本专栏的精神,除非有人提出有关对远程计算机上的文本文件进行处理的问题,我们是不会做出回答的。于是我们选择了您的问题。
因此,没错,我们在利用您。但如果往好处想,您的问题得到了回答。事实上,让我们先来看一看您的问题。
如您所知,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 路径。而且,每次完成循环时它都会替换新的文件名和新的文件扩展名(计算机名称和文件夹路径从不改变)。于是,我们最终能够打开(并读取)远程文件夹中的每个文件。
顺便向 BM 表示感谢,感谢您让我们利用您的问题。我们欠您一个人情!
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年12月26日
2024年12月26日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]