Office中国论坛/Access中国论坛

标题: 如何判断一个目录或文件的存在 [打印本页]

作者: Bluelost 时间: 2006-5-4 17:37
标题: 如何判断一个目录或文件的存在
如何在Excel的VBA代码中判断指定路径下的某个文件或目录存在还是不存在?存在则执行A操作,不存在则创建该文件,然后进行A操作.

作者: yangjj 时间: 2006-5-4 18:02
im DefDatabase As Database
Dim strDesDir As String
Dim strDesDir1 As String
If Text0 <> "" Then
   strDesDir = Text0
      If Len(strDesDir) > 3 Then
         strDesDir = strDesDir & "\"
      Else
         strDesDir = strDesDir
      End If
      If Dir(strDesDir & "sbb.mdb") <> "" Then
      Kill strDesDir & "sbb.mdb"
      End If
      'Application.NewCurrentDatabase (strDesDir & "\sbb", dbLangGeneral)
      CreateDatabase strDesDir & "\sbb", dbLangGeneral
      DoCmd.TransferDatabase acExport, "Microsoft Access", strDesDir & "\sbb.mdb", acTable, "生产报表主表上报表", "生产报表主表上报表", False
      DoCmd.TransferDatabase acExport, "Microsoft Access", strDesDir & "\sbb.mdb", acTable, "生产报表附表上报表", "生产报表附表上报表", False
      'DoCmd.RunSQL "DELETE * FROM jh_sbfb"
      'DoCmd.RunSQL "DELETE * FROM jh_sbzb"
      MsgBox "已在" & strDesDir & "目录下生成上报生产月报sbb.MDB文件！", vbInformation
Else
   MsgBox "请选择正确的上报生产月报的盘符或路径！ ", vbInformation
End If

作者: Bluelost 时间: 2006-5-4 19:18
从这段代码学了不少东西,谢谢了

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