السلام عليكم انا انشي برنامج ليقوم بعمل INSTALL لبرنامجي وفكرته هو ان يظهر open file dialoge لتحديد
المسار الذي يريد المستخدم وضعه فيه ويقوم هو بنقل الملفات البرنامج للمسار وملفات البرنامج تكون في مجلد
بجانب برنامج ال install و عندما يريد المستخدم عمل unstall يقوم بحذف الملفات من المسار الذي حدده المستخدم
اريد عمل مشروع لهذه الفكره وشكراااا
(08-06-17, 08:48 PM)ddemed كتب : [ -> ]السلام عليكم انا انشي برنامج ليقوم بعمل INSTALL لبرنامجي وفكرته هو ان يظهر open file dialoge لتحديد
المسار الذي يريد المستخدم وضعه فيه ويقوم هو بنقل الملفات البرنامج للمسار وملفات البرنامج تكون في مجلد
بجانب برنامج ال install و عندما يريد المستخدم عمل unstall يقوم بحذف الملفات من المسار الذي حدده المستخدم
وشكرا
بالتوفيق إن شاء الله، ومتى تنتهي منه لنراه ونجربه؟
اتمني من الخوه عمل هذا المشروع لاني احتاجه جدااااااااااا
(09-06-17, 01:45 AM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
عليك الاستفادة من هذا العرض ، فالمنتدى لا يقدم برامج متكاملة بالمجان علينا ان ندرك ذلك .
http://vb4arb.com/vb/showthread.php?tid=...t=ربيع
لا اخي انا اريد عند الضغط علي كلمه install يفتح open file dialog ويختار المسار يوضع به البرنامج
وunstall لحذف الملفات فقط اخي
(09-06-17, 02:44 AM)alma2 كتب : [ -> ]
كود :
Dim path As String = String.Empty
Dim browse As New FolderBrowserDialog
If browse.ShowDialog = vbOK Then
path = browse.SelectedPath 'هنا تم قراءة المسار الذي اختاره المستخدم
MsgBox(path)
End If
شكرا اخي اريد الان ان يتم نقل المجلد الذي به الملفات الي مسار الذي يريده المستخدم
(09-06-17, 02:56 AM)alma2 كتب : [ -> ]
كود :
Dim sourcePath As String 'المجلد
Dim destPath As String 'المسار المراد المستهدف
'نقل مجلد
My.Computer.FileSystem.MoveDirectory(sourcePath, destPath)
'نسخ مجلد
My.Computer.FileSystem.CopyDirectory(sourcePath, destPath)
شكرا جزيلا اخي الكريم تعمل 100% الان اخي اريد عمل ال unstall باظهار open file dialoge تحديد المسار ثم عمل unstall
لا يوجد open file dialoge لل unstall لأن المفروض unstall عارف المسار اللي اتعمل فيه install
