vbs讀取檔案內的資訊將非有效資料移動到指定路徑

標籤：vbs讀取檔案內的資訊將非有效資料移動到指定路徑

vbs讀取檔案內的資訊將非有效資料移動到指定路徑

之前我們介紹了，通過讀取檔案內的資訊將相同的資料拷貝到指定目錄，執行後我們可以利用有效資訊，但是時間長的話伺服器上的可用空間也會越來越多，所以再次就想通過vbs指令碼來判斷資料是否有用，來提高伺服器的可用空間。

思路是這樣的，通過從domino目錄下匯出有效資料，然後通過本地的資料盤進行比對，將無效的資料庫移動到其他盤操作，如果在不影響資料完整性的情況下在做刪除，那如何操作呢，首先是定義一個xlsx檔案（1.xlss），檔案可以任意命名，但是需要跟指令碼內的檔案對應。然後定義資料來源(d:\data)，然後定一些副檔名為.nsf的檔案，然後在對應的建立一個目標源(d:\data1)。具體見下：

1．如果我們僅需要匯出指定伺服器上的目錄資訊，通過notes控制台開啟names.nsf資料------Messaging--------Mail Users，可以通過滑鼠選定後，右擊匯出

650) this.width=650;" title="clip_image002" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image002" src="http://img1.51cto.com/attachment/201410/12/451336_14130962643l5q.jpg" height="347" />

2．定義指令碼內容：

1>．對比檔案------指令碼讀取的對比檔案，以檔案內容為準進行拷貝。

2>.源檔案-----通過指令碼內的檔案跟源檔案對比，將相同的資料進行拷貝。

3>.目標檔案-----對比後，將相同的檔案拷貝後存放的路徑

650) this.width=650;" title="clip_image004" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image004" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264cqrl.jpg" height="317" />

代碼：

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.countFor i=0 To workbook1_rowcountcontent=Trim(workbook1_sheet.range("A1").offset(i,0).value)If Not dic.Exists(content) Thendic.Add content,contentEnd IfNextFor Each file In sourceFolder.FilesfileNameStr=file.NamefileNameArray=Split(fileNameStr,".",-1)fileName=fileNameArray(0)If(Not dic.Exists(fileName)) Thenfso.CopyFile file.Path,desFolderPath,Truefso.DeleteFile file.PathEnd IfNextworkbook1.CloseSet workbook1=NothingSet excelObject=NothingSet dic=nothingMsgBox "執行成功"Function RegExpTest(pattern,str)Set reg = New RegExpreg.Pattern=patternreg.Global=Truereg.IgnoreCase=TrueRegExpTest=reg.TestEnd Function

3．定義好指令碼後，我們建立需要的對比檔案，1.xlsx（sheet1）

650) this.width=650;" title="clip_image006" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image006" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264mFyP.jpg" height="265" />

4．設定源路徑及內容

650) this.width=650;" title="clip_image008" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image008" src="http://img1.51cto.com/attachment/201410/12/451336_14130962649KL9.jpg" height="259" />

5．設定路標路徑

650) this.width=650;" title="clip_image010" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image010" src="http://img1.51cto.com/attachment/201410/12/451336_14130962641NTN.jpg" height="266" />

6．然後將對比檔案（1.xlsx）檔案和定義好的指令檔存放在一個目錄下。

650) this.width=650;" title="clip_image012" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image012" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264EANy.jpg" height="217" />

7．開始運行：雙擊運行即可。

650) this.width=650;" title="clip_image014" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image014" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264IpKR.jpg" height="265" />

8．看看結果：

650) this.width=650;" title="clip_image016" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;margin:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image016" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264dpaG.jpg" height="234" />

9對比源檔案目錄和源檔案內容

650) this.width=650;" title="clip_image018" style="border-top:0px;border-right:0px;background-image:none;border-bottom:0px;padding-top:0px;padding-left:0px;border-left:0px;padding-right:0px;" border="0" alt="clip_image018" src="http://img1.51cto.com/attachment/201410/12/451336_1413096264iav4.jpg" height="244" />

本文出自 “高文龍” 部落格，請務必保留此出處http://gaowenlong.blog.51cto.com/451336/1562886

vbs讀取檔案內的資訊將非有效資料移動到指定路徑