[AHMED HUSSIEN]

هذا الكود سوف يجلب مسار الفولدور الذى تريده
طريقة عمل الكود :
سوف يقوم بحلقة تكرار سوف ياخذ فيها جميع المسارات فى هذا الفولدر "\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]