Automatische Ordner

speedfreak1988 · 15. Februar 2008

Hi,

versuche mit VB6 ein Programm zu entwickeln, das aus der "Interpret"-Eigenschaft einer mp3 automatisch einen Ordner mit diesem Namen erstellt. Es muss nicht mal reinkopieren, das geht zur Not noch so. Aber die Ordner wären schon klasse.
Weiß einer ne Idee? Oder gibts so ein Tool schon?

Noch ein kurzes Bsp.:
MP3-Dateiname: Apologize
MP3-Interpret: Timbaland <----
MP3-Erstellungsdatum: 15.01.2008 ...
(uvm...)

----> Neuer Ordner: Timbaland

THX für eure Hilfe!

TheCatcher · 16. Februar 2008

Sowas hier....

ist nur leider Delphi :-)

bei vb versuch es mit diesem CodeSchnippsel um die tags auszulesen ein Ordner dann zu erstellen sollte das kleinere problem sein!

Option Explicit
Private Type TagInfo
Tag As String * 3
Songname As String * 30
artist As String * 30
album As String * 30
year As String * 4
comment As String * 30
genre As String * 1
End Type

Dim FileName As String
Dim CurrentTag As TagInfo

Private Sub Form1_Load()
Dim temp As String
On Error Resume Next

FileName = App.Path & "myMP3.mp3"
Open FileName For Binary As #1
With CurrentTag
Get #1, FileLen(FileName) - 127, .Tag
If Not .Tag = "TAG" Then
label8.Caption = "No tag"
Close #1
Exit Sub
End If
Get #1, , .Songname
Get #1, , .artist
Get #1, , .album
Get #1, , .year
Get #1, , .comment
Get #1, , .genre
Close #1

txtTitle = RTrim(.Songname)
txtArtist = RTrim(.artist)
txtAlbum = RTrim(.album)
txtYear = RTrim(.year)
txtComment = RTrim(.comment)

Temp = RTrim(.genre)
txtGenreCode = Asc(Temp)
Combo1.ListIndex = CInt(txtGenreCode) - 1
End With
End Sub

Suche

Automatische Ordner

speedfreak1988

Cadet 3rd Year

TheCatcher

Gast

Anhänge

Ähnliche Themen