Check for Read Only File 1

[jimoo]

Does anyone have a snippet of code that can return if a file attribute is set to read only.

I have a process that needs to copy files, but only if the file attribute is not set to read-only.

Thanks in advance.

Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[Mike Lewis]

Hi Jim,

Something like this (not tested):

oFS = CREATEOBJECT("Scripting.FileSystemObject")
oFile = oFS.GetFile("c:\data\somefile.txt")
IF BITAND(oFile.Attributes, 1) = 1
  * File is read-only
ELSE
  * File is read-write
ENDIF

Give it a try and let us know if it works.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro tips, advice, training, consultancy
Custom software for your business

 

[jimoo]

Thanks Mike

I also remembered how to do it with the ADIR function. How quickly we forget when we do not use it.


DECL Aboo
lnCount = ADIR('aboo','C:\MyDir\*.*')

It is the 5th item in the array list.




Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[Mike Lewis]

Jim,

Yes, I'd forgotten about ADIR() as well. It's probably a better solution than mine, because you can never be sure that every user will have scripting enabled.

MIke

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro tips, advice, training, consultancy
Custom software for your business

 

[Nifrabar]

What about this:

http://www.news2news.com/vfp/?function=151

-Bart

 

[Nifrabar]

Should have mention this also:

http://www.foxite.com/archives/vfp-6-and-attributes-file-0000037650.htm

or
faq184-3327

furthermore setting attributes is mentioned in:

http://fox.wikis.com/wc.dll?Wiki~LowLevelFileFunctions

and don't forget microsoft information:

http://support.microsoft.com/kb/184525

http://www.archivum.info/microsoft.public.fox.programmer.exchange/2006-05/msg00150.html

Hope this is of help.

-Bart

 

[jimoo]

Mike, it turns out I was getting inconsistent results using the ADIR().

The flag combinations were sometimes different.

Your solution provided fast / consistent results

Thanks again


Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[Mike Lewis]

Jim,

Not sure why ADIR() doesn't work, but it's good to hear the problem's solved.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro tips, advice, training, consultancy
Custom software for your business