Create Create Image Directories.R