منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

كاتب الموضوع : AhmedEssawy

القراءة من ملف binary

كود :

Dim fileContents As Byte()

filecontents = My.Computer.FileSystem.ReadAllBytes("C:\Test.txt")

قراءة من ملف في المستندات :

كود :

Dim fullFilePath As String

Dim fileContents As String

With My.Computer.FileSystem

fullFilePath = .CombinePath(.SpecialDirectories.MyDocuments, "test.txt")

fileContents = .ReadAllText(fullFilePath)

End With

القراءة من تكست فايل :

كود :

Dim fileContents As String

fileContents = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

الكتابة إلى تكست فايل :

كود :

My.Computer.FileSystem.WriteAllText("C:\Test.txt", "Text", True)

الكتابة إلى binary file :

كود :

Dim fileContents() As Byte = {244, 123, 56, 34}

My.Computer.FileSystem.WriteAllBytes("C:\Output.bin", fileContents, True)

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech