Question

vb如何建立系统日期文件夹

DT = Format(Date, "yyyymmdd")
If Dir(DT) <> "" Then

MsgBox "存在"
Else
MkDir (DT)
End If
能建立文件夹成功，但是貌似判断存在 写的不对， 第二次运行 就出错了。
请教大神如何 该之前的if 语句。 就是先判断一下 文件夹存在不，如果存在就不新建立了，不存在 才建立。

Answer 1

时间文件夹 要把放解开就Ok了！比如你用data now
把- 和 ： 去掉就可以了！！格式化时间

Answer 2

笨蛋，上一个你采纳了，所以我不能再回答了
你百度下这个API，很适合你MakeSureDirectoryPathExists

追问

实例 If Dir("D:\Express\", vbDirectory) = "" Then '判断文件夹是否存在
MkDir ("D:\Express\") '创建文件夹
msgbox ("创建完毕") else msgbox("文件夹已在") endif
大神帮忙指导一下吧，谢谢，修改一下 这个实例。建立的是时间文件夹，每天生成时间文件夹。不是你说的api多谢

追答

哎呀，一行代码就能解决的问题，你为什么要这么多行代码呢
你先看看辣个API是啥意思

追问

大神是 MakeSureDirectoryPathExists( "c:\\a\\b\\ "); 这个吧
不太明白怎么用啊，帮忙指点一下吧，我业余学习这个的，以前没接触过。
给个详细点的吧
DT = Format(Date, "yyyymmdd")

MakeSureDirectoryPathExists( "DT"); 这样吗？

追答

你自己试试代码不就知道了