'MacroName:MacroSynch 'MacroDescription:Synchronize local macro books with those in a networked directory 'Macro written by: Joel Hahn, Niles Public Library District 'Last modified: 18 March 2005 Sub Main Dim LocalMod Dim RemoteMod Dim sFName As String Dim nCount As Integer Dim DirArr() Dim i Dim Synched Synched = FALSE sFName = Dir("G:\OCLCApps\Connexion\Nik*.mbk") ReDim DirArr(0) nCount = 0 Do While sFName <>"" ReDim Preserve DirArr(nCount) DirArr(nCount) = sFName nCount = nCount + 1 sFName = Dir Loop For i = 0 to nCount - 1 sFName = DirArr(i) RemoteMod = FileDateTime("G:\OCLCApps\Connexion\" & sFName) If Dir("C:\Program Files\OCLC\Connexion\Program\Macros\" & sFName) <> "" Then LocalMod = FileDateTime("C:\Program Files\OCLC\Connexion\Program\Macros\" & sFName) Else LocalMod = 0 End If If RemoteMod > LocalMod Then 'MsgBox sFName & Chr(10) & "Local: |" & LocalMod & "|" & Chr(10) & "Remote: |" & RemoteMod & "|" FileCopy "G:\OCLCApps\Connexion\" & sFName, "C:\Program Files\OCLC\Connexion\Program\Macros\" & sFName 'MsgBox "FileCopy 'G:\OCLCApps\Connexion\" & sFName & ", 'C:\Program Files\OCLC\Connexion\Program\Macros\" & sFName Synched = TRUE End If Next If Synched <> FALSE Then MsgBox "Local macrobooks have been updated." End If End Sub