Volniy

|
Posted: Thu Dec 11, 2008 00:06 Post subject: |
|
|
Крученый, однако, скриптик вышел, мне не очень понятный, но раз работает, так пусть работает, "ничего только не меняй" (с)
Странно почему у тебя везде "F:/Dcim" с прямым слешем. Это ж, чай, не сетевой путь.
А вообще-то я бы посоветовал копирование Тоталом не осуществлять. Зачем оно тут вааще, ведь его расширенные фичи не задействованы никак, просто копируются все файлы из каждой папки, так? Все, для чего тут нужен Тотал, это получение от него списка папок, содержимое которых нужно копировать и все. Ну, а далее:
Code: | For Each FItem In curFolder.SubFolders
fso.CopyFile FItem.Path & "\*.*", "F:\Dcim\"
Next |
и все дела. Или я не прав  |
|