Greetings to all,

I wasn't quite sure if we were currently looking for a constant pathway or not, but had followed along.

@mdmackillop:

Hi Malcom :-)

Say - I was thinking that in Increment()
[vba]
pth = BrowseForFolder
'//Add//
If Not Right(pth, 1) = "\" Then pth = pth & "\"
[/vba]

...as at least I am experiencing BrowseFolder not returning the trailing seperator.

And in FCount()
[vba]
' If .Execute() > 0 Then
' FCount = fName & "-v" & .FoundFiles.Count + 1
' End If
'// Assign a string to FCount regardless, which should start at "v1" on //
'// a new day or if the file is saveas'd to a different folder. //
.Execute
FCount = fName & "-v" & .FoundFiles.Count + 1
[/vba]

I tested several times, so hopefully my observations aren't goofed.

A great day to all,

Mark