<%
	
'###########################################################################################
'ANSI 파일 함수
'파일 관련 함수
'###########################################################################################	
Function FileChecker(filePath)
	
	Dim oFSO
	Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 

	If InStr(filePath,"\")>0 Then
		if oFSO.FileExists(filePath) then
			FileChecker=true
		Else
			FileChecker=false
		End If
	Else	

		if oFSO.FileExists(Server.MapPath(filePath)) then
			FileChecker=true
		Else
			FileChecker=false
		End If	
	End IF
	
	set oFSO = nothing
End Function


'###########################################################################################
'파일 쓰기 함수
'###########################################################################################
 function WriteFile(filePath,Str)

 	Dim oFSO,wFile
 	Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

 	Set wFile = oFSO.CreateTextFile(filePath,true)

	wFile.writeLine(Str)
	wFile.Close

     Set oFSO = nothing
 end function

'###########################################################################################
'로그파일 쓰기 함수
'###########################################################################################
 function WriteFileLog(filePath,Str,Survey_Flag)

	Dim Strs

	If Survey_Flag = True Then
		Strs = Str
	Else
		If FileChecker(filePath) Then
			Strs = LoadStream(filePath) & Str
		Else
			Strs = Str
		End If
	End if

	Dim oFSO,wFile

	Set oFSO = Server.CreateObject("ADODB.Stream")

	oFSO.CharSet = "utf-8"
	oFSO.Mode = 3
	oFSO.Type = 2
	oFSO.Open
	oFSO.WriteText(Strs),1
	oFSO.SaveToFile filePath,2
	oFSO.Flush
	oFSO.Close
	Set oFSO = Nothing

 end function 


'###########################################################################################
'폴더 관련 함수
'###########################################################################################	
Function FolderChecker(filePath)
	
	Dim oFSO
	Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
	
	if oFSO.FolderExists(filePath) then
		FolderChecker=true
	Else
	    FolderChecker=false
	End If	
	
	set oFSO = nothing
End Function

'###########################################################################################
'폴더 만들기
'###########################################################################################
 function MakeFolder(filePath)

 	Dim oFSO,wFolder
 	Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

 	oFSO.CreateFolder filePath

     Set oFSO = nothing
 end function

'###########################################################################################
'UTF-8 
'파일 읽기
'###########################################################################################
Function ReadUTF_File(FileUrl)

  Dim objStream  
  Set objStream = CreateObject("ADODB.Stream")
  With objStream
    .Charset = "utf-8"
    .Type=2
    .mode=3
    .Open
    .loadfromfile Server.Mappath(FileUrl)
    ReadUTF_File=.readtext
    .Close
  End With
  
  Set objStream = Nothing
End Function
 
'###########################################################################################
'파일 저장
'###########################################################################################
Sub WriteUTF_File (FileUrl,ByVal Str)
	
	Dim objStream
    Set objStream=Server.CreateObject("ADODB.Stream")
	
	With objStream
    .Type=2	'1: 바이너리 2: for text type
    .mode=3	'1: ReadOnly 2:WriteOnly 3:ReadWrite
    .Charset="utf-8"
    .Open
    .WriteText str
    .SaveToFile server.MapPath(FileUrl),2 
    .flush
    .Close
	End With	
    Set objStream=nothing
End Sub

%>