Office中国论坛/Access中国论坛

标题: 怎样判断一个目录是否存在？ [打印本页]

作者: huangyz_xy 时间: 2009-4-7 22:24
标题: 怎样判断一个目录是否存在？
本帖最后由 huangyz_xy 于 2009-4-7 22:56 编辑

再改一下，怎么判断“D:\File\FIILEn”这个目录是否存在呢？如果不存在怎么创建？Mkdir只能创建父目录，怎么创建FILEn这目录啊！

作者: ACMAIN_CHM 时间: 2009-4-7 22:40

if dir("D:\File",vbDirectory)="" then
debug.print "not exist."

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

作者: huangyz_xy 时间: 2009-4-7 23:19
自己先顶一下！

作者: sxgaobo 时间: 2009-4-8 08:53
我也想知道啊！

作者: asklove 时间: 2009-4-8 10:56
ACMAIN_CHM
知道怎么用VBA运行DOS命令吗？
（MD　是创建一个文件目录）
我也想知道啊（可以运行FORMAT C:\就好了，嘿嘿）

作者: sxgaobo 时间: 2009-4-9 19:12
有知道的朋友吗？

作者: koutx 时间: 2009-4-9 19:37
If Dir(”D:\File\FIILEn & "\") = "" Then
MkDir “D:\File\FIILEn" & khm
End If

作者: sxgaobo 时间: 2009-4-10 10:34
If Dir("D:\File\FIILEn" & "\") = "" Then
好象这判断语句不对，当要建的子文件夹存在时报错！

作者: sxgaobo 时间: 2009-4-11 09:19
再顶顶~~~！！！

作者: koutx 时间: 2009-4-11 09:29
我用着可没问题。你是2003吗？

作者: sxgaobo 时间: 2009-4-11 09:35
是2003啊！得2007吗？

作者: koutx 时间: 2009-4-11 09:42
我的也是2003完全没问题呀？引用Office 11.0 Object Library了没有

作者: sxgaobo 时间: 2009-4-11 10:17
本帖最后由 sxgaobo 于 2009-4-11 10:19 编辑

If Dir("D:\File\FIILEn" & "\") = "" Then
MkDir "D:\File\FIILEn" & khm
End If

在File文件夹中没有FIILEn的话可以，有了就报错！
[attach]37243[/attach]
你说的引用也有
[attach]37244[/attach]

作者: chaojianan 时间: 2009-4-11 10:29
子文件夹做成
If Dir("D:\File", vbDirectory) = "" Then
MkDir "D:\File"
MkDir "D:\File\FIILEn"
Else
If Dir("D:\File\FIILEn" & "\") = "" Then
MkDir "D:\File\FIILEn"
End If
End If

作者: koutx 时间: 2009-4-11 12:28

If Dir("D:\File\FIILEn" & "\") = "" Then
MkDir "D:\File\FIILEn" & khm
End If

在File文件夹中没有FIILEn的话可以，有了就报错！
37243
你说的引用也有
37244
sxgaobo 发表于 2009-4-11 10:17

那就在If语句上一行加上On Error Resume next就没事了。

作者: huangyz_xy 时间: 2009-4-17 14:34
是有问题，我用的也是2003

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)