[megaloman]

Подсмотрел у NiOl перебор букв, сократил свой код.

Код:

Echo Off

Set What=:\Примеры макроса

Set Log=False
For %%D in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) Do Call :Execution %%D
GoTo End

:Execution

If %Log%==True GoTo End
If Not Exist "%1%What%" GoTo End
Set Log=True

Set Disk=%1

Echo %Disk%%What% 'Делаем, что задумано'
Pause '' 


:End