Excel VBA質問箱 IV

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

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


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

8079 / 76807

←次へ　｜　前へ→


	【74308】ネットワークの割当の解除について

yanochi777 - 13/5/20(月) 13:45 -


	引用なし

	パスワード

ネットワークの割当を切断するマクロです。ネットワークの割当が無い場合にデバックします。ＩＦ文で避ける方法を教えてください。
Windows７のＥＸＣＥＬ2010です。

Public Function DriveRemove() As Boolean

　'パソコンの指定ドライブんの共有フォルダの割り当てを解除します
　
　　Dim FSO As Object　 '' Scripting.FileSystemObject
　　Dim dr As Object　　'' scripting.Drive
　　Dim NW As Object　　'' WshNetwork
　　Const Remote = 3
　　Dim sDrive As String, Siteid As String
　　 sShareName = "\\共有サーバ\フォルダ"
　　 Siteid = Cells(9, 2)　'セルにあるドライブ名取得
　　　sDrive = Siteid & ":"
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject") '' New FileSystemObject
　　Set NW = CreateObject("Wscript.Network")　'' New WshNetwork

　　NW.RemoveNetworkDrive sDrive, Force:=True, UpdateProfile:=True
　　If Err Then
　　　　'' ネットワークドライブの解除に失敗。
　　　　DriveRemove = False
　　　　Exit Function
　　End If

　　DriveRemove = True
End Function

0 hits

▼

【74308】ネットワークの割当の解除について yanochi777 13/5/20(月) 13:45

≪