vbs读取文件内的信息将非有效数据移动到指定路径

vbs读取文件内的信息将非有效数据移动到指定路径

之前我们介绍了,通过读取文件内的信息将相同的数据拷贝到指定目录,执行后我们可以利用有效的信息,但是时间长的话服务器上的可用空间也会越来越多,所以再次就想通过vbs脚本来判断数据是否有用,来提高服务器的可用空间。

思路是这样的,通过从domino目录下导出有效的数据,然后通过本地的数据盘进行比对,将无效的数据库移动到其他盘操作,如果在不影响数据完整性的情况下在做删除,那如何操作呢,首先是定义一个xlsx文件(1.xlss),文件可以任意命名,但是需要跟脚本内的文件对应。然后定义数据源(d:\data),然后定一些扩展名为.nsf的文件,然后在对应的创建一个目标源(d:\data1)。具体见下:

1.如果我们仅需要导出指定服务器上的目录信息,通过notes控制台打开names.nsf数据------Messaging--------Mail Users,可以通过鼠标选定后,右击导出

clip_image002

2.定义脚本内容:

1>.对比文件------脚本读取的对比文件,以文件内容为准进行拷贝。

2>.源文件-----通过脚本内的文件跟源文件对比,将相同的数据进行拷贝。

3>.目标文件-----对比后,将相同的文件拷贝后存放的路径

clip_image004

代码:

currentFolder=CreateObject("wscript.shell").currentDirectory&"\"
filename1=currentFolder&"1.xlsx"
sourceFolderPath="d:\data" ''''.nsf存放目录
desFolderPath="d:\data1\" ''''移动的目标目录
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(Not dic.Exists(fileName)) Then
fso.CopyFile file.Path,desFolderPath,True
fso.DeleteFile file.Path
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)

clip_image006

4.设置源路径及内容

clip_image008

5.设置路标路径

clip_image010

6.然后将对比文件(1.xlsx)文件和定义好的脚本文件存放在一个目录下。

clip_image012

7.开始运行:双击运行即可。

clip_image014

8.看看结果:

clip_image016

9对比源文件目录和源文件内容

clip_image018

你可能感兴趣的:(读取文件,vbs,非有效数据移动)