Const LOG_FOLDER_PATH = "C:\" Dim dtNow, dateStr dtNow = Date() Set objRegExp = new RegExp objRegExp.Pattern = "\/" objRegExp.Global = True dateStr = objRegExp.Replace(dtNow,"") Dim createFolderPath createFolderPath = LOG_FOLDER_PATH & dat…