Zoek bestanden in map naar Excell

[Muziekman]

Hoi allen helpers,

Zoek bestanden in map naar Excell

Dat gaat met Firefox;

F:/a Muziek/JACMUZTOP40/a w Muz%20 BANKz 56 13 uit 03 april 2021 Zondag Pasen + 1967%20 georienteerd

Weergave : alle mp3’s
Bestanden naam, Grootte, laatst gewijzigd.




Mijn vraag is, kan hier ook de duur van lied er bij komen?
Groet Jac

 

[OctaFish]

Lijkt mij handiger als je een bestandje meepost met wat je tot nu toe zelf hebt gemaakt.

 

[HSV]

Bv.

Sub hsv()
Dim a, i As Long
a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Users\[COLOR=#ff0000]MuziekMan[/COLOR]\music\*.mp3""/b/o:n/s").stdout.readall, vbCrLf)
  ReDim b(UBound(a), 2)
  On Error Resume Next
     For i = 0 To UBound(a) - 1
       b(i, 0) = StrReverse(Split(StrReverse(a(i)), "\", 2)(1))
       b(i, 1) = Split(a(i), "\")(UBound(Split(a(i), "\")))
[COLOR=#0000ff]      With CreateObject("shell.application").Namespace(b(i, 0))[/COLOR]
[COLOR=#0000ff]       b(i, 2) = .getdetailsof(.Items.Item(b(i, 1)), 27)[/COLOR]
[COLOR=#0000ff]      End With[/COLOR]
       Next i
  Cells(1).Resize(UBound(a), 3) = b
  Columns("a:c").AutoFit
End Sub

 

[Muziekman]

Zoek bestanden in map naar Excel met tijden

Beste heer,
Giga Honourable Senior Member

Vriendelijk dank voor de oplossing!

Ik heb code geplaatst onder Alt en Hoofdtoets 11 in Excel.
Werkt in Win 10

Op Xp werkt hij niet, er komt geen tijd achter te staan.
Is hier een oplossing voor?

Want hier werk ik mee.

Groetjes Jac

 

[edmoor]

Volgens mij was op Windows XP dat bestands attribuut (27) nog niet aanwezig.

 

[HSV]

Test het zo eens.

Sub hsv()
Dim a, i As Long
a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Users\Muziekman\music\*.mp3""/b/o:n/s").stdout.readall, vbCrLf) 
  ReDim b(UBound(a), 3)
  On Error Resume Next
     For i = 0 To UBound(a) - 1
       b(i, 0) = i + 1
       b(i, 1) = Split(a(i), "\")(UBound(Split(a(i), "\")))
      With CreateObject("shell.application").Namespace(StrReverse(Split(StrReverse(a(i)), "\", 2)(1)))
       b(i, 2) = .getdetailsof(.items.Item(b(i, 1)), [SIZE=3][COLOR=#ff0000]1[/COLOR][/SIZE])
       b(i, 3) = CDate(.getdetailsof(.items.Item(b(i, 1)), [COLOR=#ff0000]4[/COLOR]))
      End With
       Next i
  Cells(1).Resize(UBound(a), 4) = b
  Columns("a:d").AutoFit
End Sub

 

[Muziekman]

bestanden in map naar Excell met tijden

Beste heer,
Giga Honourable Senior Member

Hoi

Nu wordt bestand grootte, voorbeeld 2.344 kb en gemaakt 03-04-2121 16:08 weergegeven
Groet Jac

 

[HSV]

Helaas kan ik het niet testen, maar maak van de 1 eens 21.

 

[edmoor]

Even getest op XP en daar is de speelduur inderdaad attribuut 21.



Hoe wil je die grootte en datum weergegeven hebben?

 

[Muziekman]

Hoi

Ik ben er uit HOI HOI

een regel een na onderste op 21)
en de laatste regel op 9))

Beste heer,
Giga Honourable Senior Member
Geheel opgelost,
De complete titel en de song lengte in de juiste weergave hoe ik altijd werk.
Nogmaals vriendelijk dank!

Groetje Jac

 

[HSV]

Zet de eigenschap van die kolom op → Aangepast → mm:ss

 

[Muziekman]

is gebeurd