Macro code omzetten van 32 bits naar 64 bits.

[CandyBart]

Hallo,

Ik heb zojuist een lijst gedownload waar ik al mijn MP3's in kan laden.
Helaas werkt deze lijst alleen voor 32-bits.
Mijn vraag is er een mogelijkheid om deze makkelijk om te zetten dat hij ook werkt voor 64-bits of moet ik deze helemaal door gaan spitten en fouten herstellen zodat hij ook voor 64 bits werkt?

Met vriendelijke groet,

Bart

 

[Warme bakkertje]

En waar kunnen wij die lijst vinden zodat wij het ook eens kunnen bekijken?

 

[CandyBart]

Owja sorry,

Bij deze een bijlage met de mp3 lijst

Bekijk bijlage mp3filelister (2).xls

 

[Warme bakkertje]

Kijk eens hoever je hiermee komt.

Sub tst()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
            If .Show <> -1 Then MsgBox "No folder selected! Exiting sub...": Exit Sub
            mydir = .SelectedItems(1)
    End With
    t = Timer
    With CreateObject("scripting.filesystemobject")
        For Each fl In .GetFolder(mydir).Files
            If UCase(Right(fl.Name, 4)) = ".MP3" Then
                c0 = c0 & fl.Name & "|"
            End If
        Next
        i = 2
        ReDim x(1 To 9, 1 To Rows.Count)
        x(1, 1) = "Path"
        x(2, 1) = "File Name"
        x(3, 1) = "Artist"
        x(4, 1) = "Album"
        x(5, 1) = "Title"
        x(6, 1) = "Track#"
        x(7, 1) = "Genre"
        x(8, 1) = "Duration"
        x(9, 1) = "Size"
        For j = 0 To UBound(Split(c0, "|"))
        With CreateObject("shell.application").Namespace(mydir)
            x(1, i) = mydir
            x(2, i) = Split(c0, "|")(j)
            x(3, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 20)
            x(4, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 14)
            x(5, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 21)
            x(6, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 26)
            x(7, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 16)
            x(8, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 27)
            x(9, i) = .GetDetailsOf(.ParseName(Split(c0, "|")(j)), 1)
        End With
        i = i + 1
        Next
    End With
    ReDim Preserve x(1 To 9, 1 To i - 2)
    Cells.Clear
    Range("A3").Resize(i - 2, 9) = WorksheetFunction.Transpose(x)
    MsgBox Timer - t
End Sub

 

[CandyBart]

Het werkt
Heel erg bedankt hier voor.