منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نسخ ملف يختلف مساره من حاسبة لأخرى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ ملف يختلف مساره من حاسبة لأخرى (/showthread.php?tid=10039)



نسخ ملف يختلف مساره من حاسبة لأخرى - juomaa771 - 13-08-13

[b]السلام عليكم ورحمة الله وبركاتة
انا مشترك جديد ومبتدى على net. واريد من برنامجي ان يقوم بنسخ الملفات المحددة له مع العلم ان مسار الملفات يتغير من حاسبة لأخرى
[/b]

مثال :C:\Documents and Settings\XX\Application Data\Mozilla\Firefox\Profiles\9ukjkkf6.default

او :C:\Documents and Settings\ahmed\Application Data\Mozilla\Firefox\Profiles\wo7g5fe.default

ولكم جزيل الشكر


نسخ ملف يختلف مساره من حاسبة لأخرى - AHMED HUSSIEN - 13-08-13

PHP كود :
Dim path As String Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Mozilla\Firefox\Profiles\wo7g5fe.default" 



نسخ ملف يختلف مساره من حاسبة لأخرى - juomaa771 - 13-08-13

الف شكر لك اخي احمد على سرعة الرد
تم حل نصف المشكلة لكن بقى المجلد الأخير "[COLOR="#FF0000"]wo7g5fe[/COLOR].default" يتغير من حاسبة لأخرى فقط الأحرف الملونة بالاحمر هي التي تتغير
هل هناك حل مع جزيل الشكر


نسخ ملف يختلف مساره من حاسبة لأخرى - سعود - 13-08-13

wo7g5fe
.default
معلش على التدخل لكن اللي يبدو لي ان الملون بالاحمر اسم الملف ومابعد النقطة امتداد الملف.
مدري الشرح التالي يلبي لك الطلب؟؟
[h=1]شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده)[/h]


نسخ ملف يختلف مساره من حاسبة لأخرى - AHMED HUSSIEN - 13-08-13

السلام عليكم

اذن ان اسم هذا المجلد يتم انشائه من الـ FireFox

لذلك اذن انه لن تتمكن من معرفة اسمه ولكن اذا وجدت ملف (مثلا ملف الأعدادات) يحتوى على اسم هذا المجلد فتكون المشكل انحلت

سوف اوحاول ان ابحث عن ملف مثل هذا

و ممكن لو لايوجد إلا ملف واحد يحتوى على كلمة default فى هذا المسار "appdata\Mozilla\Firefox\Profiles" تكون انحلت المشكلة


نسخ ملف يختلف مساره من حاسبة لأخرى - kslawy - 13-08-13

في ويندوز xp دخلت علي المسار أعلاه يبدو أنه ليس ملف إنما مجلد عادي في نهاية اسمه توجد نقطة ثم
default ولا توجد أي ملفات أو مجلدات أخرى بجواره ، وداخل هذا المجلد توجد مجلدات وملفات .

لا أدري هل في ويندوز 7 نفس الحكاية ؟



نسخ ملف يختلف مساره من حاسبة لأخرى - juomaa771 - 14-08-13

جزيل الشكر لكل الأعضاء الكرام
نعم اخواني هو مجلد وليس ملف ويختلف فقط في اسمه الحروف قبل النقطة و default من حاسبة لأخرى و حتى من نظام لآخر وهذا مساره في الويندوز سفن
\C:\Users\QP\AppData\Roaming\Mozilla\Firefox\Profiles\ff3y1j3j.default

وهذا مساره في XP
\C:\Documents and Settings\XX\Application Data\Mozilla\Firefox\Profiles\9ukjkkf6.default

كلمة "default." تبقى ثابتة في اي حاسبة او اي نظام
اريد الكود الي يعرف اسم المجلد مهما تغير


نسخ ملف يختلف مساره من حاسبة لأخرى - AHMED HUSSIEN - 14-08-13

هذا الكود سوف يجلب مسار الفولدور الذى تريده
طريقة عمل الكود :
سوف يقوم بحلقة تكرار سوف ياخذ فيها جميع المسارات فى هذا الفولدر "\Mozilla\Firefox\Profiles"
و عندما يجد اول فولدر يحتوى اسمه على هذه الكلمة ".default" سوف ياخذ مسارة ويخرج من التكرار

كود :
[color=#0000FF]Dim[/color][color=#000000] path [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = [/color][color=#A31515]""[/color]
        [color=#0000FF]Dim[/color][color=#000000] folder [/color][color=#0000FF]As[/color] [color=#0000FF]New[/color][color=#000000] IO.[/color][color=#2B91AF]DirectoryInfo[/color][color=#000000]([/color][color=#2B91AF]Environment[/color][color=#000000].GetFolderPath([/color][color=#2B91AF]Environment[/color][color=#000000].[/color][color=#2B91AF]SpecialFolder[/color][color=#000000].LocalApplicationData) & [/color][color=#A31515]"\Mozilla\Firefox\Profiles"[/color][color=#000000])[/color]
        [color=#0000FF]For[/color] [color=#0000FF]Each[/color][color=#000000] f [/color][color=#0000FF]In[/color][color=#000000] folder.GetDirectories()[/color]
            [color=#0000FF]If[/color][color=#000000] f.Name.Contains([/color][color=#A31515]".default"[/color][color=#000000]) [/color][color=#0000FF]Then[/color]
[color=#000000]                path = f.FullName[/color]
                [color=#0000FF]Exit For[/color]
            [color=#0000FF]End[/color] [color=#0000FF]If[/color]
        [color=#0000FF]Next[/color]



نسخ ملف يختلف مساره من حاسبة لأخرى - juomaa771 - 14-08-13

عشت يا اخ احمد