Public SavePath As String
Public SaveFileName As String
Public FileName As String


Sub SaveCopyNow()

Dim NewFile As String
Dim FileNameLength As Integer
Dim CurrentFile As String
Dim actdate As String

actdate = Date


SavePath = MicroStationDGN.ActiveDesignFile.Path
FileName = MicroStationDGN.ActiveDesignFile.Name

SaveFileName = FileName
CurrentFile = SavePath + "\" + FileName
FileNameLength = Len(FileName)
FileNameLength = FileNameLength - 4
FileName = Left$(FileName, FileNameLength)
FileName = FileName + "-copy-" + actdate + ".DWG"

NewFile = SavePath + "\" + FileName

ActiveDesignFile.SaveAs NewFile, True, msdDesignFileFormatDWG
MicroStationDGN.OpenDesignFile CurrentFile




End Sub