MS-DOS Command من Visual basic

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

لتنفيذ أوامر Ms-DOS في VB يمكنك إستخدام الفكرة التالية:

حيث أنك بحاجة إلى : زر إسمه Command1 و مربع نص إسمه Text1 ويوضع فيه إسم الملف مع المسار كامل المراد تنفيذ الأمر عليه

Private Sub Command1_Click()
Dim r As Double
Open "c:\1.bat" For Output As #1 
Print #1, "attrib +s " & Text1.Text
Close #1
r = Shell("c:\1.bat", vbNormalFocus)
Kill ("c:\1.bat")
End Sub

هذا والله أعلم.

شكرا أخي على المعلومة وهي تعمل شكرا جزيلا

لا شكر على واجب أخي الكريم

والسلام عليكم