Scripting Runtime Library(FileSystemObject)

지정한 파일이나 폴더의 상위 폴더에 해당하는 폴더 개체를 반환한다. 읽기전용이다.

인수
objec
필수적인 요소이며, object는 항상 File 또는 Folder 개체이다.

: (속성 개체)
속성값은 개체의 계통도 상 개체의 바로 상위의 개체이다.

지정한 파일이나 폴더의 바로 상위 폴더에 해당하는 폴더 개체를 반환한다.

이 속성은 읽기전용이며 디폴트값은 없다.


ParentFolder 속성 예제

결과 표시창
Jscript ParentFolder 속성 예제
<SCRIPT language=JScript>
function ParentFolderTest(filePath){
  var fso,fileObj,str;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (!fso.FileExists(filePath)){ // 오류 방지를 위하여 화일이 없으면 생성한다.
    fileObj=fso.OpenTextFile(filePath,2,true);
    fileObj.Write(filePath+' 화일');
    fileObj.Close();
  }
  fileObj=fso.GetFile(filePath);
  folderObj=fileObj.ParentFolder
  str='File "'+fileObj.Name+'"은 "'+folderObj+'" Folder에 있다.<BR><BR>';
  str+='File: "'+fileObj+'"<BR>';
  str+='File 만든 날짜: '+fileObj.DateCreated+'<BR>';
  str+='File 마지막으로 수정한 날짜: '+fileObj.DateLastModified+'<BR><BR>';
  str+='ParentFolder: "'+folderObj+'"<BR>';
  str+='Folder 만든 날짜: '+folderObj.DateCreated+'<BR>';
  str+='Folder 마지막으로 수정한 날짜: '+fileObj.DateLastModified+'<BR><BR>';
  str+='ParentFolder의 ParentFolder: "'+folderObj.ParentFolder+'"<BR>';
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=ParentFolderTest('C:\\JsTest\\expSample.txt')">
<SPAN class=ie>JScript</SPAN><SPAN class=property>ParentFolder</SPAN> 속성 예제</DIV>

VBScript로 반복

결과 표시창
Jscript ParentFolder 속성 예제
<SCRIPT language=VBScript>
function ParentFolderTestvb(filePath)
  Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If Not fso.FileExists(filePath) Then ' 오류 방지를 위하여 원본 화일이 없으면 생성한다.
    Set fileObj=fso.OpenTextFile(filePath,2,true)
    fileObj.Write filePath&" 화일"
    fileObj.Close
  End If
  Set fileObj=fso.GetFile(filePath)
  Set folderObj=fileObj.ParentFolder
  str="File '"&fileObj.Name&"'은 '"&folderObj&"' Folder에 있다.<BR><BR>"
  str=str&"File: '"&fileObj&"'<BR>"
  str=str&"File 만든 날짜: "&fileObj.DateCreated&"<BR>"
  str=str&"File 마지막으로 수정한 날짜: "&fileObj.DateLastModified&"<BR><BR>"
  str=str&"ParentFolder: '"&folderObj&"'<BR>"
  str=str&"Folder 만든 날짜: "&folderObj.DateCreated&"<BR>"
  str=str&"Folder 마지막으로 수정한 날짜: "&fileObj.DateLastModified&"<BR><BR>"
  str=str&"ParentFolder의 ParentFolder: '"&folderObj.ParentFolder&"'<BR>"
  ParentFolderTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showvb.innerHTML=ParentFolderTestvb('C:\\JsTest\\expSample.txt')">
<SPAN class=ie>VBScript</SPAN><SPAN class=property>ParentFolder</SPAN> 속성 예제</DIV>