VBAで、ファイルサーバーにユーザIDとパスワードを用いてログインする方法

Question

前提・実現したいこと

ExcelでVBAを使って、DataをファイルサーバにユーザIDとパスワードを使ってログインし、共有フォルダのファイルに張り付けるようにいろいろやってますが、ログインもできていない状況です。ネットに掲載されていたものを利用したものが下のようになっています。どこが間違っているか教えていただけませんでしょうか。

該当のソースコード

Dim strDirectory As String
strDirectory = "\サーバー名\共有フォルダ名"

Shell ("net use " & strDirectory & "パスワード/user:ユーザ名")
MsgBox ("ログオンしますか")

Dim strExist As String
strExist = Dir(strDirectory, vbNormal)  
If (strExist = "") Then
    MsgBox ("フォルダが存在していない。")
    Exit Sub

End If

Answer 1

空白が無いですね。

Shell ("net use " & strDirectory & " パスワード /user:ユーザ名")

でどうでしょうか？

Comments

[shatlelover]

ありがとうございました。無事ログオンできました。もしよろしければ、ログオンして処理後にServerからログオフをしたいのですが、Shell ("net use " & strDirectory & " /delete")
としても、ログオフできません。どこを修正すればいいでしょうか？

[otn]

strDirectory に適切な文字列が入っているのであれば、コマンドは間違ってないので、
それ以外の認識が間違っているのでしょう。

[shatlelover]

ありがとうございました。間違ってないということなので、頑張ってやってみます。
大変お世話になりました。