منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نسخ ملف يختلف مساره من حاسبة لأخرى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
[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

ولكم جزيل الشكر
PHP كود :
Dim path As String Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Mozilla\Firefox\Profiles\wo7g5fe.default" 
الف شكر لك اخي احمد على سرعة الرد
تم حل نصف المشكلة لكن بقى المجلد الأخير "[COLOR="#FF0000"]wo7g5fe[/COLOR].default" يتغير من حاسبة لأخرى فقط الأحرف الملونة بالاحمر هي التي تتغير
هل هناك حل مع جزيل الشكر
wo7g5fe
.default
معلش على التدخل لكن اللي يبدو لي ان الملون بالاحمر اسم الملف ومابعد النقطة امتداد الملف.
مدري الشرح التالي يلبي لك الطلب؟؟
[h=1]شرح كيفية برمجة( مثال نسخ الملفات من مكان انت تحدده الى مكان انت تحدده بامتداد انت تحدده)[/h]
السلام عليكم

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

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

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

و ممكن لو لايوجد إلا ملف واحد يحتوى على كلمة default فى هذا المسار "appdata\Mozilla\Firefox\Profiles" تكون انحلت المشكلة
في ويندوز xp دخلت علي المسار أعلاه يبدو أنه ليس ملف إنما مجلد عادي في نهاية اسمه توجد نقطة ثم
default ولا توجد أي ملفات أو مجلدات أخرى بجواره ، وداخل هذا المجلد توجد مجلدات وملفات .

لا أدري هل في ويندوز 7 نفس الحكاية ؟
جزيل الشكر لكل الأعضاء الكرام
نعم اخواني هو مجلد وليس ملف ويختلف فقط في اسمه الحروف قبل النقطة و 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." تبقى ثابتة في اي حاسبة او اي نظام
اريد الكود الي يعرف اسم المجلد مهما تغير
هذا الكود سوف يجلب مسار الفولدور الذى تريده
طريقة عمل الكود :
سوف يقوم بحلقة تكرار سوف ياخذ فيها جميع المسارات فى هذا الفولدر "\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]
عشت يا اخ احمد