Проблемка такая:  
В Windows 7 в Office 2010 конструкция, приведенная нижу, работает не так, как в Windows Xp:  
 
s = Dir(pyt & "*.jpg")  
Do While s <> ""  
 s = Dir  
Loop  
Где pyt, заданный путь к папке.  
 
В Xp ищет файлы в той папке, который указан в pyt. А в 7 ищет уровнем выше.  
 
Пример: задана переменная - pyt = "C:\1\2\"  
В Xp промотривает файлы в папке 2. В 7 просматривает файлы в папке 1.  
 
Может как-то перестроить конструкцию?