Re: Add bytes to any file
I had this converted for Delphi, how do you do it again, in DELPHI?
Thanks
Re: Add bytes to any file
Quote:
Originally Posted by Madboy
Anyone, i cant find my old threads :cry:
Do you mean this: http://www.vbforums.com/showthread.php?t=292654
Re: Add bytes to any file
Nope, thats the address book one :lol:
thanks, still cant find it though :confused:
Re: Add bytes to any file
Still no luck,
and why were you posting at 2am in the morning, you insomniac :afrog:
Re: Add bytes to any file
Me Need Add Mb Or GIG To Files.
Code:
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 Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub PB1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
End Sub
Private Sub Text1_Change()
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
Re: Add bytes to any file
Can the added bytes have a use ?
Could I use them to Tag files, so that a user can filter a list of files based on the Tags previously added ?
Re: Add bytes to any file
This thread is probably not the right place for either of the last two posts, but I don't understand them. The original was started in 04, then there was some activity a year later, then that one post seven years later in 2012, and now this, five years later. The original poster hasn't been around these parts in over a decade, and the others for almost as long. If you have a question to ask, ask it in the right forum, adding to a CodeBank thread this old makes no sense at all. You almost certainly won't get a reply from the original poster.