脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 用vbs将本地文件替换为在文件服务器上找到的新版本

用vbs将本地文件替换为在文件服务器上找到的新版本

2020-07-08 12:03VBS教程网 VBS

如何将本地文件的修改日期与文件服务器上的副本进行比较,并且,如果本地文件的版本更旧,将其替换为文件服务器上的版本?

问:
您好,脚本专家!如何将本地文件的修改日期与文件服务器上的副本进行比较,并且,如果本地文件的版本更旧,将其替换为文件服务器上的版本?
-- DC
答:
您好,DC。让我们想想,您是想将某些旧的东西替换为新的。不知道为什么,这让我们感到很不安。
嗯,并不是因为脚本专家正在变老,这得提醒您,我们没有。毕竟,膝盖和后背就应该是这么吱吱作响的;不然怎么知道它们在发挥作用呢?!?
注意:据说,当爱斯基摩人老得不中用的时候,他们会被抛弃在大块浮冰上任其自生自灭。幸好脚本专家都不是爱斯基摩人,而我们每天都要穿戴好外衣、手套和长统帽上班(包括夏天)。以防万一。
不过比起过时的脚本专家来说,您可能更关心过时的文件,是吧?下面这个脚本将替换本地文件 C:\Scripts\Test.txt(如果此文件正好比其在服务器 atl-fs-01 上的副本更旧):

复制代码 代码如下:


Const OverwriteExisting = TRUE 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objLocalFile = objFSO.GetFile("c:\scripts\test.txt") 
dtmLocalDate = objLocalFile.DateLastModified 
Set objServerFile = objFSO.GetFile("\\atl-fs-01\public\test.txt") 
dtmServerDate = objServerFile.DateLastModified 
If dtmLocalDate < dtmServerDate Then 
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting 
End If 

如您所见,这是个非常简短的小脚本。(我们必须承认除去有点困扰我们的过时的旧东西真的很容易。)我们首先创建一个名为 OverwriteExisting 的常量并将其值设置为 True。我们将使用此常量告诉 FileSystemObject 可以对目标文件的现有实例进行覆盖。默认情况下,如果某文件在驱动器 2 上已存在,则 FileSystemObject 不会将其从驱动器 1 复制到驱动器 2 上。
说到 FileSystemObject,我们在此脚本的下一行创建此对象 (Scripting.FileSystemObject) 的一个实例。然后,我们使用以下两行代码绑定到我们的第一个文件 (C:\Scripts\Test.txt),并将此文件的上次修改日期(DateLastModified 属性)存储在名为 dtmLocalDate 的变量中:
Set objLocalFile = objFSO.GetFile("c:\scripts\test.txt")
dtmLocalDate = objLocalFile.DateLastModified
然后,通过创建对服务器版本 Test.txt 的对象引用重复此过程。请注意,此处我们使用的变量名称不同:本地文件的对象引用存储在 objLocalFile 中,服务器文件的对象引用存储在 objServerFile 中。不用说,我们还使用了不同的变量 (dtmServerDate) 来存储此上次修改日期:
Set objServerFile = objFSO.GetFile("\\atl-fs-01\public\test.txt")
dtmServerDate = objServerFile.DateLastModified
仍在看吗?下一步我们需要确定本地文件是否比服务器文件更旧。下面这行代码就用来解决这个问题:
If dtmLocalDate < dtmServerDate Then
别被这的语法搞糊涂了。我们很容易假定旧文件的日期应该大于新文件。但实际上日期不是这么处理的。假定“文件 A”的修改日期为 2/1/2006,“文件 B”的修改日期为 2/15/2006。“文件 A”比较旧,这意味着“文件 A”的修改日期小于(即,产生早于)“文件 B”。 
那么如果本地文件比其服务器副本更旧,如何将本地文件替换为服务器上找到的副本?方法如下:
objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
正如您看到的,我们要做的就是调用 CopyFile 方法并向其传递三个参数:
? 我们想要复制的文件(即,服务器上找到的 Test.txt 版本)的路径。
? 我们想要将此文件复制到的路径。在本例中,即为本地文件的路径。
? 常量 OverwriteExisting,它用来告诉脚本继续进行,并使用从服务器复制的版本替换本地文件。
至此您已实现了您的目的。然而,请记住,此脚本仅适用于旧文件。您不能使用它来替换,嗯,老脚本专家。(当然,倒不是有人梦想过替换脚本专家。不过,还是以防万一 ...)

延伸 · 阅读

精彩推荐
  • VBSVBS编程教程 (第1篇)

    VBS编程教程 (第1篇)

    VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....

    VBS教程网4812020-07-15
  • VBSVBS文本文件操作实现代码

    VBS文本文件操作实现代码

    这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...

    VBS代码网8912020-08-12
  • VBSVBS教程:正则表达式简介 -正则表达式语法

    VBS教程:正则表达式简介 -正则表达式语法

    正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...

    VBS教程网3302019-11-25
  • VBSAdsutil.vbs 在脚本攻击中的妙用[我非我原创]

    Adsutil.vbs 在脚本攻击中的妙用[我非我原创]

    adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...

    VBS教程网2312020-07-07
  • VBS雷客图ASP站长安全助手vbs测试版代码

    雷客图ASP站长安全助手vbs测试版代码

    雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...

    脚本之家2312020-07-03
  • VBS灵活实用VBS入门教程应用篇

    灵活实用VBS入门教程应用篇

    上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...

    VBS教程网5742020-07-01
  • VBSVBS数组深入浅出

    VBS数组深入浅出

    VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...

    VBS教程网2962020-08-18
  • VBSWINDOWS脚本实践:为SAP补丁制作的VBS脚本代码

    WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码

    本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...

    脚本之家3232020-07-06