Sub NewFolder ( )

在当前文件夹内开始创建一个新的文件夹。