John Croson's Blog Home

I recently wrote a VBScript utility that queries the contents of an Indexing Service database, finds the indexed Fax documents ( CCITT Group 4 (2d) Tiff's), sorts and moves them to another repository located on a SAN. Option Explicit Dim oCon Dim oCmd Dim oRst Dim sQry Dim sString Dim sScope Dim sAqScan Dim sFile Dim sPath Dim sMoveTo Dim sNum Dim FSO Dim sDate Dim sDosText Dim sDateDir Dim sDateDiff Dim sMonth Dim sDay Dim sYear Dim nCnt '/////////////////////////////////////////// ' ' Create the FSO ' '//////////////////////////////////////////////// Set FSO = CreateObject("Scripting.FileSystemObject") '///////////////////////////////////////////////// ' ' Scope, Aquaius scan dir and Query. ' '//////////////////////////////////////////////// sScope = "F:\Incoming Fax\CWHHM\" sAqScan = "F:\Scanned Docs\Aquarius\14CWHHM\" sQry = "Select Path, Filename, Size, Contents " _ & "FRO...