Scripting Runtime Library(FileSystemObject)
ÁöÁ¤µÈ Æú´õ¸¦ ¸¸µç´Ù.
ÁöÁ¤ÇÑ Æú´õ¸¦ ¸¸µç´Ù.
ÁöÁ¤ÇÑ Æú´õ°¡ ÀÌ¹Ì ÀÖÀ¸¸é ¿À·ù°¡ ¹ß»ýÇÑ´Ù.
<SCRIPT language=JScript> function CreateFolderTest(folderPath){ var fso=new ActiveXObject('Scripting.FileSystemObject'); if (fso.FolderExists(folderPath)) fso.DeleteFolder(folderPath); var folderObj=fso.CreateFolder(folderPath); str='"'+folderPath+'"°¡ »ý¼ºµÇ¾ú´Ù.'; return(str); } </SCRIPT> <DIV id=showjs class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showjs.innerHTML=CreateFolderTest('C:\\JsTest\\CreateTest')"> <SPAN class=ie>JScript</SPAN> <SPAN class=method>CreateFolder</SPAN> ¸Þ¼µå ¿¹Á¦</DIV>
<SCRIPT language=VBScript> Function CreateFolderTestvb(folderPath) Dim fso,folderObj Set fso=CreateObject("Scripting.FileSystemObject") If fso.FolderExists(folderPath) Then fso.DeleteFolder(folderPath) End If Set folderObj=fso.CreateFolder(folderPath) str="'"&folderPath&"'°¡ »ý¼ºµÇ¾ú´Ù." CreateFolderTestvb=str End Function </SCRIPT> <DIV id=showvb class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showvb.innerHTML= CreateFolderTestvb('C:\\JsTest\\CreateTest')"> <SPAN class=ie>VBScript</SPAN> <SPAN class=method>CreateFolder</SPAN> ¸Þ¼µå ¿¹Á¦</DIV>