Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Me.inpFileUp.PostedFile.FileName <> "" Then
                    Dim Folder_Name, File_Name, Complete_File_name As String
 
                    File_Name = Me.inpFileUp.PostedFile.FileName.ToString()                    Folder_Name = Left(MapPath(""), MapPath("").IndexOf("information")) + "newfile"                    If Directory.Exists(Folder_Name) = False Then
                        Directory.CreateDirectory(Folder_Name)
                    End If                    Complete_File_name = Folder_Name + "\m-1-1.txt"                    If File.Exists(Complete_File_name) = False Then
                        inpFileUp.PostedFile.SaveAs(Complete_File_name)
                     Else
                        Label1.Text = "have a same file, please change your file name!"
                    End If
                End If            Else
                Label1.Text = "please select file what you want to upload"
            End If
    End Sub