[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
بقدر اختصر هذا الكود لو سمحتم