تقييم الموضوع :
  • 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 فهو يقوم بجلب فولدرات تتطلب وصول مسؤول

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

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

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



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


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