vbs读取文件内的信息将对应数据拷贝到其他路径

vbs读取文件内的信息将对应数据拷贝到其他路径

Vbs读取文件中的信息，并将匹配的数据信息复制到其他方式。

企业多，用的是domino8.5Exchange邮箱系统。

我们知道微软已经发布了windowsazure服务项目。说白了，我们在之前的2~3篇文字文档中已经详细介绍了云计算平台。实际信息我就不详细介绍了。由于企业购买了windowsazure服务项目，领导干部一开始就提出要升级邮箱服务项目的框架，一开始就把本地服务器迁移到windowsazure运营。据IBM官网介绍，一台domino服务器有2000-2500个安装用户，但我们实际应用的情况和预想的并不一样。只有1000-1200个用户在运行。服务器可以运行的用户数量与服务器的特性直接相关。所有本地domino服务器都运行在vm虚拟机上，提供4g的大运行内存、一个CPU等。，所以跑1000-1200人我觉得都是正常的。破塔是升职，那该怎么办？即在windowsazure上创建一个虚拟机，然后安装domino，打开一个新的邮件服务器，然后将本地邮件用户迁移到windowsazure上的邮件服务器。就是这么简单，但问题是之前有用户在本地迁移过邮件，比如从mail01迁移到mail02。然后在mail01和mail02上会有匹配的邮件数据库查询，但是特定的用户只需要在mail02上有匹配的数据库查询，但是在mail01上用户的数据文件是变化的，这样越来越多的用户会消耗存储空和迁移时间。那么必须做些什么呢？大家都会先导出迁移过来的服务器domino的信息，然后按照vbs复制数据信息，这样就不容易出问题了。

首先，定义一个xlsx文档(1.xlss)。文档可以随意命名，但必须与脚本制作中的文档相匹配。然后定义复制源(d:\data)，然后定义一些名为。nsf，然后在匹配中建立一个整体的目标源(e:\data)。其实，看下面:

1.如果我们只需要导出特定服务器上的文件目录信息，根据notes控制面板打开names.nsf数据信息-messaging-mailusers，然后根据电脑鼠标右键导出。

2.定义脚本制作的内容:

1>；。参考文档-为加载的参考文档编写脚本，并根据文档内容进行复制。

2>；源代码-通过对比脚本制作中的文档与源代码，复制相同的数据信息。

3>；整体目标文档-对比后，复制相同文档并存储的方式

脚本制作内容。

脚本制作内容:

currentFolder=CreateObject("wscript.shell").currentDirectory&"\" filename1=currentFolder&"1.xlsx" sourceFolderPath="d:\data"   ''''.nsf储放文件目录 desFolderPath="e:\data\"      ''''复制的目标目录  Set dic=CreateObject("scripting.dictionary") Set fso=CreateObject("scripting.filesystemobject") Set sourceFolder = fso.GetFolder(sourceFolderPath) Set desFolder=fso.GetFolder(desFolderPath) Set excelObject=CreateObject("Excel.Application") Set workbook1=excelObject.Workbooks.Open(filename1) Set workbook1_sheet=workbook1.Sheets("Sheet1") workbook1_rowcount=workbook1_sheet.usedrange.rows.count For i=0 To workbook1_rowcount      content=Trim(workbook1_sheet.range("A1").offset(i,0).value)  If Not dic.Exists(content) Then     dic.Add content,content  End If Next For Each file In sourceFolder.Files fileNameStr=file.Name fileNameArray=Split(fileNameStr,".",-1) fileName=fileNameArray(0) If(dic.Exists(fileName)) Then fso.CopyFile file.Path,desFolderPath,true End If  Next  workbook1.Close Set workbook1=Nothing Set excelObject=Nothing Set dic=nothing MsgBox "实行取得成功" Function RegExpTest(pattern,str)  Set reg = New RegExp  reg.Pattern=pattern  reg.Global=True  reg.IgnoreCase=True  RegExpTest=reg.Test  End Function

3.定义好脚本制作后，我们将创建必要的参考文档，1.xlsx(sheet1)

4.设置来源方式和内容。

5.设置一个路标。

6.然后将参考文档(1.xlsx)文档和定义的脚本文件存储在一个文件目录中。

7.运行:双击鼠标进行 *** 作。

8.看一看结果: