انا ابحث عن كود لنسخ مجلد بكامله
ثم وضعه في مكان معين(لصقه) وشكرا
انا ابحث عن كود لنسخ مجلد بكامله
مغلق
تحية طيبة.......
قم باضافة ملف Shell32 عن طريق
Project>>Reference>>Microsoft Shell Control And Automation
بعد ذلك أدخل هذا الكود
Private Sum Command1_Click()
Dim Shell32 As New Shell
Shell32.BrowseForFolder(Me.hWnd, "Select Place To Paste", 1).CopyHere ("c:\a")
Do Events
End Subضع مكان ("C:\a") اسم المجلد الذى تريد نسخه
ارجو أن أكون قد استطعت المساعدة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
جزاك الله كل خير
انا كنت عايز احدد المكان من الكود ايضا زي ما انا حددت مكان المجلد عايز احدد مكان اللصق من الداخل بالكود ايضا
هذا الموضوع مغلق.