tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： ファイルの共有
投稿日： 2010/01/14(Thu) 15:53
投稿者： るしーる
ファイルの共有
何もわからずお聞きする事大変申し訳なく思っておりますが、
教えて頂けると有り難いです。
共有のフォルダを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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。