[Blue]

This is a tutorial on how to make a fully working File Pumper!
It is pretty simple and will probable help a lot of you out!

1. Make a new form. Name it "File Pumper" or whatever you prefer.

2. Put the following things in Form1.
1x Textbox
2x Button
2x Radio Button
1x NumericUpDown

3. Set the following text for the following things:
Button1 = Browse
Button2 = Pump!
RadioButton1 = Kilobyte
RadioButton2 = Megabyte

Here is the layout I used, You do not have too of course.


4. Double click the Open button & add the following code.

Code:

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

5. Double click the Pump button & add the following code.

Code:

Dim sfd As New SaveFileDialog sfd.Filter = "Exe Files|*.exe" sfd.ShowDialog() Dim filesize As Double = Val(NumericUpDown1.Value) IO.File.Copy(TextBox1.Text, sfd.FileName) If RadioButton1.Checked Then filesize = filesize * 1024 End If If RadioButton2.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() MsgBox("Successfully Pumped!")

That is a easy way to make a File Pumper! Enjoy!

[Helroos]

While size is lower than selected size, add a byte.
Nice method, thanks for sharing

[Blue]

Thank you, Enjoy!