تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ايجاد ملف
#1
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String
        Dim temp As New DirectoryInfo("InitialPathToSearch")
        path = SearchFile(temp, "filename.exe")
        MsgBox(path)
    End Sub
on error resume next
كود :
Private Function SearchFile(ByVal SearchDir As DirectoryInfo, ByVal searchFileName As String) As String
        Dim temp As String = ""
        If SearchDir.GetFiles(searchFileName).Length > 0 Then
            Return SearchDir.FullName & "\" & searchFileName
        End If
        Dim Directories() As DirectoryInfo = SearchDir.GetDirectories("*")
        For Each newDir As DirectoryInfo In Directories
            temp = SearchFile(newDir, searchFileName)
        Next
        Return temp
    End Function
المشكلة فى الكود ان مسار البرنامج يطلع هكذا
إقتباس :C:\Users\Osama\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug\InitialPathToSearch\chrome.exe
لكن المسار الحقيق
إقتباس :"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
فهل يوجد حل غير تغير
كود :
Dim temp As New DirectoryInfo("InitialPathToSearch")
الى
كود :
Dim temp As New DirectoryInfo("C:\Program Files (x86)\Google\Chrome\Application")
الرد }}}}
تم الشكر بواسطة:
#2
أسامة كتب :
كود :
Dim temp As New DirectoryInfo("InitialPathToSearch")

كود :
Dim temp As New DirectoryInfo("C:\Program Files (x86)\Google\Chrome\Application")

لا يوجد حل اخر لأنك بهذه الطريقة حدد مسار الفولد الذى سيتم البحث فيه هكذا "مسار برنامجك\InitialPathToSearch"

لكنك تريد البحث فى هذا المسار "C:\Program Files (x86)\Google\Chrome\Application"
الرد }}}}
تم الشكر بواسطة:
#3
شكلك سويت كوبي وبست بدون ماتغير شي

PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgs)
    
Dim path As String ""
    
Dim folderPath As String Environment.GetEnvironmentVariable("ProgramFiles(x86)")
    
Dim temp As New DirectoryInfo(folderPath)

    
path SearchFile(temp"chrome.exe")
    
MessageBox.Show(path)
End Sub


Private Function SearchFile(SearchDir As DirectoryInfosearchFileName As String) As String
      on error resume next
    Dim temp 
As String ""
    
For Each file As FileInfo In SearchDir.GetFiles(searchFileNameSearchOption.AllDirectories)
        If 
file.Name searchFileName Then
            
Return file.FullName
        End 
If
    
Next

    
Return temp
End 
Function 

مهم : عليك استخدام on error resume next

عشان مايطلع لك خطأ Access to the path is denied > اذا بتشغل البرنامج بمسؤول مارح يطلع لك
الرد }}}}
تم الشكر بواسطة:
#4
الشاكي لله كتب :شكلك سويت كوبي وبست بدون ماتغير شي

PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgs)
    
Dim path As String ""
    
Dim folderPath As String Environment.GetEnvironmentVariable("ProgramFiles(x86)")
    
Dim temp As New DirectoryInfo(folderPath)

    
path SearchFile(temp"chrome.exe")
    
MessageBox.Show(path)
End Sub


Private Function SearchFile(SearchDir As DirectoryInfosearchFileName As String) As String
      on error resume next
    Dim temp 
As String ""
    
For Each file As FileInfo In SearchDir.GetFiles(searchFileNameSearchOption.AllDirectories)
        If 
file.Name searchFileName Then
            
Return file.FullName
        End 
If
    
Next

    
Return temp
End 
Function 

مهم : عليك استخدام on error resume next

عشان مايطلع لك خطأ Access to the path is denied > اذا بتشغل البرنامج بمسؤول مارح يطلع لك
شكرآ اخى لاكن الان لا يظر شيء
الرد }}}}
تم الشكر بواسطة:
#5
AHMED HUSSIEN كتب :لا يوجد حل اخر لأنك بهذه الطريقة حدد مسار الفولد الذى سيتم البحث فيه هكذا "مسار برنامجك\InitialPathToSearch"

لكنك تريد البحث فى هذا المسار "C:\Program Files (x86)\Google\Chrome\Application"

هذا فقط مثال
الرد }}}}
تم الشكر بواسطة:
#6
كل هذا بسبب الstetment getfiles فهو يقوم بجلب فولدرات تتطلب وصول مسؤول

انا عندي كود عشان توصل للفولدرات بدون مسؤول بس مكتوب بالسي شارب وصعب احوله للفيجوال

الحل يانك تنتظر احد الاخوان الاخبر مني

او تجعل برنامجك يشتغل كمسؤول
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعده في ايجاد كود جريد فيو .. Marwan9990 7 157 15-04-17, 12:37 PM
آخر رد: Marwan9990
  الرجاء المساعده في ايجاد كود لتحقيق شرط معين معتز الجازوي 1 172 07-12-16, 05:19 AM
آخر رد: silverlight
  [سؤال] ايجاد الداتا من Sql و اضافته في Textbox Abdelaziz Omar 3 351 10-04-16, 10:17 PM
آخر رد: khodor1985
Exclamation [سؤال] ارجو المساعده في ايجاد عدد ايام الاجازة في كل شهر moftah70 14 1,437 29-01-16, 03:17 AM
آخر رد: mohamed haroon
  [سؤال] كيف يمكن ايجاد عدد الايام بين تاريخين ؟؟؟؟ moftah70 3 552 07-01-16, 12:57 AM
آخر رد: HASAN6.0
  [سؤال] ايجاد قيمة y المقابلة لقيمة x ali777 7 566 14-12-15, 10:44 PM
آخر رد: ali777
  [كود] ايجاد process id أسامة 2 351 12-11-15, 01:57 PM
آخر رد: أسامة
  [سؤال] ايجاد العدد الاكبر من 10 اعداد يتم ادخالها nadera 5 1,143 18-04-15, 07:55 PM
آخر رد: ربيع
  ايجاد مجموعة عناصر كل مجموعة علي حدة atefkhalf2004 4 699 07-01-15, 04:37 PM
آخر رد: atefkhalf2004
  [سؤال] ايجاد المتوسط الحسابي uknowtnt 5 3,190 01-04-14, 08:36 AM
آخر رد: abulayth

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم