dosya açma

[security]

slm benim sorunum şöyle bir sey arkadaşlar şimdi excelde userforma media player ve command button ve text box ekleyip dosya açma yani pc mizde bulunan mp3 veya videoları mediaplayerda çalma. bu kodu kllanıyorum ve hata yok ancak ben bunu vb6 da yapmak istiyorum ama beceremedim çok acil yardımlarınızı bekliyorum şimdiden teşekkürler.

kod:
Private Sub CommandButton1_Click()
MyPath = CurDir
ChDrive "C:"
ChDir ("C:\")
MyFile = Application.GetOpenFilename("MP3 Dosyaları ,*.mp3,Wav Dosyaları ,*.wav,Avi Dosyaları ,*.avi")
If MyFile <> False Then TextBox1.Value = (MyFile)
WindowsMediaPlayer1.URL = TextBox1
End Sub

 

[security]

yardım lütfen arkadaşlar.

 

[halit3]

WindowsMediaPlayer1.openPlayer "buraya dosya yolunu yaz"


MediaPlayer1.Open "buraya dosya yolunu yaz")

vb5.de veya vb6.da bu komutlar medeya playırı çalıştırır

 

[security]

WindowsMediaPlayer1.openPlayer "buraya dosya yolunu yaz"


MediaPlayer1.Open "buraya dosya yolunu yaz")

vb5.de veya vb6.da bu komutlar medeya playırı çalıştırır

sayın : halit3 tşk ama istediğim su sekil bi şey örnegi incelerseniz bunun gibi bi şey olması gerekiyor nasıl yapabiliriz. tşk.

 

[halit3]

dosyan açılmıyor herseverinde hata veriyor ve kapanıyor

 

[security]

dosyayı güncelledim bakarsanız sevinirim .

 

[halit3]

gene aynı hata açılmıyor dosya

 

[security]

sayın excel.web.tr üyeleri ve sayın uzmanlarımız bu acil lazım lütfen yardımlarınızı bekliyorum...tşk.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub dosyasec()
Set nesne = CreateObject("UserAccounts.CommonDialog")
nesne.Filter = "MP3 (.mp3)|*.mp3|Windows Media (.wma;.wav)|*.wma;*.wav|" & _
"AVİ Dosyaları (.avi)|*.avi|Tüm Dosyalar (*.*)|*.*"
nesne.ShowOpen
WindowsMediaPlayer1.URL = nesne.Filename
End Sub

 

[security]

sn: Levent bey ilginiz için çok teşekkür ederim. sorunum sayenizde halloldu yardımınız için tekrar çok teşekkürler.