如题所述
给你一个最简单的方法\x0d\x0aSubprogram\x0d\x0aIfDir("F:\"&Format(Date,"YYYY-M-D"),vbDirectory)<>""Then\x0d\x0aMsgBox"文件夹存在"\x0d\x0aElse\x0d\x0aMsgBox"文件夹不存在!,系统将创建一个名为"&Format(Date,"YYYY-M-D")&"的文件夹"\x0d\x0aMkDir"F:\"&Format(Date,"YYYY-M-D")\x0d\x0aEndIf\x0d\x0aEndSub\x0d\x0a\x0d\x0a日期的格式可以自己该
温馨提示:答案为网友推荐,仅供参考