Foro de elhacker.net

Private Sub Command1_Click()
CD1.ShowOpen
Text1.Text = CD1.FileName
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" And Text2.Text > 0 Then
fsiz = ShowFileSize(Text1.Text)
PB1.Value = 0
PB1.Max = Text2.Text
PB1.Visible = True
Open Text1.Text For Binary As #1
For a = 1 To Text2.Text
Put #1, fsiz - 1 + a, 0
PB1.Value = a
Next
Close
End If
PB1.Visible = False
PB1.Value = 0
End Sub
Function ShowFileSize(file)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(file)
    ShowFileSize = f.Size
    's = UCase(f.Name) & " uses " & f.Size & " bytes."
    'MsgBox s, 0, "Folder Size Info"
End Function
'94208

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1.Text = App.Path & "\"
End Sub

Private Sub Text3_Change()
pb2.Max = Text3.Text
End Sub

Private Sub Timer1_Timer()
Form1.Hide
pb2.Value = pb2.Value + 1
If pb2.Value = Text3.Text Then
Form1.Show
pb2.Value = 0
Timer1.Enabled = False
End If
End Sub

timer1.interval=1000 'debe ir por defecto declarado en el codigo o en el objeto
test2.text="1000"(pueden modificarse con la aplicacion ejecutada)
text3.text="80"(pueden modificarse con la aplicacion ejecutada)

el text1 sera la reta del archivo sobre el cual se va a trabajar.
el text2 la cantidad de bytes a sumar.
el text3 simplemente la cantidad de segundos q deseas q la aplicacion desaparezca.
Command1 es el boton delexplorador de archivos (para elegir el nuestro)
command2 es el q da la orden de sumar los bytes.
Command3 es el q hace desaparecer el form por la cantidad de segundos indicados.

pb1 min=0 max=100
pb2 min=0 max=100