[ddemed]

السلام عليكم انا انشي برنامج ليقوم بعمل INSTALL لبرنامجي وفكرته هو ان يظهر open file dialoge لتحديد
المسار الذي يريد المستخدم وضعه فيه ويقوم هو بنقل الملفات البرنامج للمسار وملفات البرنامج تكون في مجلد 
بجانب برنامج ال install و عندما يريد المستخدم عمل unstall يقوم بحذف الملفات من المسار الذي حدده المستخدم
اريد عمل مشروع لهذه الفكره وشكراااا

[alma2]

(08-06-17, 08:48 PM)ddemed كتب : السلام عليكم انا انشي برنامج ليقوم بعمل INSTALL لبرنامجي وفكرته هو ان يظهر open file dialoge لتحديد
المسار الذي يريد المستخدم وضعه فيه ويقوم هو بنقل الملفات البرنامج للمسار وملفات البرنامج تكون في مجلد 
بجانب برنامج ال install و عندما يريد المستخدم عمل unstall يقوم بحذف الملفات من المسار الذي حدده المستخدم
وشكرا

بالتوفيق إن شاء الله، ومتى تنتهي منه لنراه ونجربه؟

[ddemed]

(08-06-17, 09:05 PM)alma2 كتب :

(08-06-17, 08:48 PM)ddemed كتب : السلام عليكم انا انشي برنامج ليقوم بعمل INSTALL لبرنامجي وفكرته هو ان يظهر open file dialoge لتحديد
المسار الذي يريد المستخدم وضعه فيه ويقوم هو بنقل الملفات البرنامج للمسار وملفات البرنامج تكون في مجلد 
بجانب برنامج ال install و عندما يريد المستخدم عمل unstall يقوم بحذف الملفات من المسار الذي حدده المستخدم
وشكرا

بالتوفيق إن شاء الله، ومتى تنتهي منه لنراه ونجربه؟

لا اخي انت لم تفهمني انا اريد مشروع لطلبي 

[ddemed]

اتمني من الخوه عمل هذا المشروع لاني احتاجه جدااااااااااا

[ddemed]

(09-06-17, 01:45 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
عليك الاستفادة من هذا العرض ، فالمنتدى لا يقدم برامج متكاملة بالمجان علينا ان ندرك ذلك  .
http://vb4arb.com/vb/showthread.php?tid=...t=ربيع

لا اخي انا اريد عند الضغط علي كلمه install يفتح open file dialog ويختار المسار يوضع به البرنامج
وunstall لحذف الملفات فقط اخي

[alma2]

كود :

       Dim path As String = String.Empty

       Dim browse As New FolderBrowserDialog
       If browse.ShowDialog = vbOK Then

           path = browse.SelectedPath 'هنا تم قراءة المسار الذي اختاره المستخدم

           MsgBox(path)

       End If

[ddemed]

(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

شكرا اخي اريد الان ان يتم نقل المجلد الذي به الملفات الي مسار الذي يريده المستخدم

[alma2]

كود :

Dim sourcePath As String 'المجلد
        Dim destPath As String 'المسار المراد المستهدف

        'نقل مجلد
        My.Computer.FileSystem.MoveDirectory(sourcePath, destPath)

        'نسخ مجلد
        My.Computer.FileSystem.CopyDirectory(sourcePath, destPath)

[ddemed]

(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

[alma2]

لا يوجد open file dialoge لل unstall لأن المفروض unstall عارف المسار اللي اتعمل فيه install