9x系のフォルダ共有を解除するには？ (ID:107994)

名前

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

本文 こんにちは、初めて投稿します。 一週間考えても探しても分からないので教えて下さい。 NT系(XP)のフォルダ共有を解除することはできたのですが、 9x系(98・ME)の解除の仕方が分かりません。 NTの宣言で「netapi32.dll」を「svrapi.dll」に変えてみたのですが、 当然ダメでした…。 どうかお分かりになる方、ご経験された方、教えて下さい。 どうぞよろしくお願い致します。m-v-m Private Declare Function NetShareDel Lib "svrapi.dll" _ (ByVal servername As String, _ ByVal netname As String, _ ByVal reserved As Long) As Long Private Const NERR_Success = 0 '----------------------------- Sub 9x系フォルダ共有解除() Dim strServerName As String Dim strNetName As String Dim lngReserved As Long Dim lngWin32apiResultCode As Long strServerName = StrConv("", vbUnicode) strNetName = "ABC" & vbNullChar lngWin32apiResultCode = NetShareDel(strServerName, _ strNetName, lngReserved) If lngWin32apiResultCode = NERR_Success Then MsgBox "フォルダの共有を解除しました。", vbInformation Else MsgBox "フォルダの共有を解除できません。", vbExclamation End If End Sub