Creating a new folder that does not already exsit.

R

Ryan

I don't know what it is, I have tried multiple variations of this code and
still cannot get it to function.

Sub SaveAndClose1()
Path = "C:\Forms\F-50"
If Dir(Path, vbDirectory) = vbNullString Then
MkDir "C:\Forms\F-50"
End If
ActiveWorkbook.SaveAs Filename:="C:\Forms\F-50\" & Range("C6").Value &
Format(Date, "ddmmmyyyy") & ".xls"
'ActiveWorkbook.Close
End Sub

Attempting to to have a button that upon clicking will save the workbook to
C:\Forms\F-50. No computer that this will be used on will have this folders.
So they need to be created but if they have already done so, i want it just
to save there. Like I said I've used a lot of different variations and still
no go. Please Advise.

Your lovable stressed out intern.
 
D

Dave Peterson

I'd use:

on error resume next
mkdir "C:\forms"
mddir "c:\forms\f-50"
on error goto 0

activeworkbook.saveas ....

As long as the user has permission and there aren't any files with those names,
it should work ok.

(If either or both of the folders exist, then the "on error resume next" will
suppress any message.)
 
B

Bob Phillips

Sub SaveAndClose1()
On Error Resume Next
MkDir "C:\Forms"
MkDir "C:\Forms\F-50"
On Error Goto 0
ActiveWorkbook.SaveAs Filename:= _
"C:\Forms\F-50\" & Range("C6").Value & Format(Date, "ddmmmyyyy") &
".xls"
'ActiveWorkbook.Close
End Sub



--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)
 
R

Ryan

THank you Bob and Dave, you guys are a lot of help. That did the trick. I'll
remember the On Error part next time, I completely forgot about that.
 
Top