学步园

动态获取上传文件的文件类型(OpenFileDialog 的 Filter 属性值)

控件： 一个 OpenFileDialog 控件，name：openfiledialog1
说明：
       文件类型：可从数据库获取，这里为了方便，直接用 xls,jpg,pdf,doc 替代
       为支持多种类型，文件类型间用 分号(;)隔开
示例： openfiledialog1.Filter = "xls files(*.xls)|*.xls|pdf files(*.pdf)|*.pdf|doc files(*.doc)|*.doc|image files(*.jpg)|*.jpg|all files(*.*)|*.xls;*.pdf;*.doc;*.jpg"
 Private Sub GetFileType()<br /> Dim strFillType As String '//获取的文件类型<br /> Dim strType() As String '// 分割后的文件类型(一维数组)<br /> Dim i As Integer '// For循环变量<br /> Dim str As String '// (单个)文件类型 type<br /> Dim strFill As String '// *.type<br /> Dim strFills As String '// *.type 所有文件类型<br /> Dim strFillNm As String '// type files（*.type）<br /> Dim strFilter As String '// OpenFileDialog 的 Filter 属性值<br /> Try<br /> strFills = Nothing<br /> strFilter = Nothing<br /> '//获取文件类型(可从数据库中取得)<br /> strFillType = "xls,jpg,pdf,doc"</p> <p> strType = strFillType.Split(",")</p> <p> For i = 0 To UBound(strType)<br /> str = strType(i)<br /> strFill = "*." & str<br /> strFills = strFills & ";" & strFill<br /> strFillNm = str & " files(" & strFill & ")"<br /> strFilter = strFilter & "|" & strFillNm & "|" & strFill<br /> Next</p> <p> If strFills.IndexOf(";") = 0 Then<br /> strFills = strFills.Substring(1)<br /> End If</p> <p> strFilter = strFilter & "|all files(*.*)|" & strFills<br /> '// 得到 OpenFileDialog 的 Filter 属性值<br /> If strFilter.IndexOf("|") = 0 Then<br /> strFilter = strFilter.Substring(1)<br /> End If</p> <p> Catch ex As Exception</p> <p> End Try<br /> End Sub

注解：
    '//  &：连接符
    '//  Split：返回包含此实例中的子字符串（由指定 System.Char 数组的元素分隔）的 System.String 数组。
    '//  UBound：返回可用于数组的指定维数的最大下标。
    '//  IndexOf：报告指定的 System.String 在此实例中的第一个匹配项的索引。
    '//  Substring：从此实例检索子字符串。子字符串从指定的字符位置开始。

方法二：

 Private Sub FileType()<br /> Dim strFileName As String '//上传文件名<br /> Dim strType As String '//上传文件的后缀名<br /> Dim strDic As StringDictionary<br /> Dim fs As IO.FileStream<br /> Try<br /> strDic = New StringDictionary<br /> 数据导入路径选择<br /> With Me.openfiledialog1<br /> .Title = "打开"<br /> .Filter = "All files (*.*)|*.*"<br /> .FilterIndex = 1<br /> .RestoreDirectory = True<br /> .InitialDirectory = Environment<br /> .GetFolderPath( Environment.SpecialFolder.MyDocuments)<br /> .FileName = ""<br /> If .ShowDialog() = Windows.Forms.DialogResult.OK Then<br /> '//选择文件类型判断<br /> strFileName = openfiledialog1.FileName.ToLower<br /> strType = strFileName.Substring(strFileName.LastIndexOf(".") + 1)</p> <p> '//strDic中保存支持的文件类型<br /> strDic.Add("jsp", "")<br /> strDic.Add("xls", "")<br /> strDic.Add("doc", "")</p> <p> If IsNothing(strDic) OrElse strDic.ContainsKey(strType) = False Then<br /> '//不支持该类型文件，请重新上传！<br /> Me.MsgShow("", "不支持该类型文件，请重新上传！")<br /> Exit Sub<br /> End If</p> <p> fs = New IO.FileStream(openfiledialog1.FileName, FileMode.Open, FileAccess.Read)<br /> '//选择文件数据为空<br /> If fs.Length <= 0 Then<br /> Exit Sub<br /> End If<br /> Else<br /> Exit Sub<br /> End If<br /> End With<br /> Catch ex As Exception<br /> End Try<br /> End Sub