08-04-19, 05:29 PM
08-04-19, 11:39 PM
كون البرنامج سيكون قيد التشغيل يمكن نسخ البرنامج الى مسار جديد وليس نقله
09-04-19, 03:56 AM
وعليكم السلام ورحمة الله وبركاته
استخدم الكود التالى
كود :
Dim PathApp As String
Dim PathNew As String
' المسار الحالى للبرنامج
PathApp = Application.StartupPath & "\اسم ملف البرنامج.exe"
' المسار الجديد
PathNew = "D:\الاسم الجديد.exe"
If System.IO.File.Exists(PathApp) Then
System.IO.File.Copy(PathApp, PathNew, True)
MessageBox.Show("تم نسخ الملف")
End Ifعلى على جملة
PHP كود :
اسم ملف البرنامج
لاسم الملف المطلوب نسخة الاسم الذى يعرض بالخارج
وكذلكPHP كود :
الاسم الجديد
تحياتى لك
وتمنياتى لك التوفيق