[elgokr]

بخصوص الكود المذكور كل ما عليك استخدامه بهذا الشكل

كود :

       RichTextBox1.Clear()
       Dim NFolder As String = Nothing
       For Each Strd As Reflection.Assembly In My.Application.Info.LoadedAssemblies
           If Strd.CodeBase.ToString.Contains(".exe") Then NFolder = Strd.CodeBase.Split("/")(Strd.CodeBase.ToString.Split("/").Count - 2).ToString()
           If NFolder IsNot Nothing Then
               If Strd.CodeBase.ToString.Contains(NFolder) Then
                   NFolder = Strd.CodeBase.Split("/")(Strd.CodeBase.ToString.Split("/").Count - 2).ToString()
                   RichTextBox1.Text += Strd.CodeBase.Split("/").Last.Trim & vbNewLine
               End If
           End If
       Next

ليقوم بعرض الملفات الموجودة بجوار البرنامج

وكذلك سيقوم بعرض اسم الملف والامتداد فقط وليس المسار كاملاً 

مثال:

PHP كود :

program.exe 


الكود التالى

كود :

       RichTextBox1.Clear()
       Dim NFolder As String = Nothing
       For Each Strd As Reflection.Assembly In My.Application.Info.LoadedAssemblies
           If Strd.CodeBase.ToString.Contains(".exe") Then NFolder = Strd.CodeBase.Split("/")(Strd.CodeBase.ToString.Split("/").Count - 2).ToString()
           If NFolder IsNot Nothing Then
               If Strd.CodeBase.ToString.Contains(NFolder) Then
                   NFolder = Strd.CodeBase.Split("/")(Strd.CodeBase.ToString.Split("/").Count - 2).ToString()
                   RichTextBox1.Text += Strd.CodeBase.Replace("file:///", Nothing).Trim & vbNewLine
               End If
           End If
       Next

سيقوم بعرض المسار كاملاً لكل ملف بدون وجود file:///

طبعاً تجنباً الى اى ملف خارج مجلد البرنامج

فاتمنا ان يكون هذا ما تشير اليه

تحياتى لك

وتمنياتى لك التوفيق