SetFileAttributes() for folder/directory

[BlindMan]

SetFileAttributes() for a folder/directory doesn't appear to be working for +s or +h.
Passing full pathname of folder to SetFileAttributes().
Working as expected on files.
Using Win10x64 PB5.72x64 B2

Sorry. Working ok now. Not sure why. Computer has been switched off and on since last tested but code has not changed.

Code: Select all

 

ProgDataDir$ = GetUserDirectory(#PB_Directory_ProgramData)

DirSeparator$ = Right(ProgDataDir$, 1)

 

CreateDirectory(ProgDataDir$ + "BangMash")

Result = SetFileAttributes(ProgDataDir$ + "BangMash", #PB_FileSystem_Hidden)

MessageRequester("Result " + Str(Result), ProgDataDir$ + "BangMash")

 

CreateDirectory(ProgDataDir$ + "BangMash" + DirSeparator$ + "Bang")

 

CreateDirectory(ProgDataDir$ + "BangMash" + DirSeparator$ + "Mash")

Result = SetFileAttributes(ProgDataDir$ + "BangMash" + DirSeparator$ + "Bang", #PB_FileSystem_System)

MessageRequester("Result " + Str(Result), ProgDataDir$ + "BangMash" + DirSeparator$ + "Bang")

 

End

[Little John]

*sigh*

Please read before submitting a bug report !