ファイルの先頭にデータを追加する

'指定したファイルの先頭にデータを追加する
Sub appendFirst(sFileName As String, sNewData As String)
    Dim iFileNum As Integer 'ファイル番号
    Dim bData() As Byte 'データ格納用
   
    ReDim bData(FileLen(sFileName) - 1)
    iFileNum = FreeFile
    Open sFileName For Binary As #iFileNum
    Get #iFileNum, , bData  'データ読み込み
    Put #iFileNum, 1, sNewData & vbCrLf '指定したデータを先頭に付加
    Put #iFileNum, , bData '既存データをその後ろに付加
    Close #iFileNum
End Sub

トップページに戻る

Tips一覧に戻る