Excel VBA Macro to synchronize Windows folders

[Praedico]

Working with Windows 7 and Office 2010

I've created a Excel workbook with VBA code to synchronize an Access database between a laptop and a server. One of the fields in the database is a shortcut to a jpg for each record. (The Access stuff is not too important here)

Now I'd like to add the ability synchronize the photos between the laptop and the server; so people who use the server can view the photos added by the laptop and vice versa.
Something like:

For each [JPG] in [LaptopFolder]
 If not [JPG] exists in [ServerFolder] then
  filecopy [LaptopFolder]\[JPG], [ServerFolder]\[JPG]
 end if
next [JPG]

Of course that code wouldn't work (that's why I'm here) it just gives you an idea of what I'm trying to accomplish.

Any nudge in the right direction would be much appreciated,
Thank you

 

[ZVI]

Try this:

Sub SyncFiles()
  Dim f, Col As New Collection
  Const LaptopFolder = "C:\Temp\Pictures\"
  Const ServerFolder = "\\Server2\Pictures\"
  f = Dir(LaptopFolder & "*.jpg")
  While Len(f)
    Col.Add f
    f = Dir()
  Wend
  For Each f In Col
    If Len(Dir(ServerFolder & f)) = 0 Then FileCopy LaptopFolder & f, ServerFolder & f
  Next
End Sub

 

[ZVI]

This is better one:

Sub SyncFiles1()
  Dim f As String
  Const LaptopFolder = "C:\Temp\Pictures\"
  Const ServerFolder = "\\Server2\Pictures\"
  f = Dir(LaptopFolder & "*.jpg")
  On Error Resume Next
  While Len(f)
    GetAttr ServerFolder & f
    If Err Then
      Err.Clear
      FileCopy LaptopFolder & f, ServerFolder & f
    End If
    f = Dir()
  Wend
End Sub

 

[Praedico]

I tried both and they both work. I agree the second one is better, the program only has to loop through each file once instead of twice, so I used it.
Thank you very much for your help.

 

[ZVI]

Glad it works for you, thanks for feedback!

 

[anasttin1]

This is great, but what code could be used to synchronise two folders, keeping the newest version of files only. ie. the ones with the newest file date end up in both files with older versions being overwritten.

Thanks so much.