none
BINファイルを転送してlzhファイルを作成したい。 RRS feed

  • 質問

  • BINファイル(ifileno1)の最初の256Byteは使用せずにそれ以下の情報をlzhファイル(ifileno2)

    に転送するプログラムを作成したのですが、☆の場所でエラーとなってしまい、処理が途中で止まってしまいます。

    何が悪いのか分かりません。教えて下さい。

     

            Function DV_zipfile(ByRef file_sor As Object, ByRef file_des As Object) As Boolean

                    Dim iFileNo1 As Short

                    Dim iFileNo2 As Short

                    Dim pt1, pt2 As Object

                    Dim MaxSize As Object

                    DV_zipfile = False

                    '(1)先頭のByteは、無効なデータとして捨てる

                    iFileNo1 = FreeFile

                    FileOpen(iFileNo1, file_sor, OpenMode.Binary, OpenAccess.Read, , RecordSize)

                    On Error GoTo ER_DV_zipfile1

                    MaxSize = LOF(iFileNo1)

                    iFileNo2 = FreeFile

                    FileOpen(iFileNo2, file_des, OpenMode.Binary, OpenAccess.Write)

                    On Error GoTo ER_DV_zipfile2

                    Dim buff(RecordSize) As Byte

                    Seek(iFileNo1, 256)

                    pt2 = Int(MaxSize / RecordSize)

                    For pt1 = 0 To pt2

                            FileGet(iFileNo1, buff)☆

                            FilePut(iFileNo2, buff)

                    Next

                    FileClose(iFileNo1)

                    FileClose(iFileNo2)

                    DV_zipfile = True

                    On Error GoTo 0

                    Exit Function

                   

    EX_DV_zipfile1:

                    FileClose(iFileNo1)

                    On Error GoTo 0

                    Exit Function

                   

    EX_DV_zipfile2: ←☆からここに飛んでしまう。

                    FileClose(iFileNo1)

                    FileClose(iFileNo2)

                    Kill(file_des)

                    On Error GoTo 0

                    Exit Function

                   

    ER_DV_zipfile1:

                    Resume EX_DV_zipfile1

                   

    ER_DV_zipfile2:

                    Resume EX_DV_zipfile2

                   

            End Function

    2007年6月1日 2:14