ASP.NET, SQL Server, WPF, C#, VB.NET

  
 <% 

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 

%>