[enjoy]

أول نقطة
يجب أن تضيف "\" في نهاية تعريف المتغير Dir مثل

PHP كود :

Dim Dir As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\" 


النقطة الثانية يجب إخراج جميع الملفات بنفس طريقتك

PHP كود :

IO.File.WriteAllBytes(Dir + "StartupManager.exe", My.Resources.StartupManager) 


الملفات المتشابهة بالاسم ومختلفة بالنوع مثل StartupManager.exe وStartupManager.dll
ستجد أن إسم أول وحاد منهما تمت إضافته هو StartupManager
ولكن الثاني سيكون StartupManager1 باضافة رقم (1) يجب الانتباه لهذا الأمر عند إخراجه فيكون مثلا

PHP كود :

IO.File.WriteAllBytes(Dir + "StartupManager.exe", My.Resources.StartupManager)
IO.File.WriteAllBytes(Dir + "StartupManager.dll", My.Resources.StartupManager1) ' لاحظ رقم 1 في نهاية ملف الريسورس 


النقطة الثالثة إذا كان هناك مجلدات تخص البرنامج StartupManager فيجب إنشاءها واستخراج الملفات الخاصة به داخلها
مع الانتباه لمسار المجلد أن ينتهي بـ "\" لتلافي حدوث مشكلة

وفي النهاية تستطيع تشغيل البرنامج

PHP كود :

Process.Start(Dir + "StartupManager.exe") 


قد تكون فعلت كل هذا ولكن المشكلة لديك كانت في عدم وجود "\" في نهاية المسار Dir

لفحص أي مسار تنشئه قم بعده بعمل مسج لإظهار محتواه فقط لتتأكد من وجود "\" ان الكود يسير بشكل صحيح
ثم احذف او عطل سطر مسج الاختبار

قد يكون الكود مثل

PHP كود :

Dim Dir1 As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\"
IO.File.WriteAllBytes(Dir1 + "GUDownloader.exe", My.Resources.GUDownloader)
IO.File.WriteAllBytes(Dir1 + "StartupManager.exe", My.Resources.StartupManager)
IO.File.WriteAllBytes(Dir1 + "StartupManager.dll", My.Resources.StartupManager1) ' لاحظ رقم 1 في نهاية ملف الريسورس

Dim Dir2 = My.Computer.FileSystem.SpecialDirectories.Temp & "\data\"
IO.Directory.CreateDirectory(Dir2)
IO.File.WriteAllBytes(Dir2 + "datafile.bin", My.Resources.Datafile)
IO.File.WriteAllBytes(Dir2 + "!!!!!!!!!!.!!!", My.Resources.!!!!!!!!!!)
'
'
'
Dim Dir3 = My.Computer.FileSystem.SpecialDirectories.Temp & "\!!!\"
IO.Directory.CreateDirectory(Dir3)
'
'
'

Process.Start(Dir1 + "StartupManager.exe") 


أتمنى أن أكون أفدتك في تطببيق فكرتك




هناك فكرة ضغط البرنامج StartupManager مع جميع ملفاته ومجلداته
ثم فك الضغط عنه في المسار المطلوب وبعدها تشغيله

لكن طريقة هذه الفكرة لا تحضرني حاليا
واعتقد أنها قد تحتاج مكتبة ضغط وفك الضغط عن الملفات


تمنياتي لك بالتوفيق