[طالب برمجة]

هذا تعديل للكود كامل

PHP كود :

Try
    Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\active"
    If Directory.Exists(SELEXPED_DIR) = False Then Directory.CreateDirectory(SELEXPED_DIR)
    Dim lines() As String = My.Resources.fileencrypt.Split(vbNewLine)
    Dim newline As String = "NEW LINE"
    lines(3) = newline & "/" & newline
    IO.File.WriteAllLines(SELEXPED_DIR & "\activefile.txt", lines)
    MessageBox.Show("  تم حفظ الملف بالمسار التالي " & vbNewLine & SELEXPED_DIR & "\activefile.txt", "نجاح العملية", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
    MessageBox.Show("لم يتم انشاء فولدر سطح المكتب محمي قم بانشاء فولدر بمكان اخر", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try