Creating a new folder that does not already exsit.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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.)
 
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)
 
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.
 
Back
Top