18-03-20, 10:12 PM
(18-03-20, 02:03 PM)سامي محمد كتب : جهازك به فايرس يرفض الكمبيوتر تحميلهوالله يا اخي ما زبط ياريت شرح علي المشروع
انظر الى هذه الطريقة ربما تفي بالغرض وهي وقت الكتابة ولا تحتاج الى ان التعديل
----كود :
For x As Integer = 0 To 20
If x = 20 Then
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x, True) 'حفظ التيكست بوكس1
Else
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x & vbNewLine, True) 'حفظ التيكست بوكس1
End If
Next
Process.Start(Application.StartupPath & "\1.txt")
اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك
