Public Function ReadInnerFile(ByVal bytes() As Byte, Optional ByRef Filename As String = Nothing, Optional ByRef FullName As String = Nothing, Optional ByRef TempPath As String = Nothing) As Byte()
If bytes(16) = 255 AndAlso bytes(17) = 255 AndAlso bytes(18) = 255 AndAlso bytes(19) = 255 Then
Else
Return bytes
End If
Dim i As Int16 = 20, InnerType As String = ""
While bytes(i) <> 0
InnerType += Chr(bytes(i))
i += 1
End While
i += 1
Dim TypeDetail As String = ""
While bytes(i) <> 0
TypeDetail += Chr(bytes(i))
i += 1
End While
i += 13
Dim futherMore As String = ""
While bytes(i) <> 0
futherMore += Chr(bytes(i))
i += 1
End While
i += 9
Dim size As Integer = 0
Dim j As Integer
For j = 0 To 3
size += bytes(i + j) * Math.Pow(256, j)
Next
Dim fs() As Byte = {}
If InnerType <> "Package" Then
Filename = "temp."
If futherMore.Contains("Word") Then
If futherMore.Split(".")(2) = "12" Then
Filename += "docx"
Else
Filename += "doc"
End If
ElseIf futherMore.Contains("Excel") Then
If futherMore.Split(".")(2) = "12" Then
Filename += "xlsx"
Else
Filename += "xls"
End If
ElseIf futherMore.Contains("PowerPoint") Then
If futherMore.Split(".")(2) = "12" Then
Filename += "pptx"
Else
Filename += "ppt"
End If
ElseIf futherMore.Contains("Access") Then
If futherMore.Split(".")(2) = "12" Then
Filename += "accdb"
Else
Filename += "mdb"
End If
End If
Array.Resize(fs, size)
For j = i + 4 To i + 3 + size
fs(j - i - 4) = bytes(j)
Next
Return fs
End If
i += 6
Filename = ""
While bytes(i) <> 0
Filename += Chr(bytes(i))
i += 1
End While
i += 1
FullName = ""
While bytes(i) <> 0
FullName += Chr(bytes(i))
i += 1
End While
i += 9
TempPath = ""
While bytes(i) <> 0
TempPath += Chr(bytes(i))
i += 1
End While
i += 1
size = 0
For j = 0 To 3
size += bytes(i + j) * Math.Pow(256, j)
Next
Array.Resize(fs, size)
For j = i + 4 To i + 3 + size
fs(j - i - 4) = bytes(j)
Next
Return fs
End Function