document.write('
');
document.write('Function MD(strDirName)
');
document.write(' Dim lFSObj, lFolder
');
document.write(' \' First See if it already exists
');
document.write(' set lFSObj = Wscript.CreateObject("Scripting.FileSystemObject")
');
document.write(' set lFolder = lFSObj.GetFolder(strDirName)
');
document.write(' If Err.number = 0 then
');
document.write(' \' Yes, it does exist so we don\'t have to do anything
');
document.write(' MD = True
');
document.write(' Else
');
document.write(' Err.Clear
');
document.write(' lFSObj.CreateFolder(strDirName)
');
document.write(' If Err.Number <> 0 Then
');
document.write(' MD = False
');
document.write(' Else
');
document.write(' MD = True
');
document.write(' End If
');
document.write(' End If
');
document.write(' Set lFolder = Nothing
');
document.write(' Set lFSObj = Nothing
');
document.write('End Function
');
document.write('
');
document.write('
');
document.write('
');