Copying files to a backup folder GettAttr vbarchive

[mbar]

Hi- I'm using a function to find all files/folders in a specific directory, then copy each one to a specific destination folder. I'm going to use this on a weekly basis to backup files on a computer. I would like to use the vbarchive in GetAttr/SetAttr so I only need to copy these if they have changed since last backup. I don't, however, know how to do this and google searches don't seem to help. Can anyone help me?



Something like:

If GetAttr(strFile) And vbArchive Then
rs.movenext
else
filecopy xxxx, xxxx

when I use GetAttr, it returns values 8192 and other large numbers. How do I identify whether vbArchive is true?

[June7]

http://office.microsoft.com/en-us/ac...001228847.aspx

I have never done bitwise comparison. So just tested:

Sub test()
Debug.Print GetAttr("C:\Users\June\Cryptoquote.accdb") And vbArchive
End Sub

This returns 32.

If I understand the article, if the code returns non-zero, then the file has been modified since last backup. However, I doubt that just copying the file is a 'backup' in which case the value of Archive attribute will not change. So I tested that - copied file and ran the code again - still get 32.

[mbar]

Thanks. I now need to figure out how to set an attribute to each file after I filecopy to "flag" the file so my code will know not to filecopy if it hasn't been modified since the last time. I believe that the example above will identify what files have been modified since the last time the attribute was set (if it returns "32"). I've read some google searches where the file was set to vbnormal however I think that would erase any program file attributes that are vbhidden or vbreadonly (I'm planning on copying the entire hard drive). One would almost want to set the vbarchive to true or false but I don't think its a boolean.

Any ideas?

[June7]

If the vbArchive attribute can be programmatically set, set it to 0.