Soru Media player

[vuranoğlu]

Merhaba
Aşağıdaki kod ile egitim1
içindeki videoyu açmaya çalışıyorum
ancak aynı klasörde olmasına rağmen
klasörü farklı yerlerde arıyor.
Private Sub CommandButton1_Click()
EGİTİM1 = Application.GetOpenFilename
If EGİTİM1 = False Then Exit Sub
[z1] = EGİTİM1
Label1 = EGİTİM1
WindowsMediaPlayer1.URL = (EGİTİM1)
End Sub
Nasıl bir değişiklik yapmalıyım?
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[halit3]

Alternetif uygulama

Dosya açılmazsa diye kodları buraya da yazıyorum
Userforma 1 adet CommandButton1, 1 adet ListBox1, 1 adet WindowsMediaPlayer1 nesneleri ekleyiniz.

Private Sub CommandButton1_Click()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)

If Not Klasor Is Nothing Then
Kaynak2 = Klasor.SELF.Path 'Klasor.Items.Item.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo atla
On Error Resume Next
WindowsMediaPlayer1.currentPlaylist.Clear

ListBox1.Clear
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "20;0;0;110" 'lisbox'taki sütunların genişliği

Dim fL As Object, f As Object
Set fL = CreateObject("Scripting.FileSystemObject")
Liste5 (Kaynak2)

'WindowsMediaPlayer1.fullScreen = True
WindowsMediaPlayer1.Controls.Play

Else

atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

Private Sub Liste5(yol As String)
Dim fL As Object, f As Object
Set fL = CreateObject("Scripting.FileSystemObject")

'On Error Resume Next
For Each Dosya In fL.GetFolder(yol).Files

deger5 = fL.GetExtensionName(Dosya) ' uzantı buluyor
deger5 = LCase(Replace(Replace(deger5, "ı", "i"), "İ", "I"))
Dosya_adi = fL.GetBaseName(Dosya) ' klasörün kendisi

If deger5 = "ts" Or deger5 = "mkv" Or deger5 = "flv" Or deger5 = "dat" Or _
deger5 = "wpl" Or deger5 = "mpg" Or deger5 = "mp3" Or deger5 = "avi" Or _
deger5 = "mp4" Or deger5 = "swf" Or deger5 = "wav" Or deger5 = "wmv" Or _
deger5 = "ac3" Or deger5 = "wma" Or deger5 = "mp2" Or deger5 = "m4a" Or _
deger5 = "aac" Or deger5 = "aa3" Or deger5 = "ogg" Or deger5 = "amr" Or _
deger5 = "vop" Or deger5 = "asf" Or deger5 = "mov" Then

say = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(say, 0) = say + 1
ListBox1.List(say, 1) = Dosya
ListBox1.List(say, 2) = Dosya.Name
ListBox1.List(say, 3) = fL.GetBaseName(Dosya.Name)

Set Xwmp = WindowsMediaPlayer1.newMedia(Dosya)
say = WindowsMediaPlayer1.currentPlaylist.Count
WindowsMediaPlayer1.currentPlaylist.insertItem say, Xwmp

End If

Next

On Error GoTo sonraki
For Each f In fL.GetFolder(yol).SubFolders
Liste5 (f.Path)
sonraki:
Next

Set fL = Nothing

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount > 0 Then
WindowsMediaPlayer1.Controls.playItem WindowsMediaPlayer1.currentPlaylist.Item(ListBox1.ListIndex)
WindowsMediaPlayer1.Width = 360
WindowsMediaPlayer1.Height = 234
End If

End Sub

 

[vuranoğlu]

Merhaba
Sayın halit3
Teşekkürler.
CommandButton a basıldığında direk eğitim1 dosyasını açtıramaz mıyız içerik listboxa gelsin.?
Kullanacak kişilerin dosya arama gibi yeteneklerinin olmadığını varsayarak
düşünüyorum.

 

[halit3]

müzik dosyalarının bulunduğu klasörün adresini siz değiştirin.

klasor = ThisWorkbook.Path & "\EGİTİM1"


kod

Private Sub CommandButton1_Click()

klasor = ThisWorkbook.Path & "\EGİTİM1"

WindowsMediaPlayer1.currentPlaylist.Clear

ListBox1.Clear
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "20;0;0;110" 'lisbox'taki sütunların genişliği

Liste5 (klasor)

'WindowsMediaPlayer1.fullScreen = True
WindowsMediaPlayer1.Controls.Play


End Sub

 

[vuranoğlu]

Merhaba
Sayın @halit3
Teşekkürler.
Media playır'ın boyutlarını değiştirmeğe çalıştım ama boyut değişmiyor.
WindowsMediaPlayer1.Width = 560
WindowsMediaPlayer1.Height = 334

 

[vuranoğlu]

Merhaba
Dosyayı her açtığımda


bu şekilde hata geliyor. Nasıl düzeltebiliriz.?