https://www.baidu.com/baidu?ie=UTF-8&word=c%23%20%E5%88%86%E5%89%B2%E5%90%88%E5%B9%B6%E6%96%87%E4%BB%B6
https://www.cnblogs.com/lvdong-1986/p/4272351.html
Using CombineStream As system.io.FileStream = New system.io.FileStream(“合并后的文件路径和名称.tif”, system.io.FileMode.OpenOrCreate)
Using CombineWriter As system.io.BinaryWriter = New system.io.BinaryWriter(CombineStream)
For i As Integer = 0 To 99
Dim fname As String = fileName & "_" & i & ".tif"
Using fileStream As system.io.FileStream = New system.io.FileStream(fname, system.io.FileMode.Open)
Using fileReader As system.io.BinaryReader = New system.io.BinaryReader(fileStream)
Dim TempBytes As Byte() = fileReader.ReadBytes(CInt(fileStream.Length))
CombineWriter.Write(TempBytes)
End Using
End Using
Next
End Using
End Using