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

[µo°Ý] ¦p¦ó¥i¨ú±o¦A¤W¤@¼hªº¸ô®|?

[µo°Ý] ¦p¦ó¥i¨ú±o¦A¤W¤@¼hªº¸ô®|?

½Ñ¦ì¤j¤j·q½Ð½ç±Ð
Option Explicit
        Dim f1,fbn
            'f1 = App.EXEName
        f1="²ø·q¦Û±j.vbs"       
        Dim fso, f
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set f = fso.GetFile(f1)
        fbn= fso.GetBaseName(f)
        dim n
        n = fso.GetParentFolderName(f.path)
        msgbox  n
¦p¦ó¥i¨ú±o¦A¤W¤@¼hªº¸ô®|?¦pfso.GetGrandParentFolderName(f.path)
·q½Ð¨ó§U«ü¾É,ÁÂÁÂ

¹êÅ禨¥\
n = fso.GetParentFolderName(f.path)
msgbox  n
n = fso.GetParentFolderName(n)
msgbox  n
§Y¥i
¤£¦¨¼ô¤è¦¡,

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD