Posted to microsoft.public.excel.programming
|
|
MkDir question
Try this :
http://www.EXCELGAARD.dk/Lib/UDFs/MAKEPATH/
CE
Jim G wrote:
The following macro works and will eventurally be used in a Workbook
Close event. My question is why do I need to use MkDir twice to
create a subdirectory as C:\SubDir1\SubDir2. Is there an easier way
to do this?
Private Sub TestSave()
'-----create a Backup
Dim BUpath1 As String
Dim BUpath2 As String
Dim BUname As String
BUpath1 = "C:\Invoices"
BUpath2 = "C:\Invoices\BackUp"
BUname = "Sub-Contract Invoice BACKUP TEST " & Format(Now, "dd-mmm-yy
h-mm-ss")
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Worksheets("Start").Activate
ThisWorkbook.Save
On Error Resume Next
If Dir(BUpath2) = "" Then
MkDir (BUpath1)
MkDir (BUpath2)
ActiveWorkbook.SaveCopyAs BUpath2 & "\" & BUname
MsgBox "A copy of the file has been saved as: " & BUpath & "\" &
BUname End If
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
|