フォルダの共有をするには？ (ID：81672)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつもお世話になっております。
Windows98、MEでフォルダの共有をしたいのですが、
色々なサイトでサンプル等があったのでそれを使用して
共有することはできたのですが、
再起動すると共有がはずれて（共有しないの状態）しまいます。

ソースには再起動後に再接続と書いているのですが、わからない状態です。
なにとぞよろしくお願いいたします。
環境  VB6 SP-5

'リソースの共有を追加
Private Declare Function NetShareAdd Lib "SVRAPI.DLL" _
                                         (ByVal pszServer As String, _
                                          ByVal sLevel As Integer, _
                                          ByRef pbBuffer As share_info_50, _
                                          ByVal cbBuffer As Integer) As Long

'メモリーコピー
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
                                              (ToData As Any, FromData As Any, ByVal Length As Long)

Private Const LM20_NNLEN = 12
Private Const SHPWLEN = 8

'リソースの種類
Private Const STYPE_DISKTREE = 0

'アクセス権限
Private Const SHI50F_FULL = &H2&        'フルアクセス
Private Const SHI50F_PERSIST = &H100&   'OS再起動時に再接続する

Private Type share_info_50
    shi50_netname(LM20_NNLEN)  As Byte
    shi50_type                 As Byte
    shi50_flags                As Integer
    shi50_remark               As Long
    shi50_path                 As Long
    shi50_rw_password(SHPWLEN) As Byte
    shi50_ro_password(SHPWLEN) As Byte
End Type

Private Sub Command1_Click()

Dim info50    As share_info_50
    Dim ShareName As String
    Dim SharePath As String
    Dim Comment   As String
    Dim Pass      As String
    Dim strbuf1   As String
    Dim strbuf2   As String
    
    gfunSetFolder_98 = False
    
    '共有名 12バイトまで
    ShareName = "test"

'共有フォルダのフルパス
    SharePath = UCase("C:\test")

Comment = ""
    Pass = ""

With info50
        '共有名
        Call CopyMemory(.shi50_netname(0), ByVal ShareName, LM20_NNLEN)

.shi50_type = STYPE_DISKTREE

'フルアクセス＆再起動時に再接続
        .shi50_flags = SHI50F_FULL Or SHI50F_PERSIST

'コメント
        If Comment <> "" Then
            strbuf1 = StrConv(Comment, vbFromUnicode)
            .shi50_remark = StrPtr(strbuf1)
        End If

'フォルダのパス
        strbuf2 = StrConv(SharePath, vbFromUnicode)
        .shi50_path = StrPtr(strbuf2)

'パスワード
        If Pass <> "" Then
            Call CopyMemory(.shi50_rw_password(0), ByVal Pass, SHPWLEN)
        End If
    End With

If NetShareAdd(vbNullString, 50, info50, Len(info50)) = 0 Then    
        MsgBox "フォルダの共有を追加しました", vbInformation
    Else
        MsgBox "フォルダの共有に失敗しました", vbExclamation
    End If

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る