[princelovelorn]

(02-05-25, 05:18 PM)1albasha كتب :

PHP كود :

Public Class Form1

    Sub OpenWordDocument()
        Dim filePathD As String = "D:\all\4.docx"
        Dim filePathH As String = "H:\all\4.docx"
        Dim filePathe As String = "e:\all\4.docx"
        Dim filePathc As String = "c:\all\4.docx"
        Dim filePathg As String = "g:\all\4.docx"
        If File.Exists(filePathD) Then
            Process.Start(filePathD)
        ElseIf File.Exists(filePathH) Then
            Process.Start(filePathH)
        ElseIf File.Exists(filePathc) Then
            Process.Start(filePathc)
        ElseIf File.Exists(filePathe) Then
            Process.Start(filePathe)
        ElseIf File.Exists(filePathg) Then
            Process.Start(filePathg)
        Else
            MessageBox.Show("الملف المطلوب غير موجود على اي قرص", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        End If




    End Sub
بقدر اختصر هذا الكود لو سمحتم 


نعم يمكنك ذلك وخصوصا لو اسم الملف بيكون متغير 
تقدر تعملها دالة من سطر واحد تكتب اسم الملف فقط 
جرب الأكواد التالية

كود :

Imports System.IO

Public Class Form1

   ' أكتب هنا المسارات كاملة اللى ممكن تستخدمها بدون اسم الملف
   Private Shared ReadOnly searchPaths As String() = {
       "C:\all\",
       "D:\all\",
       "E:\all\",
       "F:\all\",
       "G:\all\"
   }

    ' الدالة المستخدمة
   Public Shared Function OpenFileFromPaths(fileName As String) As Boolean
       For Each path In searchPaths
           Dim fullPath As String = Path.Combine(path, fileName)
           If File.Exists(fullPath) Then
               Process.Start(fullPath)
               Return True ' تم العثور على الملف وتشغيله
           End If
       Next
       Return False  ' لم يتم العثور على الملف في أي من المسارات
   End Function

   Sub OpenWordDocument(fileName As String)
       If Not OpenFileFromPaths(fileName) Then
           MessageBox.Show("الملف المطلوب غير موجود على أي قرص", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
       End If
   End Sub

   ' طريقة الاستخدام:
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       OpenWordDocument("4.docx") ' اسم الملف المراد البحث عنه
   End Sub

End Class

 
وتقدر تضع الأكواد في موديل  وتستخدم الدالة من اي نافذة في البرنامج