محمد احمد لطفى قام بنشر فبراير 21, 2017 مشاركة قام بنشر فبراير 21, 2017 (معدل) السلام عليكم ورحمة الله لدى مشكلة فى نسخ قاعدة البيانات من جهاز على لشبكة الى جهاز اخر Call Shell("xcopy /y 192.168.20.1:\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) عند النسخ من نفس الجهاز تتم العملية و لكن عند النسخ على الشبكة لا يتم النسخ وهل هناك طريقة لاضافة اسم المستخدم و الباسورد فى حال طلبهم الجهاز هل من مساعدة تم تعديل فبراير 21, 2017 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 21, 2017 مشاركة قام بنشر فبراير 21, 2017 جرب Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 21, 2017 الكاتب مشاركة قام بنشر فبراير 21, 2017 لم يعمل رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 21, 2017 مشاركة قام بنشر فبراير 21, 2017 انا اصلحت جزء المسار فقط \\192.168.20.1 جرب الكود كالتالي ، واقرأ النتيجة التي سيكتبها عند فتح نافذة التنفيذ السوداء cmd ، وقد تحتاج الى كبس زر Print Screen لعمل نسخة منه قبل ان تُغلق النافذة: Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", NormalFocus) جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 21, 2017 الكاتب مشاركة قام بنشر فبراير 21, 2017 (معدل) اسف لاياتى شاشة سوداء و لا يعمل و هذا يعمل Call Shell("xcopy /y g:\123.mdb F:\123.mdb", 1) تم تعديل فبراير 21, 2017 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 هل من مساعدة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 احنا نحاول نعرف الخطأ فين خلينا نستعين بادوات الوندوز ، لذا رجاء تفتح: . ثم اضف السطر الاول من xcopy ، ورجاء كتابة المسار كاملا لشخص واحد ، للتجربة ، وانظر الى سبب عدم النسخ (السطر التالي ، والذي بجانبه السهم الاحمر) . من هنا سنعرف اذا كانت المشكلة في الشبكة ، او محتاج اسم المستخدم و الباسورد جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 نفس الرسالة Invalid drive specification رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 للتجربة ، شيل هذه الجملة \" & Environ("Username") & "\ واستبدلها باسم المستخدم ، حتى يكون المسار كله واضح ، مثلا اذا كان اسم المستخدم jjafferr Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\jjafferr\Desktop\123.mdb", 1) وقرأت هذا في احد المنتديات الاجنبية: net use "\\xxx.xxx.xxx.xxx\Some Folder" /user:domain\user_name p@ssw0rd xcopy "\\xxx.xxx.xxx.xxx\Some Folder\New.txt" "D:\new.txt" والامر Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) سيصبح Call Shell("net use \\192.168.20.1\123.mdb /user:UserName myPassword" "xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) ويجب ان تغيّر UserName myPassword الى الاسماء الحقيقية جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 هناك خطأ فى هذا الكود رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 22, 2017 مشاركة قام بنشر فبراير 22, 2017 وهل جربت الجزء الاول من المشاركة؟ 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 22, 2017 الكاتب مشاركة قام بنشر فبراير 22, 2017 الجزء الاول Invalid drive specification جزاك الله خيرا لا تتعب نفسك فى هذا الموضوع رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر فبراير 22, 2017 أفضل إجابة مشاركة قام بنشر فبراير 22, 2017 منذ ساعه, محمد احمد لطفى said: Invalid drive specification هذا معناه ان الكود لا يستطيع رؤية مسار التخزين في السيرفر ، فنصيحتي هي عمل مجلد داخل السيرفر ، ولنسمية Temp مثلا ، فيصبح مسار السيرفر: \\192.168.20.1\Temp\123.mdb . وللعلم ، فامر Xcopy هو: Xcopy "Source" "Destination" يعني في الكود حقك المصدر هو \\192.168.20.1\123.mdb ومكان التخزين هو C:\Users\" & Environ("Username") & "\Desktop\123.mdb" Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) . ان شاء الله ما تكون قالبهم جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان