ファイルの共有
何もわからずお聞きする事大変申し訳なく思っておりますが、
教えて頂けると有り難いです。
共有のフォルダをc:\tmpにしたく、また
evryoneでフルアクセスとしたいのですが、どう変えれば良いでしょうか？

Declare Function NetShareAdd Lib "netapi32.dll" (ByVal servername As String, ByVal level As Long, buf As Any, parm_err As Long) As Long

'共有情報
Type SHARE_INFO_2
    shi2_netname      As Long
    shi2_type         As Long
    shi2_remark       As Long
    shi2_permissions  As Long
    shi2_max_uses     As Long
    shi2_current_uses As Long
    shi2_path         As Long
    shi2_passwd       As Long
End Type

Public Const STYPE_DISKTREE = 0
'------------------------------------------------------------
Sub Main()
    Dim strServerName As String
    Dim udtShareInfo2 As SHARE_INFO_2
    Dim lngReturn     As Long
    Dim lngParmErr    As Long
    
    'サーバ名を設定(空文字の場合はローカルコンピュータ)
    strServerName = StrConv("", vbUnicode)
    '共有情報を設定
    
    With udtShareInfo2
        '共有名
        .shi2_netname = StrPtr("NOTHING")
        .shi2_type = STYPE_DISKTREE
        'コメント
        .shi2_remark = StrPtr("")
        .shi2_permissions = 0
        .shi2_max_uses = 7
        .shi2_current_uses = 0
        .shi2_path = StrPtr(App.Path)
        .shi2_passwd = StrPtr("")
    End With
    
    '指定したリソースを共有
    lngReturn = NetShareAdd(strServerName, _
                            2, udtShareInfo2, lngParmErr)
                            
        If lngReturn = NERR_Success Then
        MsgBox "共有化に成功しました", _
               vbInformation
    Else
        MsgBox "共有化に失敗しました", _
               vbExclamation
    End If


End Sub

> 共有のフォルダをc:\tmpにしたく、また
> evryoneでフルアクセスとしたいのですが、どう変えれば良いでしょうか？
>    
>         .shi2_max_uses = 7

　　7？　-1じゃ〜ないの？

>         .shi2_path = StrPtr(App.Path)

　　.shi2_path = StrPtr("C:\Tmp")

　　かな・・・

※　.NETで書いた自作コードと見比べてのレスです。
　　VB6では、未確認です。

以上。参考まで

大変有り難う御座います。うまく共有出来ました。