create a directory if not exist VBA

[Memon]

Good Morning/Evening everyone,
I have the following code which works fine IF the directory is present
but I want it to create the directory if not present

[SIZE=3]Dim thisfilepath As String
Dim fin As String
fin = Range("A21") & ".xlsx"
thisfilepath = Application.ActiveWorkbook.Path & "\orders-copy\" & fin


'---> code that check if the directory present and add it if not


Workbooks.Add
ActiveWorkbook.SaveAs Filename:=thisfilepath[/SIZE]

 

[ranman256]

vDir = "c:\myfolder\folder1\
IF NOT DirExists(vDir) then makedir vDir

'------------
Public Function DirExists(ByVal pvDir) As Boolean
'------------
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  DirExists = fso.FolderExists(pvDir)
  Set fso = Nothing
End Function


'------------
Public Sub MakeDir(ByVal pvDir)
'------------
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(pvDir) Then fso.CreateFolder pvDir     'MkDir pvDir
  Set fso = Nothing
End Sub

 

[Memon]

is there little easier code ?

 

[Memon]

UP