[aldery]

سلام عليكم : أخواني محتاج كود احددله مسار مثال (temp)  يبحث في هذا المسار عن  اسم برنامج مثال (sever)  ويضهر مسار server في textbox 


أذا ممكن كيف اجعل هذا المسار يفتح على جميع الاجهزة المشكلة عندي شو بحط بدل كلمة aldery

C:\Users\almot\AppData\Local\Temp

[elgokr]

تفضل الكود لاستدعاء مسار الـ Temp

كود :

       Dim path_ As String = System.IO.Path.GetTempPath() + "program.exe"
       MsgBox(path_)

تحياتى لك

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

[aldery]

(15-07-18, 08:08 PM)elgokr كتب : تفضل الكود لاستدعاء مسار الـ Temp

كود :

       Dim path_ As String = System.IO.Path.GetTempPath() + "program.exe"
       MsgBox(path_)

تحياتى لك

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

الله يعطيك العافية بس كيف بدي اخليه يضهر الملفات بي listbox او ListView1  اذا ممكن ومشكور

[elgokr]

لعمل البحث على اسم برنامج محدد

وعرض الاسم فى قائمة اذا كانت ListBox أو ListView استخدم الكود التالى

كود :

       For Each foundFile As String In My.Computer.FileSystem.GetFiles(System.IO.Path.GetTempPath())
           If foundFile = System.IO.Path.GetTempPath() + "server.exe" Then
               ListBox1.Items.Add(foundFile)
               'ListView2.Items.Add(foundFile)
           End If
       Next
       MsgBox("Done.")

تحياتى لك

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

[aldery]

(15-07-18, 09:33 PM)elgokr كتب :

لعمل البحث على اسم برنامج محدد

وعرض الاسم فى قائمة اذا كانت ListBox أو ListView استخدم الكود التالى

كود :

       For Each foundFile As String In My.Computer.FileSystem.GetFiles(System.IO.Path.GetTempPath())
           If foundFile = System.IO.Path.GetTempPath() + "server.exe" Then
               ListBox1.Items.Add(foundFile)
               'ListView2.Items.Add(foundFile)
           End If
       Next
       MsgBox("Done.")

تحياتى لك

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

والله مابعرف كيف أشكرك يا اخي على مساعدتك غير الله يوفقك ويسر امرك ويسعد 

[dametucorazon]

ماشاء الله جزيت خيرا

[elgokr]

(15-07-18, 09:41 PM)aldery كتب :

(15-07-18, 09:33 PM)elgokr كتب :

لعمل البحث على اسم برنامج محدد

وعرض الاسم فى قائمة اذا كانت ListBox أو ListView استخدم الكود التالى

كود :

       For Each foundFile As String In My.Computer.FileSystem.GetFiles(System.IO.Path.GetTempPath())
           If foundFile = System.IO.Path.GetTempPath() + "server.exe" Then
               ListBox1.Items.Add(foundFile)
               'ListView2.Items.Add(foundFile)
           End If
       Next
       MsgBox("Done.")

تحياتى لك

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

والله مابعرف كيف أشكرك يا اخي على مساعدتك غير الله يوفقك ويسر امرك ويسعد 

(15-07-18, 09:45 PM)dametucorazon كتب : ماشاء الله جزيت خيرا

الشكر لله

واللهم المين ولنا جميعاً

وتحياتى لكم جميعاً

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