'//取得文件后缀
Private Function GetFilePostfix(strPathName As String) As String
    Dim i As Long, iLen As Long, strTemp As String
    strTemp = strPathName
    iLen = Len(strTemp)
    For i = 1 To iLen
        If Left(Right(strTemp, i), 1) = "." Then Exit For
    Next i
    GetFilePostfix = LCase(Right(strTemp, i))
End Function

'//窗体关闭时
Private Sub Form_Unload(Cancel As Integer)
    If bWorking = True Then
        Cancel = 1
    Else
        Cancel = 0
    End If
End Sub