HI !

I have made an application that shared a folder for "everyone" on windows XP.

I tried to run this application on a Vista PC, but when it tries to share , it fails.

What's the different in sharing folder from vista to XP ?

How i can fix my application for vista ?

thanks to ALL

This is the code on my application that share folder:

Code:
 
Public Sub ShareFolder()
        If Create_A_Shared_Folder = True Then
            Try
                Dim managementClass As ManagementClass = New ManagementClass("Win32_Share")
                Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")
                Dim outParams As ManagementBaseObject

                inParams("Description") = "DSS Shared Folder"
                inParams("Name") = SharedDirectoryNetworkPath
                inParams("Path") = SharedDirectoryPath
                inParams("Type") = 0
                inParams("MaximumAllowed") = 2
                inParams("Access") = Nothing

                outParams = managementClass.InvokeMethod("Create", inParams, Nothing)

                If (outParams.Properties("ReturnValue").Value) <> 0 Then

                    Throw New Exception("Unable to share directory.")
                End If

                Dim rul As New Security.AccessControl.FileSystemAccessRule("Everyone", Security.AccessControl.FileSystemRights.FullControl, Security.AccessControl.AccessControlType.Allow)

                Dim dInfo As New DirectoryInfo(SharedDirectoryPath)
                Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()

                dSecurity.AddAccessRule(New FileSystemAccessRule("Everyone", FileSystemRights.FullControl, InheritanceFlags.ContainerInherit, PropagationFlags.None, AccessControlType.Allow))
                dSecurity.AddAccessRule(New FileSystemAccessRule("Everyone", FileSystemRights.FullControl, InheritanceFlags.ObjectInherit, PropagationFlags.InheritOnly, AccessControlType.Allow))
                dInfo.SetAccessControl(dSecurity)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "error!")
            End Try

        End If
    End Sub