[meme1336]

السلام عليكم

بعد عمل طريقتك اخت اميرة

كود :

Public videosPath As String = Application.StartupPath & "\videos\"

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim videofile As String = videosPath & "videochem.mp4"
    If IO.File.Exists(videofile) Then
        AxWindowsMediaPlayer1.URL = videofile
        AxWindowsMediaPlayer1.settings.setMode("Loop", True)
    Else
        MsgBox("الفيديو غير موجود" & vbNewLine & IO.Path.GetFullPath(videofile))
    End If
End Sub

الفيديو كان يعمل في جهازي ,,,,,,,,,,,,,,, كتبت الكود السابق ..........و عملت طريقة الاخ DR

و عندما حملته ع جهاز اخر ظهرت رساله عدم وجود لفيديو و هذا مرفق يوضح رساله الخطأ