ok I have an entire page in vb.net and now I want to integrate some code from another page but it written in c#.net 


what is the easiest way to convert c#.net to vb.net I tried using  www.kamalpatel.net/ConvertCSharp2VB.aspx  but it only gave me errors


here is what I am trying to convert let me know if you have any ideas 


http://www.nomorepasting.com/paste.php?pasteID=20953

With Alex Lowe's translator




 ' Messages


Private NoFileMessage As String = "No file selected"


Private UploadSuccessMessage As String = "Uploaded Sucess"


Private NoImagesMessage As String = "No Images"


Private NoFolderSpecifiedMessage As String = "No folder"


Private NoFileToDeleteMessage As String = "No file to delete"


Private InvalidFileTypeMessage As String = "Invalid file type"


Private AcceptedFileTypes() As String = {"JPG", "GIF", "jpg", "jpeg", "jpe", "gif", "bmp", "png"}


' Configuration


Private UploadIsEnabled As Boolean = False


Private DeleteIsEnabled As Boolean = True


Private DefaultImageFolder As String = "images"





Private Sub Page_Load(sender As Object, e As System.EventArgs)


   '	string isframe = "" + Request["frame"];


   '	if (isframe != "") {


   MainPage.Visible = True


   'iframePanel.Visible = false;


   Dim rif As String = "uploader/uploaded_files" '+ Request["rif"];


   Dim cif As String = "uploader/uploaded_files" '+ Request["cif"];	


   If cif <> "" And rif <> "" Then


      RootImagesFolder.Value = rif


      CurrentImagesFolder.Value = cif


   Else


      RootImagesFolder.Value = DefaultImageFolder


      CurrentImagesFolder.Value = DefaultImageFolder


   End If


   


   UploadPanel.Visible = UploadIsEnabled


   DeleteImage.Visible = DeleteIsEnabled


   


   Dim FileErrorMessage As String = ""


   Dim ValidationString As String = ".*("


   '[\.jpg]|[\.jpeg]|[\.jpe]|[\.gif]|[\.bmp]|[\.png])$"


   Dim i As Integer


   For i = 0 To AcceptedFileTypes.Length - 1


      ValidationString += "[\." + AcceptedFileTypes(i) + "]"


      If i < AcceptedFileTypes.Length - 1 Then


         ValidationString += "|"


      End If


      FileErrorMessage += AcceptedFileTypes(i)


      If i < AcceptedFileTypes.Length - 1 Then


         FileErrorMessage += ", "


      End If


   Next i


   FileValidator.ValidationExpression = ValidationString + ")$"


   FileValidator.ErrorMessage = FileErrorMessage


   


   If Not IsPostBack Then


      DisplayImages()


   End If


End Sub 'Page_Load


 '	} else {


'	}


Public Sub UploadImage_OnClick(sender As Object, e As EventArgs)


   If Page.IsValid Then


      If CurrentImagesFolder.Value <> "" Then


         If UploadFile.PostedFile.FileName.Trim() <> "" Then


            If IsValidFileType(UploadFile.PostedFile.FileName) Then


               Try


                  Dim UploadFileName As String = ""


                  Dim UploadFileDestination As String = ""


                  UploadFileName = UploadFile.PostedFile.FileName


                  UploadFileName = UploadFileName.Substring((UploadFileName.LastIndexOf("\") + 1))


                  UploadFileDestination = HttpContext.Current.Request.PhysicalApplicationPath


                  UploadFileDestination += CurrentImagesFolder.Value


                  UploadFileDestination += "\"


                  UploadFile.PostedFile.SaveAs((UploadFileDestination + UploadFileName))


                  ResultsMessage.Text = UploadSuccessMessage


               Catch ex As Exception


                  'ResultsMessage.Text = "Your file could not be uploaded: " + ex.Message;


                  ResultsMessage.Text = "There was an error."


               End Try


            Else


               ResultsMessage.Text = InvalidFileTypeMessage


            End If


         Else


            ResultsMessage.Text = NoFileMessage


         End If


      Else


         ResultsMessage.Text = NoFolderSpecifiedMessage


      End If


   Else


      ResultsMessage.Text = InvalidFileTypeMessage


   End If 


   DisplayImages()


End Sub 'UploadImage_OnClick





Public Sub DeleteImage_OnClick(sender As Object, e As EventArgs)


   If FileToDelete.Value <> "" And FileToDelete.Value <> "undefined" Then


      Try


         Dim AppPath As String = HttpContext.Current.Request.PhysicalApplicationPath


         System.IO.File.Delete((AppPath + CurrentImagesFolder.Value + "\" + FileToDelete.Value))


         ResultsMessage.Text = "Deleted: " + FileToDelete.Value


      Catch ex As Exception


         ResultsMessage.Text = "There was an error."


      End Try


   Else


      ResultsMessage.Text = NoFileToDeleteMessage


   End If


   DisplayImages()


End Sub 'DeleteImage_OnClick





Private Function IsValidFileType(FileName As String) As Boolean


   Dim ext As String = FileName.Substring(FileName.LastIndexOf(".") + 1, FileName.Length - FileName.LastIndexOf(".") - 1)


   Dim i As Integer


   For i = 0 To AcceptedFileTypes.Length - 1


      If ext = AcceptedFileTypes(i) Then


         Return True


      End If 


   Next i


   Return False


End Function 'IsValidFileType





Private Function ReturnFilesArray() As String()


   If CurrentImagesFolder.Value <> "" Then


      Try


         Dim AppPath As String = HttpContext.Current.Request.PhysicalApplicationPath


         Dim ImageFolderPath As String = AppPath + CurrentImagesFolder.Value


         Dim FilesArray As String() = System.IO.Directory.GetFiles(ImageFolderPath, "*")


         Return FilesArray


      


      


      Catch


      End Try 


   Else


      Return Nothing


   End If


End Function 'ReturnFilesArray


 


Private Function ReturnDirectoriesArray() As String()


   If CurrentImagesFolder.Value <> "" Then


      Try


         Dim AppPath As String = HttpContext.Current.Request.PhysicalApplicationPath


         Dim CurrentFolderPath As String = AppPath + CurrentImagesFolder.Value


         Dim DirectoriesArray As String() = System.IO.Directory.GetDirectories(CurrentFolderPath, "*")


         Return DirectoriesArray


      Catch


      End Try


   Else


      Return Nothing


   End If


End Function 'ReturnDirectoriesArray





Public Sub DisplayImages()


   Dim FilesArray As String() = ReturnFilesArray()


   Dim DirectoriesArray As String() = ReturnDirectoriesArray()


   Dim AppPath As String = HttpContext.Current.Request.PhysicalApplicationPath


   Dim AppUrl As String


   


   'Get the application's URL


   If Request.ApplicationPath = "/" Then


      AppUrl = Request.ApplicationPath


   Else


      AppUrl = Request.ApplicationPath + "/"


   End If 


   GalleryPanel.Controls.Clear()


   If FilesArray Is Nothing Or FilesArray.Length = 0 And(DirectoriesArray Is Nothing Or DirectoriesArray.Length = 0) Then


      gallerymessage.Text = NoImagesMessage '+ ": " + RootImagesFolder.Value;


   Else


      Dim ImageFileName As String = ""


      Dim ImageFileLocation As String = ""


      


      Dim thumbWidth As Integer = 94


      Dim thumbHeight As Integer = 94


      


      If CurrentImagesFolder.Value <> RootImagesFolder.Value Then


         


         Dim myHtmlImage As New System.Web.UI.HtmlControls.HtmlImage()


         myHtmlImage.Src = AppUrl + "images/ftb/folder.up.gif"


         myHtmlImage.Attributes("unselectable") = "on"


         myHtmlImage.Attributes("align") = "absmiddle"


         myHtmlImage.Attributes("vspace") = "36"


         


         Dim ParentFolder As String = CurrentImagesFolder.Value.Substring(0, CurrentImagesFolder.Value.LastIndexOf("\"))


         


         Dim myImageHolder As New System.Web.UI.WebControls.Panel()


         myImageHolder.CssClass = "imageholder"


         myImageHolder.Attributes("unselectable") = "on"


         myImageHolder.Attributes("onclick") = "divClick(this,'');"


         myImageHolder.Attributes("ondblclick") = "gotoFolder('" + RootImagesFolder.Value + "','" + ParentFolder.Replace("\", "\\") + "');"


         myImageHolder.Controls.Add(myHtmlImage)


         


         Dim myMainHolder As New System.Web.UI.WebControls.Panel()


         myMainHolder.CssClass = "imagespacer"


         myMainHolder.Controls.Add(myImageHolder)


         


         Dim myTitleHolder As New System.Web.UI.WebControls.Panel()


         myTitleHolder.CssClass = "titleHolder"


         myTitleHolder.Controls.Add(New LiteralControl("Up"))


         myMainHolder.Controls.Add(myTitleHolder)


         


         GalleryPanel.Controls.Add(myMainHolder)


      End If 


      


      Dim _Directory As String


      For Each _Directory In  DirectoriesArray


         


         Try


            Dim DirectoryName As String = _Directory.ToString()


            


            


            Dim myHtmlImage As New System.Web.UI.HtmlControls.HtmlImage()


            myHtmlImage.Src = AppUrl + "images/ftb/folder.big.gif"


            myHtmlImage.Attributes("unselectable") = "on"


            myHtmlImage.Attributes("align") = "absmiddle"


            myHtmlImage.Attributes("vspace") = "29"


            


            Dim myImageHolder As New System.Web.UI.WebControls.Panel()


            myImageHolder.CssClass = "imageholder"


            myImageHolder.Attributes("unselectable") = "on"


            myImageHolder.Attributes("onclick") = "divClick(this);"


            myImageHolder.Attributes("ondblclick") = "gotoFolder('" + RootImagesFolder.Value + "','" + DirectoryName.Replace(AppPath, "").Replace("\", "\\") + "');"


            myImageHolder.Controls.Add(myHtmlImage)


            


            Dim myMainHolder As New System.Web.UI.WebControls.Panel()


            myMainHolder.CssClass = "imagespacer"


            myMainHolder.Controls.Add(myImageHolder)


            


            Dim myTitleHolder As New System.Web.UI.WebControls.Panel()


            myTitleHolder.CssClass = "titleHolder"


            myTitleHolder.Controls.Add(New LiteralControl(DirectoryName.Replace(AppPath + CurrentImagesFolder.Value + "\", "")))


            myMainHolder.Controls.Add(myTitleHolder)


            


            GalleryPanel.Controls.Add(myMainHolder)


         Catch


         End Try ' nothing for error


      Next _Directory


      


      Dim ImageFile As String


      For Each ImageFile In  FilesArray


         


         Try


            


            ImageFileName = ImageFile.ToString()


            ImageFileName = ImageFileName.Substring((ImageFileName.LastIndexOf("\") + 1))


            ImageFileLocation = AppUrl


            ImageFileLocation = ImageFileLocation.Substring((ImageFileLocation.LastIndexOf("\") + 1))


            'galleryfilelocation += "/";


            ImageFileLocation += CurrentImagesFolder.Value


            ImageFileLocation += "/"


            ImageFileLocation += ImageFileName


            Dim myHtmlImage As New System.Web.UI.HtmlControls.HtmlImage()


            myHtmlImage.Src = ImageFileLocation


            Dim myImage As System.Drawing.Image = System.Drawing.Image.FromFile(ImageFile.ToString())


            myHtmlImage.Attributes("unselectable") = "on"


            'myHtmlImage.border=0;


            ' landscape image


            If myImage.Width > myImage.Height Then


               If myImage.Width > thumbWidth Then


                  myHtmlImage.Width = thumbWidth


                  myHtmlImage.Height = Convert.ToInt32((myImage.Height * thumbWidth / myImage.Width))


               Else


                  myHtmlImage.Width = myImage.Width


                  myHtmlImage.Height = myImage.Height


               End If


            ' portrait image


            Else


               If myImage.Height > thumbHeight Then


                  myHtmlImage.Height = thumbHeight


                  myHtmlImage.Width = Convert.ToInt32((myImage.Width * thumbHeight / myImage.Height))


               Else


                  myHtmlImage.Width = myImage.Width


                  myHtmlImage.Height = myImage.Height


               End If


            End If


            


            If myHtmlImage.Height < thumbHeight Then


               myHtmlImage.Attributes("vspace") = Convert.ToInt32((thumbHeight / 2 - myHtmlImage.Height / 2)).ToString()


            End If


            


            


            Dim myImageHolder As New System.Web.UI.WebControls.Panel()


            myImageHolder.CssClass = "imageholder"


            myImageHolder.Attributes("onclick") = "divClick(this,'" + ImageFileName + "');"


            myImageHolder.Attributes("ondblclick") = "returnImage('" + ImageFileLocation.Replace("\", "/") + "','" + myImage.Width.ToString() + "','" + myImage.Height.ToString() + "');"


            myImageHolder.Controls.Add(myHtmlImage)


            


            


            Dim myMainHolder As New System.Web.UI.WebControls.Panel()


            myMainHolder.CssClass = "imagespacer"


            myMainHolder.Controls.Add(myImageHolder)


            


            Dim myTitleHolder As New System.Web.UI.WebControls.Panel()


            myTitleHolder.CssClass = "titleHolder"


            myTitleHolder.Controls.Add(New LiteralControl(ImageFileName + "<BR> <input type=checkbox name=" + ImageFileName + " value=checkbox> " + myImage.Width.ToString() + "x" + myImage.Height.ToString()))


            myMainHolder.Controls.Add(myTitleHolder)


            


            'GalleryPanel.Controls.Add(myImage);


            GalleryPanel.Controls.Add(myMainHolder)


            


            myImage.Dispose()


         Catch


         End Try 


      Next ImageFile


      gallerymessage.Text = ""


   End If


End Sub 'DisplayImages


Thanks,

Teemu Keiski
Finland, EU