Imports System.IO
Imports System.IO.Path

Module MainModule

  Sub Main()
    Dim Args = My.Application.CommandLineArgs
    If Args.Count = 0 Then
      Console.WriteLine("There is no file to convert.")
      Console.WriteLine("Usage: BIN2B64  [[[Filename2] Filename3] [...]]")
    End If
    For Each Arg In Args
      Try
        Console.WriteLine("Reading {0}...", GetFileNameWithoutExtension(Arg))
        Dim I = File.ReadAllBytes(Arg)
        Console.WriteLine("Converting {0} to base64...", GetFileNameWithoutExtension(Arg))
        File.WriteAllText(Combine(GetDirectoryName(Arg), GetFileNameWithoutExtension(Arg) & ".b64"), Convert.ToBase64String(I, Base64FormattingOptions.None))
        Console.WriteLine("{0} was converted successfully.", GetFileNameWithoutExtension(Arg))
      Catch ex As Exception
        Console.WriteLine("Conversion failed.")
      End Try
      Console.WriteLine()
    Next
    Console.WriteLine("Completed.")
  End Sub
End Module