タイトル : バイナリー保存 投稿日 : 2009/07/21(Tue) 20:06 投稿者 : ひで
VB2008を使っているものです。 テキストに書かれた文字や数字をバイナリー形式で保存をしたいのですが、 なかなかうまくいきません。 Dim FileName As String Dim FileNum As String If SaveFileDialog1.showDialog() = DialogResult.OK Then FileName = SaveFileDialog1.FileName Else Exit Sub End If FileNum = FreeFile() FileOpen(FileNum, FileName, OpenMode.Binary) Print(FileNum, TextBox1.Text) FileClose() データを書き込む時、printではないと思い、VB6.0でも 使っていた、Putで書き込もうと思ってもうまくいきません。 ご教授の程、よろしくお願いします。 |