منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ايجاد ملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ايجاد ملف (/showthread.php?tid=9913)

ايجاد ملف - أسامة - 03-08-13

كود :
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")


ايجاد ملف - AHMED HUSSIEN - 03-08-13

أسامة كتب :
كود :
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"

ايجاد ملف - الشاكي لله - 03-08-13

شكلك سويت كوبي وبست بدون ماتغير شي

PHP كود :
Private Sub Form1_Load(sender As Object, e As 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 DirectoryInfo, searchFileName As String) As String
      on error resume next
    Dim temp As String = ""
    For Each file As FileInfo In SearchDir.GetFiles(searchFileName, SearchOption.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 > اذا بتشغل البرنامج بمسؤول مارح يطلع لك

ايجاد ملف - أسامة - 03-08-13

الشاكي لله كتب :شكلك سويت كوبي وبست بدون ماتغير شي

PHP كود :
Private Sub Form1_Load(sender As Object, e As 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 DirectoryInfo, searchFileName As String) As String
      on error resume next
    Dim temp As String = ""
    For Each file As FileInfo In SearchDir.GetFiles(searchFileName, SearchOption.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 > اذا بتشغل البرنامج بمسؤول مارح يطلع لك
شكرآ اخى لاكن الان لا يظر شيء

ايجاد ملف - أسامة - 03-08-13

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

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

هذا فقط مثال

ايجاد ملف - الشاكي لله - 03-08-13

كل هذا بسبب الstetment getfiles فهو يقوم بجلب فولدرات تتطلب وصول مسؤول

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

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

او تجعل برنامجك يشتغل كمسؤول