كود :
Imports System.IO.FileStream
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.FileSystem.WriteAllText("G:\Test.txt", TextBox1.Text & ChrW(13), True)
Dim Open As New OpenFileDialog
Open.Filter = "AllFiles |*.*"
If Open.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim FilesInfo As FileInfo = New FileInfo(Open.FileName)
Label4.Text = (Open.FileName)
Label2.Text = String.Format("Size : ") &
Math.Round(FilesInfo.Length / 1024, 1) & " KB " &
Math.Round(FilesInfo.Length, 1) & " Bytes "
End If
End Sub
End Classيمكنك تصميم الواجهة المختصرة او اضافة اكثر من زر و تقسيم الشفرات حسب الحاجة
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا