Hi All

Is it possible to change this code:
Sub SaveBackup()
ActiveWorkbook.SaveCopyAs "d:\MyBook.xls"
End Sub
to save a copy of the Folder in which is the Book-to back up not only
€œMyBook€� but the whole current folder with the book?

Yep.

However, you're going to open up a whole can of worms such a
traversing your directory tree, using fileobjects and it will not b
easy

--
Rich_
-----------------------------------------------------------------------
Rich_z's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread.php?threadid=38347

This will copy the folder.

Option Explicit
Sub saveFolder()

Dim FSO As Scripting.FileSystemObject
Dim myFolder As Folder
Dim myPath As String

myPath = ActiveWorkbook.Path

If myPath = "" Then
MsgBox "please save this file first"
Exit Sub
End If

Set FSO = New Scripting.FileSystemObject

FSO.CopyFolder Source:=myPath, _
Destination:="c:\temp\backup", overwritefiles:=True

End Sub

But it doesn't do the workbook save. You may want to add that to start. (I
wasn't sure.)

Tim wrote:

Hi All

Is it possible to change this code:
Sub SaveBackup()
ActiveWorkbook.SaveCopyAs "d:\MyBook.xls"
End Sub
to save a copy of the Folder in which is the Book-to back up not only
€œMyBook€� but the whole current folder with the book?

--

Dave Peterson

That original post needed a reference to "microsoft scripting runtime".

This version doesn't.

Option Explicit
Sub saveFolder()

Dim FSO As Object
Dim myFolder As Object
Dim myPath As String

myPath = ActiveWorkbook.Path

If myPath = "" Then
MsgBox "please save this file first"
Exit Sub
End If

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder Source:=myPath, _
Destination:="c:\temp\backup", overwritefiles:=True

End Sub

Tim wrote:

Hi All

Is it possible to change this code:
Sub SaveBackup()
ActiveWorkbook.SaveCopyAs "d:\MyBook.xls"
End Sub
to save a copy of the Folder in which is the Book-to back up not only
€œMyBook€� but the whole current folder with the book?

--

Dave Peterson

Thankyou Dave !!!
As always helpful answer from you.