'List of all mp3 files In one folder
'Read it's id3 tags
'2005 Antonin Foller, Motobit Software
Sub ListID3Tags(sFolder)
  'get FileSystemObject To enumerate files
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
  
  'call ListID3TagsFS Function with a folder object
  ListID3TagsFS FS.GetFolder(sFolder)
End Sub

Sub ListID3TagsFS(Root)
  Dim SubFolder, File
  
  'enumerate all files In the folder
  For Each File In Root.Files
    'select only mp3 And wma files
    Select Case LCase(Right(File.Name, 4))
      Case ".mp3", ".wma": ListID3TagsFile File
    End Select
  Next

  'process all subfolders
  For Each SubFolder In Root.SubFolders
    ListID3TagsFS SubFolder
  Next
End Sub

Sub ListID3TagsFile(File)
  'Get id3 object To change data
  Dim id3: Set id3 = CreateObject("CDDBControl.CddbID3Tag")

  'load id3 data from a file, read only
  id3.LoadFromFile File.Path, True
  
  'print some of id3 tags
  WScript.Echo File.Name, id3.Album, id3.Title, id3.LeadArtist
End Sub

Function ListID3Tags($sFolder)
  Dim $FSO
  $FSO = CreateObject("Scripting.FileSystemObject")
  ListID3TagsFS($FSO.GetFolder($sFolder))
EndFunction

Function ListID3TagsFS($Root)
  Dim $SubFolder, $mp3
  For Each $mp3 In $Root.Files
    If LCase(Right($mp3.Name, 3)) == "mp3"
      ListID3TagsFile($mp3)
    EndIf
  Next
  For Each $SubFolder In $Root.SubFolders
    ListID3TagsFS($SubFolder)
  Next
EndFunction

Function ListID3TagsFile($mp3)
  Dim $id3
  $id3 = CreateObject("CDDBControl.CddbID3Tag")
  $id3.LoadFromFile($mp3.Path,1)
  ? "File Name: " $mp3.Path
  ? "Artist: "$id3.LeadArtist
  ? "Title: " $id3.Title
  ? "Album: " $id3.Album
  ? "Comment: " $id3.Comments + @CRLF
EndFunction

Function fnGetDetailsOf()
  dim $objShell
  dim $objFolder
  $objShell = CreateObject("Shell.Application")
  $objFolder = $objShell.NameSpace("D:\MP3")
  If $objFolder <> ""
    dim $objFolderItem
    $objFolderItem = $objFolder.ParseName("Guns N' Roses - Madagascar.mp3")
    If $objFolderItem <> ""
      dim $objInfo
      ? "File Name: " $objFolder.GetDetailsOf($objFolderItem, 0)
      ? "File Size: " $objFolder.GetDetailsOf($objFolderItem, 1)
      ? "File Type: " $objFolder.GetDetailsOf($objFolderItem, 2)
      ? "File Date Modified: " $objFolder.GetDetailsOf($objFolderItem, 3)
      ? "File Date Created: " $objFolder.GetDetailsOf($objFolderItem, 4)
      ? "File Date Accessed: " $objFolder.GetDetailsOf($objFolderItem, 5)
      ? "File Attributes: " $objFolder.GetDetailsOf($objFolderItem, 6)
      ? "File Status: " $objFolder.GetDetailsOf($objFolderItem, 7)
      ? "File Owner: " $objFolder.GetDetailsOf($objFolderItem, 8)
      ? "File Author: "$objFolder.GetDetailsOf($objFolderItem, 9)
      ? "File Title: " $objFolder.GetDetailsOf($objFolderItem, 10)
      ? "File Subject: " $objFolder.GetDetailsOf($objFolderItem, 11)
      ? "File Category: " $objFolder.GetDetailsOf($objFolderItem, 12)
      ? "File Pages: " $objFolder.GetDetailsOf($objFolderItem, 13)
      ? "File Comments: " $objFolder.GetDetailsOf($objFolderItem, 14)
      ? "File Copyright: " $objFolder.GetDetailsOf($objFolderItem, 15)
      ? "File Artist: " $objFolder.GetDetailsOf($objFolderItem, 16)
      ? "File Album Title: " $objFolder.GetDetailsOf($objFolderItem, 17)
      ? "File Year: " $objFolder.GetDetailsOf($objFolderItem, 18)
      ? "File Track Number: " $objFolder.GetDetailsOf($objFolderItem, 19)
      ? "File Genre: " $objFolder.GetDetailsOf($objFolderItem, 20)
      ? "File Duration: " $objFolder.GetDetailsOf($objFolderItem, 21)
      ? "File Bit Rate: " $objFolder.GetDetailsOf($objFolderItem, 22)
      ? "File Protected: " $objFolder.GetDetailsOf($objFolderItem, 23)
      ? "File Camera Model: " $objFolder.GetDetailsOf($objFolderItem, 24)
      ? "File Date Picture Taken: " $objFolder.GetDetailsOf($objFolderItem, 25)
      ? "File Dimensions: " $objFolder.GetDetailsOf($objFolderItem, 26)
      ? "File Not Used: " $objFolder.GetDetailsOf($objFolderItem, 27)
      ? "File Not Used: " $objFolder.GetDetailsOf($objFolderItem, 28)
      ? "File Not Used: " $objFolder.GetDetailsOf($objFolderItem, 29)
      ? "File Company: " $objFolder.GetDetailsOf($objFolderItem, 30)
      ? "File Description: " $objFolder.GetDetailsOf($objFolderItem, 31)
      ? "File File Version: " $objFolder.GetDetailsOf($objFolderItem, 32)
      ? "File Product Name: " $objFolder.GetDetailsOf($objFolderItem, 33)
      ? "File Product Version: " $objFolder.GetDetailsOf($objFolderItem, 34)
    EndIf
    $objFolderItem = ""
  EndIf
  $objFolder = ""
  $objShell = ""
EndFunction