Dim iFn As Integer, Title As String
Dim i As Integer, j As Integer, k As Integer, ii As Integer
Dim MinV As Single, Dec As Single, Buff As String, LastOpt1 As String
Dim TBit() As Byte
Dim Uk() As Single
Dim Vk() As Single
Dim Wk() As Single

Private Sub Command1_Click()

  Dim fname As String
  Dim WindHeader As WindHeaderType
 
  With CommonDialog1
    .ShowOpen
    fname = .FileName
    MsgBox (fname)
  End With
 
  iFn = FreeFile
 
  Open fname For Binary Access Read As iFn
  ReDim Uk(1 To 41, 1 To 41, 1 To 41)
  ReDim Vk(1 To 41, 1 To 41, 1 To 41)
  ReDim Wk(1 To 41, 1 To 41, 1 To 41)

    Get iFn, , WindHeader
   
  For k = 1 To 41
    Get iFn, , MinV
    Get iFn, , Dec
    Get iFn, , TBit
    For j = 1 To 41
      For i = 1 To 41
        Uk(i, j, k) = TBit(i, j) * Dec + MinV
      Next i
    Next j
  Next k
 
  For k = 1 To 41
    Get iFn, , MinV
    Get iFn, , Dec
    Get iFn, , TBit
    For j = 1 To 41
      For i = 1 To 41
        Vk(i, j, k) = TBit(i, j) * Dec + MinV
      Next i
    Next j
  Next k
 
  For k = 1 To 41
    Get iFn, , MinV
    Get iFn, , Dec
    Get iFn, , TBit
    For j = 1 To 41
      For i = 1 To 41
        Wk(i, j, k) = TBit(i, j) * Dec + MinV
      Next i
    Next j
  Next k
   
End Sub

Public Type WindHeaderType
  Version As String
  Tstamp As Date
  xWo As Single
  xWl As Single
  yWo As Single
  yWl As Single
  zWl As Single
  nWx As Long
  nWy As Long
  nWz As Long
  Stab As Single
  iAws As Long
End Type

답변 감사드립니다...베이직 소스인데요...TBit()는 2차원 배열 형태로 파일로 저장되어 있는걸
읽어오는거랍니다.....이부분은 어떻게 읽어 들이지요?
그리고 처음에 WindHeaderType구조로 읽어 들이는데...씨로 바꾼다면 각변수의 크기를 어떻게잡아야 하는지요?
부탁 드립니다....