ASP에서 폴더 생성하기, txt파일 내용쓰고 만들기

<%
Dim Fso, strDir

strDir = "C:\Myweb\mFax_china\updateinfo"

Set Fso = Server.CreateObject("Scripting.FileSystemObject") '파일객체 생성

If Not Fso.FolderExists(strDir) Then '"C:Temp폴더가 존재하지 않으면
strDir = Fso.CreateFolder(strDir) '"C:Temp폴더를 생성

End If

Set Fso = nothing

Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
sfile_Name = "save.txt"
filePath = Server.MapPath("./upda.")
sfile_Name = filePath & "\" & sfile_Name

Set oFile = oFSO.OpenTextFile(sfile_Name, 2, True, 0)
 

   'Do Loop 레코드

     oFile.Write "zz"        ' save 텍스트에 zz라는 문자열 쓰기

   'Loop

oFile.Close

Set oFile = Nothing
Set oFSO = Nothing

%>