Общий доступ к папке

[Dry]

Как открыть общий доступ к папке? А точнее именно управлять галочкой "Разрешить изменения файлов по сети" (она есть в стандартных свойствах папки), тоесть как например програмно открыть доступ к папке с возможностью изменять файлы по сети, и открыть доступ к папке без возможностью изменять файлы по сети...

[JohnK]

Для NT и тд....

Public Declare Function NetShareAddNT Lib "netapi32.dll" Alias "NetShareAdd" (ByVal servername As Any, ByVal slevel As Long, buf As SHARE_INFO_502, ByVal cbbuf As Long) As Long


Dim SI2 As SHARE_INFO_2
Dim SI502 As SHARE_INFO_502
Dim SI50 As SHARE_INFO_50
Dim ShareRemark As String
Dim SharePath As String
Dim nerr As Long
Dim nPath As String
Dim pwd As String
Dim ret As Long
Dim OS As Long

nPath = StrConv(YourPath, vbUnicode)
ShareRemark = "New share"
SharePath = StrConv(YourSharePath, vbUnicode)
pwd = vbNullString

SI502.shi502_current_uses = 0
SI502.shi502_max_uses = 10
SI502.shi502_netname = nPath
SI502.shi502_passwd = pwd
SI502.shi502_path = SharePath
SI502.shi502_permissions = ACCESS_ALL
SI502.shi502_remark = ShareRemark
SI502.shi502_reserved = 0
SI502.shi502_security_descriptor = Security
SI502.shi502_type = STYPE_DISKTREE

nerr = NetShareAddNT(0&, 2, SI502, ret)
End Function

[Dry]

пасибо...

[Dry]

Непонимаю как сделать так что б папка открывалась без разришения на запись по сети??? Я знаю можно просто открыть папку вот так: net share но там нельзя указать можно или нет изменять файлы по сети! Мож как то все же в досе есть, а то так проще мне чем через АПИ заранее пасиб...

[alibek]

А как ты думаешь, что означает SI502.shi502_permissions = ACCESS_ALL ?

[Dry]

Я пишу SI502.shi502_permissions = ACCESS_READ и оно апсолютно ничего не меняет! Что делать если этот параметр действительно не работает? НЕ могу уже ищу 4й день!

[Dry]

Я просто умоляю ктонибудь ответьте я на форуме видел подобных тем штук 5 и ни в одной нет ответа на то как открыть папку только для чтения?

[GSerg]

Dry, получишь замечание в следующий раз.

[Dry]

Просто офигеть... Я с радостью захожу и вижу что у меня одно новое сообщение думаю это долгожданная помощь... а тут нипонятно вообще за что и почему предупреждение... мда спасибо вам всем... За то что ответить на такую ерунду даже не можете, только глупые предупреждения...

[GSerg]

Называть что-то глупым иди обратно в детский сад.
Здесь, если ты пропустил не читая правила форума, можно получать по рукам. И выдача таких получений никак не связана с получением или неполучением ответа.

[Dry]

Я правила читал, только непонял что я сделал не так чтоб получать предупреждения, может пояснишь? А то что то ты в конце загнул про выдачу получений... Сам то понял что сказал? И вообще ты что обиделся на слово гулпые?

[GSerg]

Сам понял, что сказал. И, перечитав, до сих пор понимаю.
Постить подряд через 5 минут с целью привлечения внимания к топику нельзя.

[Dry]

О господи я понял свою ошибку, ну неужели я сделал что то ужасное? Просто скажи ты мне можешь помочь: ответить на мой вопрос? А еслибы я нажал на кнопочку правка то предупреждения не было б?

[GSerg]

Dry, иногда требуется по административным соображениям сделать какое-то разъяснение. Понимаешь? Оно не связано с ответом на вопрос - на вопрос ответит любой, кто уже разбирался с этим (я - нет). От этого необходимость сделать административное разъяснение не исчезает.

[Dry]

Все понятно, жду ответа от другого...