21-12-12, 07:24 PM
كود :
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)اتمنى يكون هذا طلبك
