[elgokr]

السلام عليكم ورحمة الله وبركاته

ابسط كود لتطبيق اوامر الدوس مباشر من خلال VB.NET

عليك اضافة الـ Sub التالى

كود :

   Shared Sub RunCommandCom(command as String, arguments as String, permanent as Boolean)
       Dim p as Process = new Process()
       Dim pi as ProcessStartInfo = new ProcessStartInfo()
       pi.Arguments = " " + if(permanent = true, "/K" , "/C") + " " + command + " " + arguments
       pi.FileName = "cmd.exe"
       p.StartInfo = pi
       p.Start()
   End Sub

من ثم قم باستدعاء الكود التالى لتطبيق اوامر الدوس

كود :

MyUtilities.RunCommandCom("DIR", "/W", true)

حتى لا يذهب صاحب الكود

فالمصدر هنا

تحياتى لك

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