Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36625 / 76732

←次へ　｜　前へ→


	【45286】Re:ファイルサーバーの割り当て操作について

maverick - 06/12/18(月) 10:36 -


	引用なし

	パスワード

Public Const drv As String = "M:"
Public Const pth As String = "\\ファイルサーバーＡ\Shared"
Public Const usr As String = "UserA"
Public Const pwd As String = "12345"

Sub 接続()
　　Dim objNetwork As Object
　　Dim colDrives As Object
　　Dim i As Integer

　　Set objNetwork = CreateObject("WScript.Network")
　　Set colDrives = objNetwork.EnumNetworkDrives
　　For i = 0 To colDrives.Count - 1 Step 2
　　　　If colDrives.Item(i) = drv Then Exit Sub
　　Next

　　On Error GoTo er
　　objNetwork.MapNetworkDrive drv, pth, False, usr, pwd

　　Set objNetwork = Nothing
　　Set colDrives = Nothing
　　Exit Sub
er:
　　MsgBox "接続失敗"
End Sub

Sub 切断()
　　Dim objNetwork As Object
　　Dim colDrives As Object
　　Dim i As Integer

　　On Error GoTo er
　　Set objNetwork = CreateObject("WScript.Network")
　　Set colDrives = objNetwork.EnumNetworkDrives
　　For i = 0 To colDrives.Count - 1 Step 2
　　　　If colDrives.Item(i) = drv Then
　　　　　　objNetwork.RemoveNetworkDrive drv, True
　　　　End If
　　Next

　　Set objNetwork = Nothing
　　Set colDrives = Nothing
　　Exit Sub
er:
　　MsgBox "切断失敗"
End Sub

2 hits

▼

【45282】ファイルサーバーの割り当て操作について FJ 06/12/18(月) 3:09