View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Nigel Nigel is offline
external usenet poster
 
Posts: 923
Default Checking for File/Directory Permissions

Chip Pearson kindly provided the following code to check read/write access
attributes for files, which works great. How do I check for file and
directory permissions in an NTFS network file system?

In my company network I need to check if the user has full control or at
least modify permission to read/write and delete files and/or directories.
Before my VBA programs try to take specific actions.


' code from C Pearson Jan 2007
Dim Attr As Long
Attr = GetAttr("\\DellLapTop\MainDrive\Temp")
If Attr And vbReadOnly Then
Debug.Print "Folder is read-only"
Else
Debug.Print "Folder is read-write"
End If

--
Cheers
Nigel