- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Excel Vba'dan Mp3 (mümkünse diğer) Dosya türlerinin özellikleri ni okumak...
Aşağıdaki kodlar forumda bulunan plemp3.xls dosyasından uyarlamadır.
Aşağıdaki 2.yordama dosyamız eğer mp3 uzantılı ise 1. yordamdan yönlendiriliyoruz. Fakat
Şarkı Numarası (1,2,3 vs), Şarkı Türü (Tsm, Aranjman, Pop, Rock) Gibi verilerine ulaşamıyorum. bunlara aşağıdaki yöntem veya başka bir yöntem ile nasıl ulaşabilirim?
Not: Kodların tamamı http://www.excel.web.tr/showpost.php?p=312872&postcount=7 bağlantısında olup, sadece Dosya özellikleri yordamı değiştirilmiş, Mp3_Ozellikleri yordamı eklenmiştir.
1.Yordam
2.Yordam
Aşağıdaki kodlar forumda bulunan plemp3.xls dosyasından uyarlamadır.
Aşağıdaki 2.yordama dosyamız eğer mp3 uzantılı ise 1. yordamdan yönlendiriliyoruz. Fakat
Şarkı Numarası (1,2,3 vs), Şarkı Türü (Tsm, Aranjman, Pop, Rock) Gibi verilerine ulaşamıyorum. bunlara aşağıdaki yöntem veya başka bir yöntem ile nasıl ulaşabilirim?
Not: Kodların tamamı http://www.excel.web.tr/showpost.php?p=312872&postcount=7 bağlantısında olup, sadece Dosya özellikleri yordamı değiştirilmiş, Mp3_Ozellikleri yordamı eklenmiştir.
1.Yordam
Kod:
Private Sub DosyaOzellikleri(dsyBak As String) '>>|
401 Set Dosyam = DsSisKnt.GetFile(dsyBak) '>>|
402 With Dosyam '>>|
403 ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & ui), address:=dsyBak '>>|
404 Range("C" & ui) = .Type '>>|
405 Range("D" & ui) = Format(.Size / 1024, "#,##0.0000") & " Kb" '>>|
406 Range("E" & ui) = Format(.DateCreated, "dd.mm.yyyy") '>>|
407 Range("F" & ui) = Format(.DateLastAccessed, "dd.mm.yyyy") '>>|
408 Range("G" & ui) = Format(.DateLastModified, "dd.mm.yyyy") '>>|
409 Range("H" & ui) = Format(.DateLastModified, "hh:mm:ss") '>>|
410 Range("I" & ui) = src_Kok '>>|
411 Range("J" & ui) = src_SNo '>>|
412 Range("K" & ui) = src_Etk '>>|
413 Range("L" & ui) = src_Tip '>>|
' uzantı = Right(Dosyam.Name, 3)
Select Case Right(Dosyam.Name, 3)
Case "mp3"
Range("M" & ui) = "MP3 ÖZL"
Call Mp3_Ozellikleri(dsyBak)
Case "jpg"
Range("M" & ui) = "jpg ÖZL"
Case Else
Range("M" & ui) = ""
End Select
415 End With '>>|
416 Set Dosyam = Nothing '>>|
End Sub
Kod:
Private Sub Mp3_Ozellikleri(Filename)
'Dim Filename As String
'Filename = "C:\Users\Dr.Gürsel\Desktop\AYŞE TUNALI - 1994 - SAATLER Mİ DURMUŞ (12-12)\08 - DİYEMEDİM.mp3"
Dim HasTag As Boolean
Dim tag As String * 3
Dim Songname As String * 30
Dim Artist As String * 30
Dim Album As String * 30
Dim Year As String * 4
Dim Comment As String * 30
Dim Genre As String * 10
Dim TrackNumber As String * 3
Open Filename For Binary As #1
Get #1, FileLen(Filename) - 127, tag
If Not tag = "TAG" Then
Close #1
HasTag = False
Exit Sub
End If
HasTag = True
Get #1, , Songname
Get #1, , Artist
Get #1, , Album
Get #1, , Year
Get #1, , Comment
Get #1, , Genre
Get #1, , TrackNumber
Close #1
'MsgBox Songname & Chr(13) & Artist & Chr(13) & Album & Chr(13) & Year & Chr(13) & Comment & Chr(13) & Genre
'MsgBox Songname & "_" & Artist & "_" & Album & "_" & Year & "_" & Comment & "_" & Genre
'MsgBox Songname
'MsgBox Artist
'MsgBox Album
'MsgBox Year
'MsgBox Comment
'MsgBox Genre
Range("M" & ui) = Artist: Range("N" & ui) = Album '>>|
Range("O" & ui) = TrackNumber: Range("Q" & ui) = Songname '>>|
Range("R" & ui) = Year: Range("S" & ui) = Comment '>>|
Range("T" & ui) = Genre: Range("U" & ui) = "??Albüm Sanatçısı" '>>|
End Sub
Son düzenleme:
