Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Атрибуты файлов / 4 сообщений из 4, страница 1 из 1
01.02.2007, 09:47
    #34298129
Maltsev Max
Maltsev Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибуты файлов
Можно-ли средствами VFP поменять у папки атрибуты ?!?

Зачем мне это надо:

Имеется 2 приложения.
Одно на Java с WEB интерфейсом, а второе на VFP 6.0
Обмен данными идет через куки.
т.е. при окончания сценария на JAVA результат скидывается в куки, и подхватывается прогой на VFP.
все прекрасно работает на Win 2000, Win XP. Даже на Win 98 !!!
Но на Win NT 4 не робит.
Дело в том, что на NT-шке папка Cookies имеет атрибут System. и из своей проги я туда, почему-то, доступ не имею. Хотя из Far'а и из проводника с доступом никаких проблем нету.

Я написал батник, который при загрузке системы скидывает атрибут System
Код: plaintext
1.
attrib -s %UserProfile%\Cookies
Но через 5-10 минут этот атрибут возвращается обратно. :-))

переместил вызоб этого батника в свою прогу, но появляется чёрное досовское окошко из-за которого наблюдаются некие тормоза ... Да и юзверей оно бесит

Вот и возник вопрос: А может средствами фоксы можно этот долбанный атрибут сброситть ?!?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2007, 10:45
    #34298336
-=AlexiS=-
-=AlexiS=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибуты файлов
Для файла через API можно так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
#DEFINE FILE_ATTRIBUTE_READONLY        1    
#DEFINE FILE_ATTRIBUTE_HIDDEN          2    
#DEFINE FILE_ATTRIBUTE_SYSTEM          4    
#DEFINE FILE_ATTRIBUTE_DIRECTORY      16    
#DEFINE FILE_ATTRIBUTE_ARCHIVE        32    
#DEFINE FILE_ATTRIBUTE_NORMAL        128    
#DEFINE FILE_ATTRIBUTE_TEMPORARY     512    
#DEFINE FILE_ATTRIBUTE_COMPRESSED   2048   

setfileattributes('c:\bla_bla_bla.bla',FILE_ATTRIBUTE_NORMAL)


PROCEDURE setfileattributes
* СМЕНА АТРИБУТА ФАЙЛА
LPARAMETERS tcPathFile AS String, tnAttribute AS Integer
LOCAL lnSuccess AS Integer

ASSERT VARTYPE(tcPathFile) = 'C'
IF FILE(tcPathFile)
  tnAttribute = IIF(VARTYPE(tnAttribute) # 'N', FILE_ATTRIBUTE_NORMAL, tnAttribute)
  DECLARE INTEGER SetFileAttributes IN WIN32API STRING, INTEGER
  lnSuccess = SetFileAttributes(tcPathFile, tnAttribute)
  CLEAR DLLS 'SetFileAttributes'
  RETURN lnSuccess #  0 
ENDIF

RETURN .F.

ENDPROC

Для папки - чесно говоря не пробовал.
по любому нужно работать через API
поищи тут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2007, 12:20
    #34298750
Maltsev Max
Maltsev Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибуты файлов
2-=AlexiS=-
Спасибо.
Все классно получилось.

Только для папки проверку на File() надо отключать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2007, 17:55
    #34300076
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибуты файлов
-=AlexiS=-Для папки - чесно говоря не пробовал.
по любому нужно работать через API

Вообще-то, не обязательно. Можно использовать объект File.ScriptingObject

Чтение/изменение атрибутов папки
Чтение/изменение атриубтов файла

По ссылкам все примеры в синтаксисе FoxPro
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Атрибуты файлов / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 451ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1589956]:
 0ms
get settings:
 10ms
get forum list:
 26ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 93ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 246ms
total:  451ms
x
x
Закрыть


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