Set FSO = New Scripting.FileSystemObject >If Not FSO.FolderExists("c:\mypath") Then > FSO.CreateFolder "C:\mypath" >End If