| Home |
| Search |
| Today's Posts |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
MkDir question
Thanks Charlotte
-- Jim "Charlotte E." wrote: 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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Problems with MkDir | Excel Programming | |||
| mkdir | Excel Programming | |||
| MKDir not working | Excel Programming | |||
| mkdir problem | Excel Programming | |||
| mkdir problem | Excel Programming | |||
Threaded Mode
