تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#3
كود :
If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Desktop + "\mn.txt") = False Then
            IO.File.CreateText(My.Computer.FileSystem.SpecialDirectories.Desktop + "\mn.txt")

        End If

        My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Desktop + "\mn.txt", My.Computer.Info.OSFullName, True)

اتمنى يكون هذا طلبك
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
تعديل هذا الكود - بواسطة مبتدئ - 21-12-12, 05:00 PM
تعديل هذا الكود - بواسطة SaLoOoMX - 21-12-12, 07:10 PM
تعديل هذا الكود - بواسطة SaLoOoMX - 21-12-12, 07:24 PM
تعديل هذا الكود - بواسطة مبتدئ - 21-12-12, 08:20 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم