'########################################################
'### Creates a folder at the location supplied        ###
'###                                                  ###
'### (c) Dirk Pelzer 2002                             ###
'########################################################
Option Explicit
Dim iRet

iRet = MkDir ("c:\dpc")
wscript.echo "Error Code: " & iRet

Function MkDir(strDirectory)
' Returns 0 on success and 1 on error

   Dim fso
   Dim folder

   on error resume next
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set folder = fso.CreateFolder(strDirectory)

   Set folder = Nothing
   Set fso = Nothing

   if err.number <> 0 Then 
      mkdir = 1		' could not create folder
   Else
      mkdir = 0		' folder created successfully
   End if
   on error goto 0

End Function