[ASP]폴더 생성 및 파일 내용쓰고 만들기

<%

strdirectory = "C:\web\data

set fso = Server.CreateObject("Scripting.FilesystemObject")  '파일 객체 생성

 

if Not fso.FolderExists(strdirectory) then          'strdirectory 폴더가 존재하지 않으면

  strdirectory = fso.CreateFolder(strdirectory)   '해당 폴더를 생성

end if

 

Set fso = Nothing

 

Set oFso = Server.CreateObject("Scripting.FilesystemObject")

 

Save_File_Name = "save_file.txt"

 

FilePath = Server.MapPath ("/uploadDate")

 

Save_File_Name = FilePath&"\"&Save_File_Name

 

Set oFile = sFso.OpenTextFile(Save_File_Name,2,True.0)

 

oFile.Write "aaaaaaaaaaaaaaa" '쓸 문자열 입력

 

oFile.Close

 

Set oFile = Nothing

Set oFso = Nothing

%>