Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить у DBF-файла аттрибут "только на чтение" / 5 сообщений из 5, страница 1 из 1
26.03.2010, 10:30
    #36543882
tatanat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить у DBF-файла аттрибут "только на чтение"
Есть необходимость копировать DBF-файлы с различных носителей. При копировании с дисков у DBF-файлов автоматически выставляется аттрибут "только на чтение".
Каким образом из программы можно проверить установлен ли этот аттрибут у DBF-файла?
...
Рейтинг: 0 / 0
26.03.2010, 13:02
    #36544436
Погодин
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить у DBF-файла аттрибут "только на чтение"
см. функцию ADIR - там это есть
...
Рейтинг: 0 / 0
26.03.2010, 13:17
    #36544480
Как проверить у DBF-файла аттрибут "только на чтение"
tatanat,

ADIR(paROFiles,'c:\testfolder\*.dbf','R') вернёт количество файлов с атрибутом RO в папке testfolder, в массиве paROFiles будет информация об этих файлах.

также можно использовать FileSystemObject:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
poFSO=CREATEOBJECT('FileSystemObject')
poFolder=poFSO.GetFolder('c:\testfolder\')

FOR EACH poFile IN poFoldeR.Files
  IF BITTEST(poFile.Attributes, 0 )
* ридонлифайл
  ENDIF
ENDFOR
...
Рейтинг: 0 / 0
26.03.2010, 13:24
    #36544506
Как проверить у DBF-файла аттрибут "только на чтение"
poFSO=CREATEOBJECT('
Код: plaintext
Scripting.
FileSystemObject')
...
Рейтинг: 0 / 0
26.03.2010, 16:26
    #36545136
tatanat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить у DBF-файла аттрибут "только на чтение"
Большое спасибо!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить у DBF-файла аттрибут "только на чтение" / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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