Как программно расшарить лпределенную папку?

[dasker]

Как программно средствами VB расшарить лпределенную папку? ну к примеру c:\share\

[Sirik]

скопируй и сохрани под именем *.reg

Код: Выделить всё

REGEDIT4

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Network\LanMan\C]
"Flags"=dword:00000192
"Type"=dword:00000000
"Path"="C:\\"
"Parm2enc"=hex:
"Parm1enc"=hex:
"Remark"=""


запусти, и твой диск С станет общим.

а как программно, где-то встречал, но не помню где...

[Andrev]

В реестре в HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\Shares прописываешь параметр типа reg_multi_sz:
Имя параметра - имя, под которым папка будет отображаться в сети,
в значении параметра указываешь:
"Path=c:\new_folder" теоретически, все. На машинах с НТ-вым ядром в значении можно еще, кажется, прописывать и разрешения на доступ и прочую ерунду. Но этого тебе должно хватить.

[Sebas]

Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\Finance", "FinanceShare", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Public share for the Finance group.")
Wscript.Echo errReturn