¿¹Àü 8.3 ¸í¸í ±ÔÄ¢À» µû¸£´Â ÇÁ·Î±×·¥¿¡¼ »ç¿ëµÇ´Â ªÀº À̸§À» ¹ÝȯÇÑ´Ù.
ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, object´Â Ç×»ó File ¶Ç´Â Folder °³Ã¼ÀÌ´Ù.
ÀÌ ¼Ó¼ºÀº ÀбâÀü¿ëÀÌ¸ç µðÆúÆ®°ªÀº ¾ø´Ù.
<SCRIPT language=JScript> function ShortNameTest(filePath){ var fso,fileObj,str; fso=new ActiveXObject('Scripting.FileSystemObject'); fileObj=fso.GetFile(filePath); str='"'+fileObj.Name+'"ÀÇ ´ÜÃà À̸§Àº "'+fileObj.ShortName+'"ÀÌ°í,<BR> '; str+='"'+fileObj.Path+'"ÀÇ ´ÜÃà °æ·Î´Â "'+fileObj.ShortPath+'"ÀÌ´Ù.'; return(str); } </SCRIPT> <DIV id=showjs class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showjs.innerHTML=ShortNameTest('C:\\JsTest\\expSample.txt')"> <SPAN class=ie>JScript</SPAN><SPAN class=property>ShortName</SPAN> ¼Ó¼º ¿¹Á¦</DIV>
<SCRIPT language=VBScript> Function ShortNameTestvb(filePath) Dim fso,fileObj,str Set fso=CreateObject("Scripting.FileSystemObject") Set fileObj=fso.GetFile(filePath) str="'"&UCase(fileObj.Name)&"'ÀÇ ´ÜÃà À̸§Àº '"&fileObj.ShortName&"'ÀÌ°í,<BR>" str=str&"'"&UCase(fileObj.Path)&"'ÀÇ ´ÜÃà °æ·Î´Â'"&fileObj.ShortPath&"'ÀÌ´Ù." ShortNameTestvb=str End Function </SCRIPT> <DIV id=showvb class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showvb.innerHTML=ShortNameTestvb('C:\\JsTest\\expSample.txt')"> <SPAN class=ie>VBScript</SPAN><SPAN class=property>ShortName</SPAN> ¼Ó¼º ¿¹Á¦</DIV>