ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скопировать целый каталог
11 сообщений из 11, страница 1 из 1
Как скопировать целый каталог
    #32941632
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
Можно ли Фоксом скопировать каталог?
...
Рейтинг: 0 / 0
02.03.2005, 15:54
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32941652
lo-pata
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lo-pata
Гость
Берешь GetDir() - указать нужный каталог, потом ADIR() - пишешь имена всех файлов в этом каталоге в массив. Дальше в нужном месте создаешь каталог при помощи MD и пишешь в него файлы в цикле при помощи COPY от 1 и до кол-ва элементов массиве, полученном в ADIR().
...
Рейтинг: 0 / 0
02.03.2005, 16:00
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32941813
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Посмотри здесь

http://kodu.neti.ee/~juri4/vfpplus/vbs_fso_05_ru.htm#Copy
...
Рейтинг: 0 / 0
02.03.2005, 16:38
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32942514
bobit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bobit
Гость
ВладимирМПосмотри здесь
Посмотреть не удалось. "Эта страница сейчас недоступна." пишет.
Не важно.
Важно другое. Помимо ADir и GetDir имеют место быть низкоуровневые функции. Ну там fopen, fcreate, fclose и проч.
Составляем текст командного файла. Записываем этот текст в созданный Фоксом файл. Исполняем ran-ом созданный файл.
Глупо? Глупо, согласен. Но ведь вариант же!
...
Рейтинг: 0 / 0
02.03.2005, 23:10
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32942634
Дмитрий Маликов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Маликов
Гость
используя Win32Api - SHFileOperation
...
Рейтинг: 0 / 0
03.03.2005, 06:14
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32942879
Ilhom_uz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ilhom_uz
Участник
lo-pataБерешь GetDir() - указать нужный каталог, потом ADIR() - пишешь имена всех файлов в этом каталоге в массив. Дальше в нужном месте создаешь каталог при помощи MD и пишешь в него файлы в цикле при помощи COPY от 1 и до кол-ва элементов массиве, полученном в ADIR().

А подкаталоги? Че с ним будет?
...
Рейтинг: 0 / 0
03.03.2005, 10:03
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32943039
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Код: plaintext
1.
x=CREATEOBJECT('Scripting.FileSystemObject')
x.CopyFolder(<source>,<destination>,[lOverWriteFiles])
...
Рейтинг: 0 / 0
03.03.2005, 10:52
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #32943044
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
bobit ВладимирМПосмотри здесь
Посмотреть не удалось. "Эта страница сейчас недоступна." пишет.
Видимо этот сервер выключился на ночь или твой провайдер не дает к нему доступ. Вот пример кода с этой страницы

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
lcFolder2Copy="C:\A FSO Testing\"
lcWhere2Copy="C:\A_test4"
llOverWrite = .T.
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
If loFSO.FolderExists(lcFolder2Copy)
   loFolder=loFSO.GetFolder(lcFolder2Copy)
   loFolder.Copy(lcWhere2Copy,llOverWrite)
Endif
Release loFSO

Здесь используется специальный объект Scripting.FileSystemObject . Приведенный пример копирует всю директорию со всеми подкаталогами из папки "C:\A FSO Testing\" в папку "C:\A_test4".

Вообще, для манипуляции файлами и директориями объект Scripting.FileSystemObject очень удобен. Описание его есть в MSDN. Как видите, он легко подключается из FoxPro.

PS: Этот код может не сработать для версии Win95, поскольку в "штатной" поставке такого объекта тогда просто не было. Однако он "штатно" входит в поставку, начиная с Win98.
...
Рейтинг: 0 / 0
03.03.2005, 10:53
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как скопировать целый каталог
    #35320881
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pitermax
Участник
А может кто-то скажет как програмно получить информацию создавлись- ли либо замещались
файлы в каталоге и подкаталогах?
Заранее спасибо.
...
Рейтинг: 0 / 0
19.05.2008, 14:53
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #35321320
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Не надо подымать старые ветки. У тебя совсем другой вопрос - заводи новую.

pitermaxА может кто-то скажет как програмно получить информацию создавлись- ли либо замещались
файлы в каталоге и подкаталогах?
Заранее спасибо.
ADIR() дает дату последнего изменения, запоминаешь дату последнего просмотра, если есть файлы с более поздней датой - значит менялся или создан заново.

Если скопировали файл в каталог, то дата старая останется. Такие есть?

Можно еще флаг файла "Archive" использовать. При каждом изменении виндовс этот флаг сам устанавливает. Соответственно тебе его сбрасывать надо.

Если хочешь чтобы виндовс сразу оповещал твою прогу при изменениях в папке копай в сторону WinAPI функции FindFirstChangeNotification()
...
Рейтинг: 0 / 0
19.05.2008, 16:38
| Ответить | Цитировать | Написать  
Как скопировать целый каталог
    #35321517
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pitermax
Участник
Спасибо
...
Рейтинг: 0 / 0
19.05.2008, 17:27
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скопировать целый каталог
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=32943044&tid=1587766]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 230ms
total:  373ms
созд. / загр.: 373ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]