* Директория в которой находятся поддиректории
LOCAL lcMainDir
lcMainDir = "D:\GasGUMRI_15"

* Директория, куда будет копировать результат
LOCAL lcDirTarget
lcDirTarget = "D:\PoxProject\himnark"

* Получаем список просматриваемых директорий
* отбирая только те директории, которые состоят не более чем из  6  символов
LOCAL laDirSource( 1 ), lnDirCount
lnDirCount=ADIR(laDirSource,AddBS(m.lcMainDir)+"??????","D")

* Имя файла, который будем копировать
* Расширение обяательно!
LOCAL lcFileName
lcFileName = "abonent.dbf"

* Сканируем полученный список
LOCAL lnI, lcDirName, lcFileSource, lcFileTarget
FOR lnI =  1  TO lnDirCount
	* Очередная директория
	lcDirName = laDirSource[m.lnI, 1 ]

	* Проверям тот факт, что 
	* Имя директории длиной  6  символов,
	* состоит только из цифр, и, возможно, одного символа разделителя
	IF LEN(m.lcDirName)= 6  AND TYPE(m.lcDirName) = "N"

		* Формируем полный путь доступа к предполагаемому файлу, 
		* который нужно скопировать
		lcFileSource = AddBS(m.lcMainDir)+;
				AddBS(laDirSource[m.lnI, 1 ])+;
				m.lcFileName

		* Проверяем, существует ли такой файл
		IF FILE(m.lcFileSource) = .T.

			* Формируем новое имя
			lcFileTarget = AddBS(m.lcDirTarget)+;
					JustStem(m.lcFileName)+;
					laDirSource[m.lnI, 1 ]+;
					JustExt(m.lcFileName)

			* Собственно копирование
			COPY FILE (m.lcFileSource) TO (m.lcFileTarget)
		ENDIF
	ENDIF
ENDFOR