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

¦p¦óÀˬd«ü©wÀɮ׬O§_¦s¦b

¦^´_ 1# enoch

VBA
  1. Sub filesearch()
  2. Dim MyFile As Object
  3. Dim Str As String
  4. Str = "c:\" & [A1]
  5. Set MyFile = CreateObject("Scripting.FileSystemObject")
  6. If MyFile.FileExists(Str) Then
  7.    MsgBox "¤å¥ó¤w§ä¨ì!"
  8. Else
  9.    MsgBox "¤å¥ó¤£¦s¦b!"
  10. End If
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD