[已解决]如何用VBA判断目录是否存在，不存在则建立目录

sonsen18

如何用VBA判断目录是否存在，不存在则建立目录
如何用VBA判断 D 盘下是否存在 A 目录，如不存在则建立 目录 A ，如存在则将 B目录下文件复制到 A 目录下

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-9-1 18:29

Sub dd()
  Dim sr
  sr = Dir("d:/Ab", vbDirectory)
  If sr = "" Then
    MsgBox "不存在此目录"
    MkDir "d:/Ab"
  Else
    MsgBox "存在"
   用fillecopy方法 复制
  End If
End Sub

跳转到最佳答案楼层

兰色幻想

Sub dd()
  Dim sr
  sr = Dir("d:/Ab", vbDirectory)
  If sr = "" Then
    MsgBox "不存在此目录"
    MkDir "d:/Ab"
  Else
    MsgBox "存在"
   用fillecopy方法 复制
  End If
End Sub

yonggehehe

vba；难吗？？？？