<SCRIPT language=JScript>
function GetSpecialFolderTest(){
  var fso,tmpFolder,tmpFile,tmpName,tmpObj
  var WindowFolder=0;
  var SystemFolder=1;
  var TemporaryFolder=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  str='윈도우 폴더는 "'+fso.GetSpecialFolder(WindowFolder)+'<BR>';
  str+='시스템 폴더는 "'+fso.GetSpecialFolder(SystemFolder)+'<BR>';
  str+='임시 폴더는 "'+fso.GetSpecialFolder(TemporaryFolder)+'<BR><BR>';

  tmpFolder=fso.GetSpecialFolder(TemporaryFolder);
  tmpName=fso.GetTempName();
  tmpFile=tmpFolder.CreateTextFile(tmpName);
  tmpFile.WriteLine('예제를 위한 화일 내용이다.');
  tmpFile.Close();
  str+='임시 폴더 "'+tmpFolder+'"에<BR>임시파일 "'+tmpFile+'"이 생성되었다.';
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=GetSpecialFolderTest()">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>GetSpecialFolder</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function GetSpecialFolderTestvb()
  Dim fso,tmpFolder,tmpFile,tmpName,tmpObj,str
  Const WindowFolder=0
  Const SystemFolder=1
  Const TemporaryFolder=2
  Set fso=CreateObject("Scripting.FileSystemObject")
  str="윈도우 폴더는 '"&fso.GetSpecialFolder(WindowFolder)&"'<BR>"
  str=str&"시스템 폴더는 '"&fso.GetSpecialFolder(SystemFolder)&"'<BR>"
  str=str&"임시 폴더는 '"&fso.GetSpecialFolder(TemporaryFolder)&"'<BR><BR>"

  Set tmpFolder=fso.GetSpecialFolder(TemporaryFolder)
  tmpName=fso.GetTempName
  Set tmpFile=tmpFolder.CreateTextFile(tmpName)
  'Set tmpFile=CreateTempFile
  tmpFile.WriteLine "예제를 위한 화일 내용이다."
  tmpFile.Close
  str=str&"임시 폴더 '"&tmpFolder&"'에<BR>임시파일 '"&tmpName&"'이 생성되었다."
  GetSpecialFolderTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=GetSpecialFolderTestvb()">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>GetSpecialFolder</SPAN> 메서드 예제</DIV>