Check the write permission of any folder

[sunil goyalG]

hi all, how can i check whether any folder contains the permission for write ? Please suggest.

[Khatri Mitesh]

Try this code. This code set the permission. may be this Helps you.

Function SetPermissions()
Dim strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO

    strHomeFolder = "C:\\Test"

    objShell = CreateObject("Wscript.Shell")
    objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(strHomeFolder) Then
        intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strHomeFolder & " /t /c /g everyone:F ", 2, True)

        If intRunError <> 0 Then
            Wscript.Echo("Error assigning permissions for user " \_
            & strUser & " to home folder " & strHomeFolder)
        End If
    End If
End Function

Thanks Khatri Mitesh

~Khatri Mitesh khatrimitesh@hotmail.com Bikaner (Rajasthan) INDIA