base64形式でエンコードされたファイルをShift-JISにデコードするサンプルプログラムを覚書。
サンプルプログラム
サンプルプログラムを以下に記載。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As New BASE64COMLib.Base64
Dim r As Long
r = b.DecodeFile("C:¥test.b64", "c:¥test.txt")
End Sub
DecodeFileメソッドを使用する。
ループを利用すれば、複数のファイルを一気にデコードすることも可能。
コメント