FolderName = Sourcewb.Path & "\archives\" & Sourcewb.Name & " " & DateString

--
__________________________________
HTH

Bob

"Anders" wrote in message
...
Hi All,

using RDB code to create a subfolder and save a copy in it.

'Create new folder to save the new files in
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = Sourcewb.Path & "\" & Sourcewb.Name & " " & DateString
MkDir FolderName

Example: saving file 'FTE' in folder 'Update'. This would create
subfolders
with timestamp each time I saved it (folder update then would have
hundreds
of files in it). I would like to redirect that folder creation to one
level
down in a folder named 'archives' (already created) so archives has all of
the files in it and update only has two items. 1. the file FTE, 2. folder
archives.

TIA.

Anders