• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

code aanpassen

Status
Niet open voor verdere reacties.
Plaats dan je document eens zoals hij nu is, want zo werkt hij bij mij wel in 64-bit Office.
 
Laatst bewerkt:
Heb nu ook geprobeerd op mijn laptop, daar staat Office 365 op.
map aangemaakt c:\MP3 daarin diverse mp's in gedaan, het bestand zelf ook in die directory gezet.
maar helaas, komt niets..
 
Nou Edmoor,

Weet niet wat of hoe, maar op 32 bits systeem (laptop) doet hij het, alleen op een 64 bits systeem nog niet.
maar ik kan even vooruit.
Wil je bedanken voor je tijd die je hebt besteed hier aan...
Excel.jpg
 
Ik kan het hier op een 64-bit Office nakijken en daar werkt mijn versie goed.
Daarom zou ik graag jouw document zoals je die nu hebt hier even willen zien om die hier te testen.
 
Nu ben ik even de draad kwijt. Wat en waar werkt het nu niet?
 
Kan toch veel eenvoudiger met:

Code: 
Sub M_snb()
  set fs=createobject("scripting.filesystemobject")
  sn=split(createobject("wscript.shell").exec("cmd /c dir ""G:\OF\*.mp3"" /b/a-d/s").stdout.readall,vbcrlf)

  With CreateObject("shell.application")
    for j=0 to ubound(sn)-1
      c01=fs.getfile(sn).getbasename

      with .namespace(fs.getfile(sn).parentfolder)
        c02 = .getdetailsof(.Items.Item(c01), 15)
        c03=  .getdetailsof(.Items.Item(c01), 16)
      end with
    next
  end with
End With
 
Laatst bewerkt:
edmoor zei:
Nu ben ik even de draad kwijt. Wat en waar werkt het nu niet?
Klik om te vergroten...

Waar het niet werkt is op een 64 bits besturingssysteem (PC) , en daar draait office 2013 op.
Op mijn laptop, ook 64 bits besturingssysteem, maar dan met Office 365 erop, daar werkt ie wel...
 
snb zei:
Kan toch veel eenvoudiger met:

Code: 
Sub M_snb()
  set fs=createobject("scripting.filesystemobject")
  sn=split(createobject("wscript.shell").exec("cmd /c dir ""G:\OF\*.mp3"" /b/a-d/s").stdout.readall,vbcrlf)

  With CreateObject("shell.application")
    for j=0 to ubound(sn)-1
      c01=fs.getfile(sn).getbasename

      with .namespace(fs.getfile(sn).parentfolder)
        c02 = .getdetailsof(.Items.Item(c01), 15)
        c03=  .getdetailsof(.Items.Item(c01), 16)
      end with
    next
  end with
End With
Klik om te vergroten...

en waar zet ik dat neer snb, ergens ertussen ofzo ?
 
In plaats van al die uitgebreide code van JW.
Maar natuurlijk pas nadat je hem geanalyseerd hebt en precies begrijpt wat de code doet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan