返回列表 上一主題 發帖

檢查檔案是否存在

  1. Sub Ex()
  2.     Dim F As Boolean
  3.     F = CreateObject("Scripting.FileSystemObject").FileExists("D:\TEST.XLS")
  4.     If F = False Then MsgBox "找不到檔案 ??"
  5. End Sub
複製代碼

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題