Thanks guys. I found the answer. I got it to work by doing this:
dim objFSO, f1, f, fc, strSourceFolder, strDestFolder, strlOOKFile, strlOOKFolder
'Constants
Const OverwriteExisting = TRUE
'Global variables
strSourceFolder = "\\tbstpgw3\D\ftp1\*.FLG"
strlOOKFolder = "\\tbstpgw3\D\ftp1\"...