حذف چند بایت از فایل ؟؟

[سپهر-111]

سلام دوستان
نماز روزه همه دوستان قبول حق

چطور میشه چند بایت از یک فایل حذف کرد؟؟؟

با این دستور که باز کرذیم...

Open "H:\file.ext" For Binary As #1

با چه دستوری ، میشه 13 بایت از اول فایل حذف کرد؟؟؟

باتشکر

[arenaw]

سلام

Dim start&, i&, j&, b As Byte
Open filepath For Binary As #1
start = 14
j = 1
For i = start To LOF(1)
Get #1, i, b
Put #1, j, b
j = j + 1
Next i
For i = j To LOF(1)
Put #1, i, Null
Next i
Close

[محسن واژدی]

سلام علیکم
طاعات و عبادات شما هم قبول باشه انشاء ا...
کد زیر را هم بررسی کنید: Private Sub Command1_Click()
Dim bytEmpty() As Byte
Open "c:\1.exe" For Binary As #1
Seek #1, 80
ReDim bytEmpty(13)
Put #1, , bytEmpty
Close #1
End Sub
کد بالا 13 کاراکتر اول رشته "This program cannot be run in DOS mode" موجود در فایل exe را که در رکورد 80 قرار دارد null میکند

موفق باشید