Scripting Runtime Library(FileSystemObject)

¿¹Àü 8.3 ¸í¸í ±ÔÄ¢À» µû¸£´Â ÇÁ·Î±×·¥¿¡¼­ »ç¿ëµÇ´Â ªÀº °æ·Î¸¦ ¹ÝȯÇÑ´Ù.

Àμö
objec : (°³Ã¼)

ÇʼöÀûÀÎ ¿ä¼ÒÀ̸ç, object´Â Ç×»ó File ¶Ç´Â Folder °³Ã¼ÀÌ´Ù.

: (¼Ó¼º ¹®ÀÚ¿­)
¼Ó¼º°ªÀº ¿¹Àü 8.3 ¸í¸í ±ÔÄ¢À» µû¸£´Â ÇÁ·Î±×·¥¿¡¼­ »ç¿ëµÇ´Â ªÀº °æ·Î¸¦ ³ªÅ¸³»´Â ¹®ÀÚ¿­ÀÌ´Ù. ÀÌ´Â È­ÀϸíÀ» 8±ÛÀڷΠǥÇöÇÏ´Â °ú°ÅÀÇ ¹æ½Ä°ú ȣȯÇϱâ À§ÇÑ °ÍÀÌ´Ù.

ÀÌ ¼Ó¼ºÀº ÀбâÀü¿ëÀÌ¸ç µðÆúÆ®°ªÀº ¾ø´Ù.


ShortPath ¼Ó¼º ¿¹Á¦

°á°ú Ç¥½Ãâ
JScript ShortPath ¼Ó¼º ¿¹Á¦
<SCRIPT language=JScript>
function ShortPathTest(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=ShortPathTest('C:\\JsTest\\expSample.txt')">
<SPAN class=ie>JScript</SPAN><SPAN class=property>ShortPath</SPAN> ¼Ó¼º ¿¹Á¦</DIV>

VBScript·Î ¹Ýº¹

°á°ú Ç¥½Ãâ
VBScript ShortPath ¼Ó¼º ¿¹Á¦
<SCRIPT language=VBScript>
Function ShortPathTestvb(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&"'ÀÌ´Ù."
  ShortPathTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV>
<DIV class=show
  onClick="showvb.innerHTML=ShortPathTestvb('C:\\JsTest\\expSample.txt')">
<SPAN class=ie>VBScript</SPAN><SPAN class=property>ShortPath</SPAN> ¼Ó¼º ¿¹Á¦</DIV>