Загрузить файл ограничен .док .файлы DOCX, .XLS, а также .контакты .формат PDF, .тиф, .Тифф, .в формате JPG, .гиф .тхт только

---

Всем Привет
У меня есть ниже код

Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
       If txtDocPath.Text <> "" Then
           Dim sqlstr As New StringBuilder
           Dim strFileName As String
           Dim strFileName1 As String
           Dim AppPath As String
           'My.Application.Info.DirectoryPath
           'For Live
           'AppPath = GetIniSetting("RootLocationFileFolder") & "\"
           'For Local
           ''Laksman
           AppPath = "E:\LocationFiles\"
           Dim FlagSelected As Boolean = False
           strFileName1 = ofdDocToUpload.FileName
           strFileName = getTimeStamp() & "_" & ofdDocToUpload.SafeFileName()
           'strFileName = ofdDocToUpload.SafeFileName()
           AppPath = AppPath + strFileName
           sqlstr.Append("ESP_InsLocationFiles ")
           sqlstr.Append(PrepareString(ChangeToEmptyString(strFileName)) & COMMA)
           sqlstr.Append(ChangeToZero(MDS_RECNUM) & COMMA)
           sqlstr.Append(PrepareString(txtLocationName.Text.Trim()) & COMMA)
           sqlstr.Append(PrepareString(System.DateTime.Now.ToString()))
           ExecuteSQLNonQuery(sqlstr.ToString)
           sqlstr.Length = 0
           FlagSelected = True
           If FlagSelected = True Then
               FileCopy(strFileName1, AppPath)
               MsgBox("Location files uploaded successfully", MsgBoxStyle.Information, "Upload Files")
               txtDocPath.Text = ""
               populateLocationFiles()
           Else
               MsgBox("Please select location to upload", MsgBoxStyle.Information, "Upload Files")
               Exit Sub
           End If
       Else
           MsgBox("Please select file to upload.", MsgBoxStyle.Information, "Upload Files")
           btnBrowse.Select()
           Exit Sub
       End If
   End Sub

которые позволяют загружать все типы файлов, но условие заключается в том, что загрузка файла ограничена только .doc,. docx,. xls,. xlsx,. pdf,. tif,. tiff,. jpg,. gif,. txt, где и что я должен изменить? Пожалуйста помочь...

---