Mulitple folders created per thumb

<%@ Page Language="VB" AutoEventWireup="false" ValidateRequest="false" Debug="true" %>

<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Xml" %>

<script runat="server">
	'This variable specifies relative path to the folder, where the gallery with uploaded files is located.
	'Do not forget about the slash in the end of the folder name.
	
	Dim iNumChars As Integer = CInt("6")
	Dim randDir As String = RandomString(iNumChars)
	
	Private galleryPath As String = "/imagegallery/images/" & Format(DateTime.Today, "MM_dd_yyyy") & "/"
	Dim newDir As String = randDir
	
	Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		'Get total number of uploaded files (all files are uploaded in a single package).
		Dim fileCount As Integer = Int32.Parse(Request.Form("FileCount"))

		'Create the directories to upload the images too
		Directory.CreateDirectory(Server.MapPath(galleryPath & newDir & "/large"))	'original source file directory
		Directory.CreateDirectory(Server.MapPath(galleryPath & newDir & "/medium"))	'medium sized thumb directory
		Directory.CreateDirectory(Server.MapPath(galleryPath & newDir & "/thumbs"))	'small sized thumb directory
		'Iterate through uploaded data and save the original file, thumbnail, and description.
		For i As Integer = 1 To fileCount

			'Get source file and save it to disk.
			Dim sourceFile As HttpPostedFile = Request.Files("SourceFile_" & i)
			Dim theTitle As String = Request.Form("Title_" & i)
			Dim theDescription As String = Request.Form("Description_" & i)
			
			Dim fileName As String = GetSafeFileName(Path.GetFileName(sourceFile.fileName))
			sourceFile.SaveAs(Server.MapPath(galleryPath & newDir & "/large/" & fileName & ".jpg"))

			'Get first thumbnail (the single thumbnail in this code sample) and save it to disk.
			
			Dim thumbnail1File As HttpPostedFile = Request.Files("Thumbnail1_" & i)
			thumbnail1File.SaveAs(Server.MapPath(galleryPath & newDir & "/medium/" & fileName & ".jpg"))
					
			Dim thumbnail2File As HttpPostedFile = Request.Files("Thumbnail2_" & i)
			thumbnail2File.SaveAs(Server.MapPath(galleryPath & newDir & "/thumbs/" & fileName & ".jpg"))

			'Save file info. If you modify the script.js to send more fields, do not forget to 
			'extract appropriate variables here.
			'Dim xmlFile 		As 	XmlElement = descriptions.CreateElement("file")
'			xmlFile.SetAttribute("name", fileName)
'			xmlFile.SetAttribute("width", Request.Form("Width_" & i))
'			xmlFile.SetAttribute("height", Request.Form("Height_" & i))
'			xmlFile.SetAttribute("title", Request.Form("Title_" & i))
'			xmlFile.SetAttribute("description", Request.Form("Description_" & i))
'
'			descriptions.DocumentElement.AppendChild(xmlFile)
		
		Next

		'descriptions.Save(Server.MapPath(galleryPath & "Descriptions.xml"))
		
	End Sub

	'This method verifies whether file with such name already exists 
	'and if so, construct safe filename name (to avoid collision).	
Private Function GetSafeFileName(ByVal fileName As String) As String
		
		Dim newFileName As String = fileName
		Dim j As Integer = 1
		While (File.Exists(Server.MapPath(galleryPath & newFileName)))
			newFileName = j & "_" & fileName
			j += 1
		End While
		
		Return newFileName
	
End Function
	
Public Shared Function RandomString(ByVal iLength As Integer) As String

    Dim iZero, iNine, iA, iZ, iCount, iRandNum As Integer
    Dim sRandomString As String

    ' we'll need random characters, so a Random object 
    ' should probably be created...
    Dim rRandom As New Random(System.DateTime.Now.Millisecond)

    ' convert characters into their integer equivalents (their ASCII values)
    iZero = Asc("0")
    iNine = Asc("9")
    iA = Asc("A")
    iZ = Asc("Z")

    ' initialize our return string for use in the following loop
    sRandomString = ""

    ' now we loop as many times as is necessary to build the string 
    ' length we want
    While (iCount <  iLength)
        ' we fetch a random number between our high and low values
        iRandNum = rRandom.Next(iZero, iZ)

       ' here's the cool part: we inspect the value of the random number, 
       ' and if it matches one of the legal values that we've decided upon,  
       ' we convert the number to a character and add it to our string
       If (((iRandNum > = iZero) And (iRandNum <= iNine) _
            Or (iRandNum > = iA) And (iRandNum < = iZ))) Then 
	sRandomString = sRandomString + Chr(iRandNum) 
	iCount = iCount + 1 
       End If
       
    End While
    ' finally, our random character string should be built, so we return it
    RandomString = sRandomString 
    
End Function
</script>