'check if foldershare exists, delete if so
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Name = 'example'")
For Each objShare in colShares
objShare.Delete
Next
'now share is removed add new
'permissions
Const FILE_SHARE = 0
'max connections
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\PATH_TO_THE_FOLDER", "SHARE_NAME", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "SHARE_COMMENT")