هل يوجد طريقة لقراءة وكتابة الملفات كما هي مكتوبة على الهارد

وينكم ياشباب

ياشباب وينكم

أسهل طريقة أنك تقرأ الملف حرفًا حرفًا ، ثم تقوم بتحويل رقم الآسكي لكل حرف إلى الصيغة الثنائية ،

الكود التالي قد يساعدك ،

	Dim BytesNumber As Integer
	Dim FileNumber As Long
	FileNumber = FreeFile
	Dim bytes() As Byte
	Open "C:\1.txt" For Binary As #FileNumber
	BytesNumber = LOF(FileNumber)
	ReDim bytes(BytesNumber)
	Get #FileNumber, , bytes
	Close FileNumber

بعد تنفيذ الكود السابق ، جميع قيم آسكي لرموز الملف ستكون في المصفوفة bytes ، بعد ذلك قم بالتحويلات التي تريدها ..

ألف شكر لك أخي وجزاك الله عني كل الخير