이야기 마을

<%

Sub WriteFile(sFilePathAndName,sFileContents)  

  Const ForWriting =2

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")
  Set oFSFile = oFS.OpenTextFile(sFilePathAndName,ForWriting,True)

  oFSFile.Write(sFileContents)
  oFSFile.Close

  Set oFSFile = Nothing
  Set oFS = Nothing

End Sub

Function ReadFile(sFilePathAndName)

   dim sFileContents

   Set oFS = Server.CreateObject("Scripting.FileSystemObject")

   If oFS.FileExists(sFilePathAndName) = True Then
      
      Set oTextStream = oFS.OpenTextFile(sFilePathAndName,1)
      
      sFileContents = oTextStream.ReadAll
    
      oTextStream.Close

      Set oTextStream = nothing
  
   End if
  
   Set oFS = nothing

   ReadFile = sFileContents

End Function

Sub ReadFileLineByLine(sFilePathAndName)

   Const ForReading = 1
   Const ForWriting = 2
   Const ForAppending = 8
   Const TristateUseDefault = -2
   Const TristateTrue = -1
   Const TristateFalse = 0

   Dim oFS
   Dim oFile
   Dim oStream

   Set oFS = Server.CreateObject("Scripting.FileSystemObject")

   Set oFile = oFS.GetFile(sFilePathAndName)
  
   Set oStream = oFile.OpenAsTextStream(ForReading, TristateUseDefault)

   Do While Not oStream.AtEndOfStream
    
      sRecord=oStream.ReadLine

      Response.Write  sRecord

   Loop

   oStream.Close

  End Sub


Sub RemoveFolder(sPath,fRemoveSelf)

  Dim oFS  
  Dim oFSFolder  
  
  Set oFS = Server.CreateObject("Scripting.FileSystemObject")

  If oFS.FolderExists(sPath)  <> True Then
    Set oFS = Nothing
    Exit Sub
  End If
  
  Set oFSFolder = oFS.GetFolder(sPath)
  
  RemoveSubFolders oFSFolder
  
  If fRemoveSelf = True Then

     If oFS.FolderExists(sPath) = True Then
        oFSFolder.Delete True
     Else
        Set oFSFolder = Nothing
        Set oFS = Nothing
        Exit Sub
     End If

  End If
  
   Set oFSFolder = Nothing
   Set oFS = Nothing

End Sub


Sub RemoveSubFolders(oFSFolder)

   Dim oFSFile
   Dim oFSSubFolder  
  
   For Each oFSFile In oFSFolder.Files
         oFSFile.Delete True
   Next

   For Each oFSSubFolder In oFSFolder.SubFolders
         RemoveSubFolders oFSSubFolder
         oFSSubFolder.Delete True
   Next
    
   Set oFSFile = Nothing
  
End Sub


Sub RemoveFile(sFilePathAndName)

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")
  
  If oFS.FileExists(sFilePathAndName) = True Then
     oFS.DeleteFile sFilePathAndName, True
  end if

  Set oFS = Nothing
  
End Sub

%>


===============================================
뭐 vb에서도 사용가능한.....

쓸일이 많지 않아 쓸때마다 찾아보는..ㅜㅜ

기억력이 닭이라 이건 이상시리 기억이 안되넹....ㅡㅡ;;;;;;