On 4 Okt., 15:02, andreashermle wrote:
On 4 Okt., 11:33, AB wrote:





Ok then try playing with this code - it does what you need:
- it doesn't have any error trapping (i.e., your file/folder names
must be consistent)
- doesn't work for files/folders with '100' in it - you just need to
tweak the code to allow for that as currently it would treat the '100'
as '00', i.e., it would drop the '1'.
The code:

Sub MoveODS_Around()
* * Dim fso As Object
* * Dim mF As Object
* * Dim ndx As Long
* * Dim posExt As Long

* * Set fso = CreateObject("Scripting.FileSystemObject")

* * 'Next loops through all the files that exist in C:\Graphics
* * For Each mF In fso.GetFolder("C:\Graphics").Files
* * * * 'Find the position of the extension in the file name
* * * * posExt = InStr(1, mF.Name, ".")
* * * * 'Find what the Index number in your file is, e.g., if the file
name: _
* * * * * * * * Martin_Graphics_12.ods _
* * * * * * * * then its index is '12'.
* * * * ndx = Mid(mF.Name, posExt - 2, 2) 'For 100 would return 00
* * * * 'Moves the file to the folder with the same Index in its name
* * * * mF.Move "C:\Graphics\Chapter_" & ndx & "_ready\"
* * Next

End Sub

Post back if you get stuck.

Dear AB,

thank you very much for your tip. To be honest with you, I got no idea
how to put your tip into practice.

Regards, Andreas- Hide quoted text -

- Show quoted text -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Dear AB:

ok, thank you very much. I will give a try and let you know.

Regards, Andreas- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Hi AB,

works like a charm.

Thank you very much for your professional help. I really appreciate
it.

Regards, Andreas