aspx.vb "Object variable or With block variable not set"

Hi,

Can someone help me with my aspx.vb code?  at line 24 of he code below?


System.NullReferenceException was unhandled by user code
  HResult=-2147467261
  Message=Object variable or With block variable not set.
  Source=Microsoft.VisualBasic
  StackTrace:
       at Microsoft.VisualBasic.CompilerServices.Symbols.Container..ctor(Object Instance)
       at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
       at _Default.Button1_Click(Object sender, EventArgs e) in D:\Reports\Default.aspx.vb:line 24
       at System.Web.UI.WebControls.Button.OnClick(EventArgs e)
       at System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument)
       at System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument)
       at System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
       at System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
       at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint)
  InnerException:

Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Linq
Imports System.Web
Imports System.Web.UI.Page
Imports System.Web.UI.WebControls
Imports System.Management.Automation
Imports System.Management.Automation.Runspaces
Imports System.IO
Imports System.Text

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs)

        Dim fname, ftxt
        Dim fstatus As String
        Dim fileOK As Boolean = False

        If (ftxt.HasFile) Then
            Dim fileExtension As String
            fileExtension = System.IO.Path. _
                GetExtension(ftxt.FileName).ToLower()
            Dim allowedExtensions As String() = _
                {".txt"}
            For i As Integer = 0 To allowedExtensions.Length - 1

                'Dim Filesize As Integer = ftxt.PostedFileContent
                If fileExtension = allowedExtensions(i) Then
                    fileOK = True
                End If

            Next
            If fileOK Then
                Try
                    Dim objFSO, strFolder
                    objFSO = CreateObject("Scripting.FileSystemObject")
                    strFolder = objFSO.CreateFolder(Server.MapPath("D:\Reports\uploads\" & fname))
                    Dim fpath As String = Server.MapPath(strFolder)
                    Dim fname = Path.GetFileName(ftxt.Filename)
                    Dim fnameWithoutExt = Path.GetFileNameWithoutExtension(ftxt.FileName)
                    Dim Ext = Path.GetExtension(ftxt.FileName)
                    Dim fnametoSave = fnameWithoutExt & "_" & Date.Now.ToString("dd-MM-yyyy") & Ext
                    ftxt.PostedFile.SaveAs(fpath & ftxt.fnametoSave)
                    fstatus = "Upload status: File uploaded!"
                Catch ex As Exception
                    fstatus = "Upload status: Only text files are under 100kb are accepted"

                End Try
            Else
                fstatus = "Upload status: Cannot Accept File"

            End If
        End If
    End Sub

End Class

Select allOpen in new window