vb6; تشخیص پسوند فایل انتخابی؟

[Saeed Shahabi]

با سلام...
در برنامه ام یک پنجره open گذاشتم که فایلهای تصویری رو open کنم. در قسمت file type گزینه all file هم قرار دادم اما موجب شده که اگه کاربر روی یه فایل غیر تصویری کلیک کنه برنامه کاملا قطع میشه. چطوری جلوی این خطا رو بگیرم؟ چطوری تشخیص بدم که پسوند فایل انتخابی جزو پسوندهای پیش فرض من( jpg و ...) هست یا نه؟

 

[the_king]

با سلام...
در برنامه ام یک پنجره open گذاشتم که فایلهای تصویری رو open کنم. در قسمت file type گزینه all file هم قرار دادم اما موجب شده که اگه کاربر روی یه فایل غیر تصویری کلیک کنه برنامه کاملا قطع میشه. چطوری جلوی این خطا رو بگیرم؟ چطوری تشخیص بدم که پسوند فایل انتخابی جزو پسوندهای پیش فرض من( jpg و ...) هست یا نه؟

فرض کنیم که مسیر فایل مورد نظر را در Path قرار داده اید :

    Dim [B]Path[/B] As String
    [B]Path[/B] = CommonDialog1.FileName

کد زیر در صورتی که پسوند فایل jpeg نبود، پیغام Error را نمایش می دهد :

    If InStr(Path, ".") > 0 Then
        Select Case LCase(Mid(Path, InStrRev(Path, ".") + 1))
        Case "jpg", "jpe", "jpeg"
        Case Else
            MsgBox "Error"
        End Select
    End If

کد زیر در صورتی که فایل مورد نظر به هر دلیلی یک فایل تصویری صحیح و قابل نمایش نباشد، پیغام
Error را نمایش می دهد و از قطع شدن اجرای برنامه جلوگیری می کند :

    Dim Pic As StdPicture
    On Error Resume Next
    Set Pic = LoadPicture(Path)
    If Err.Number <> 0 Then MsgBox "Error"