[RaggiTech]

كاتب الموضوع : 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)