File Pumper

[Intellectual]

Hey guy in this tutorial you gonna learn how to make a file pumper , it simply adds bytes to increase the file size first of all include Imports System**** on your source code.

• 1 The tools we need:
  - 2 Buttons
  - 1 TextBox
  - 1 NumericTextBox
  

  ---

• 2 Changing tool names: (Tool name not tool text)
  - Button1 = Browse Exe
  - Button2 = Pump File
  - And set the minimum on the NumericTextBox to 10

  ---

• 3 Coding:
  Browse Exe Button
  

  Dim ofd As New OpenFileDialog
          ofd.Filter = "Exe File|*.exe"
          ofd.ShowDialog()
          TxtFileName.Text = ofd.FileName

  ---

  
  Pump File Button
  

   Dim sfd As New SaveFileDialog
          sfd.Filter = "Exe Files|*.exe"
          sfd.ShowDialog()
          Dim filesize As Double = Val(NumericUpDown2.Value)
          IO.File.Copy(TxtFileName.Text, sfd.FileName)
          If rbtnMegaByte.Checked Then
              filesize = filesize * 1048576
          End If
          Dim filetopump = IO.File.OpenWrite(sfd.FileName)
          Dim size = filetopump.Seek(0, IO.SeekOrigin.End)
          While size < filesize
              filetopump.WriteByte(0)
              size += 1
          End While
          filetopump.Close()
          Interaction.MsgBox("File Pumped!", MsgBoxStyle.Information)