Goedemorgen,
Ik heb (met mijn beperkte programmeercapaciteiten
) een macro geschreven waarin de files in een map worden geteld en worden hernoemd. Aan de file-naam wordt o.a. een nummering toegevoegd, zodanig dat de file-namen er ongeveer zo uit zien: datumvandaag + file-naam + 1 van 32 + extensie.
Hoe krijg ik het voor elkaar dat de er op alfabetische volgorde wordt hernoemd. Ik heb het geprobeerd met:
If .Execute(SortBy:=msoSortbyfil.Name, SortOrder:=msoSortOrderDescending) > 0 Then
maar dat lukt niet.
Hartstikke fijn als iemand mij zou kunnen helpen.
Alvast bedankt.
Hieronder een beperkt deel van de macro.
Ik heb (met mijn beperkte programmeercapaciteiten
) een macro geschreven waarin de files in een map worden geteld en worden hernoemd. Aan de file-naam wordt o.a. een nummering toegevoegd, zodanig dat de file-namen er ongeveer zo uit zien: datumvandaag + file-naam + 1 van 32 + extensie.Hoe krijg ik het voor elkaar dat de er op alfabetische volgorde wordt hernoemd. Ik heb het geprobeerd met:
If .Execute(SortBy:=msoSortbyfil.Name, SortOrder:=msoSortOrderDescending) > 0 Then
maar dat lukt niet.
Hartstikke fijn als iemand mij zou kunnen helpen.
Alvast bedankt.
Hieronder een beperkt deel van de macro.
Code:
Dim van alles en nog wat
strPath = Opslagkopie
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(strPath)
On Error GoTo Fout
For Each fil In fld.Files
'Bij iedere loop/ next wordt het docnummer verhoogd.
docnummer = docnummer + 1
Bestandzonder = Format(datum, "yyyy-mm-dd__") & mybestandzonderextensie & "__" & docnummer & "v" & doctotaal & " " & Onderwerp & " " & extensie
Name strPath & fil.Name As strPath & Bestandzonder
Next
Set fld = Nothing: Set fso = Nothing: Set f = Nothing
