قراءة الملفات بالبت

السلام عليكم

لقرائة الملف بت بت

Dim Fr As Long
Dim lpBit As String
Fr = FreeFile
Open FileName For Binary As Fr
	For i = 1 To LOF(Fr)
		lpBit = " "
		Get Fr, i, lpBit
	Next
Close Fr

للكتابة

Dim Fr As Long, Fr2 As Long
Dim lpBit As String
Fr = FreeFile
Open "C:\Windows\Notepad.exe" For Binary As Fr
Fr2 = FreeFile
Open "C:\Alaa.exe" For Binary As Fr2
	For i = 1 To LOF(Fr)
		lpBit = " "
		Get Fr, i, lpBit
		Put Fr2, i, lpBit
	Next
Close Fr
Close Fr2

شكرا

ولكن ما قصدته ليس قراءة محتويات الملف بل قراءة الملف نفسه

بالبتات

ثم إعادة تكوين الملف بإسمه ونوعه مرة أخرى

وبالمناسبة الكود الموضوع للقراءة نتيجته كانت "1" لكل حرف موجود في الملف

وشكرا على كل حال