>Hello,
>
>Is it possible to change file permissions from VFP by code? I need to process a list of files to "Allow/Deny" access for "everyone".
lparameters tcFileName, tlReadOnly, tlHidden, tlSystem
#define FILE_ATTRIBUTE_READONLY 0x00000001
#define FILE_ATTRIBUTE_HIDDEN 0x00000002
#define FILE_ATTRIBUTE_SYSTEM 0x00000004
local lnNewAttr
lnNewAttr = iif(tlReadonly,FILE_ATTRIBUTE_READONLY,0)+;
iif(tlHidden,FILE_ATTRIBUTE_HIDDEN,0)+;
iif(tlSystem,FILE_ATTRIBUTE_SYSTEM,0)
declare integer SetFileAttributes in Win32API ;
string @ lpFileName, integer dwFileAttributes
declare integer GetFileAttributes in Win32API ;
string @ lpFileName
return ( SetFileAttributes(@tcFilename, ;
bitor(bitand(GetFileAttributes(@tcFilename),0xFFFFFFF8),;
lnNewAttr)) = 1)
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
