Imports System
Imports System.IO
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
 
 
Partial Class FlexUpload
    Inherits System.Web.UI.Page
 
    Private filePath As String
    Private fileStream As FileStream
    Private streamWriter As StreamWriter
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim fileName As String
        Dim dir As String = Request.QueryString("dir")
 
        Dim saveToFolder As String = "C:\" & dir & "\"
 
        If File.Exists(saveToFolder) Then
            File.Delete(saveToFolder)
        End If
 
        If Directory.Exists(saveToFolder) Then
            ' do nothing directory exist
        Else
            Directory.CreateDirectory(saveToFolder)
        End If
 
        Try
            Dim i As Integer
 
            For i = 0 To Request.Files.Count - 1
                fileName = System.IO.Path.GetFileName(Request.Files(i).FileName)
                Request.Files(i).SaveAs(saveToFolder & fileName)
            Next
 
        Catch ex As Exception
            WriteLog("Error :" & DateTime.Now & " " & ex.Message)
        End Try
 
    End Sub
 
    ' Error Logging Functions 
     Public Sub OpenFile()
        Dim strPath As String
        strPath = MapPath("~") & "\Error.log"
        If System.IO.File.Exists(strPath) Then
            fileStream = New FileStream(strPath, FileMode.Append, FileAccess.Write)
        Else
            fileStream = New FileStream(strPath, FileMode.Create, FileAccess.Write)
        End If
        StreamWriter = New StreamWriter(fileStream)
    End Sub
 
    Public Sub WriteLog(ByVal strComments As String)
        OpenFile()
        StreamWriter.WriteLine(strComments)
        CloseFile()
    End Sub
 
    Public Sub CloseFile()
        StreamWriter.Close()
        fileStream.Close()
    End Sub
 
End Class