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

½Ð°Ý¦p¦ó¦ÛÀɮ׸ô®|ªº¦r¦ê¤¤¡A©î¥X¸ô®|©MÀɦW?

  1. Sub nn()
  2. Dim fds As Object
  3. Set fds = CreateObject("Scripting.FileSystemObject")
  4. Set fs = fds.getfile("F:\§Úªº¤å¥ó\9908\filename.xls")
  5. msgbox "¸ô®| =" & fds.GetParentFolderName(fs)
  6. msgbox "ÀɦW =" & fs.Name
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD