ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

ÀˬdÀɮ׬O§_¦s¦b

  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
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD