работа с файлами / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / работа с файлами

4 сообщений из 4, страница 1 из 1

работа с файлами

#32062482

Andrey S

Участник

Откуда: Киев

Сообщения: 57

Рейтинг: 0 / 0

народ, как в VBA сделать примерно следующее:
проверить существование одного каталога, если его нет - создать, скопировать в него все файлы из другого, каталога,
казалось бы ерунда, но пропарарился наврено с день. был бы благодарен за совет.

...

Рейтинг:

0 / 0

28.10.2002, 20:23

| Ответить | Цитировать | Написать

работа с файлами

#32062495

RatTail

Участник

Откуда: Z

Сообщения: 4 794

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

требует ссылку на Windows Script Host Object Model

Sub kk()
Dim fso As FileSystemObject, f As File

Set fso = CreateObject( "Scripting.FileSystemObject" )

If Not fso.FolderExists( "c:\md" ) Then
fso.CreateFolder  "c:\md" 
End If

For Each f In fso.GetFolder( "d:\md" ).Files
f.Copy  "c:\md\"  & f.Name, True  'overwrite
Next

Set fso = Nothing

End Sub

...

Рейтинг:

0 / 0

28.10.2002, 23:49

| Ответить | Цитировать | Написать

работа с файлами

#32062907

Andrey S

Участник

Откуда: Киев

Сообщения: 57

Рейтинг: 0 / 0

работает,
спасибо

...

Рейтинг:

0 / 0

29.10.2002, 21:42

| Ответить | Цитировать | Написать

работа с файлами

#32063709

AlexL

Гость

А как указать не абсолютный адрес, а, допустим, чтобы в текущей папке создался новый каталог?

...

Рейтинг:

0 / 0

31.10.2002, 16:23

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / работа с файлами

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&gotonew=1&tid=1683024]:	0ms
get settings:	8ms
get forum list:	10ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	8ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	37ms
get tp. blocked users:	1ms
others:	8ms

total:	117ms