Dim FileExten As String = System.IO.Path.GetExtension(FileUpload1.PostedFile.FileName)

Select Case FileExten.ToUpper
    Case ".DOC"
 Response.Write(FileExten.ToUpper)
    Case ".ZIP"
 Response.Write(FileExten.ToUpper)
    Case ".XLS"
 Response.Write(FileExten.ToUpper)
    Case Else
 Response.Write("都不是")
End Select


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 Roger 的頭像
    Roger

    歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

    Roger 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄