マクロでネットワークドライブの割り当て

マクロ初心者です。
マクロにてファイルが検索できるものを仕事で作成しています。
しかし、初心者のため全くわかりません。
マクロにて職場の共有システムのファイルを検索したいです。
共有システムのファイルはH22・H21・H20・H19・H18とあります。
ユーザフォームにH22～H18のオプションボタンをつけ、H22のオプションボタンを選択した場合、H22の共有システムのファイルをネットワークドライブの割り当てにて（ｚ：）を作成したいです。
説明が下手で申し訳ありませんが、よろしくお願いします。
WindowsXP、Excel2003を使用してます。

No.1 ベストアンサー 回答者： end-u 回答日時： 2011/01/06 22:22

『マクロ』というより、『Windows Script Host』というScript処理を使ったVBAコードになります。

それに
>共有システムのファイルはH22・H21・H20・H19・H18とあります。
共有システムの【フォルダ】..という解釈で良い？
..とすると、サンプルとしては

Sub test()
　　On Error GoTo errHandler:
　　With CreateObject("WScript.Network")
　　　　.RemoveNetworkDrive "z:"
　　　　.MapNetworkDrive "z:", "\\server名\共有名", False, "ユーザー名", "パスワード"
　　End With
　　Exit Sub
errHandler:
　　With Err()
　　　　If .Number = -2147022646 Then
　　　　　　Resume Next
　　　　Else
　　　　　　MsgBox .Number & "::" & .Description
　　　　End If
　　End With
End Sub

こんな感じになります。

以下参考）
http://msdn.microsoft.com/ja-jp/library/cc364409 …
http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh1 …

#でも『H22・H21・H20・H19・H18』の各フォルダの親フォルダが一緒なら
その親フォルダをzに割り当てておけば
z:\H22\
z:\H21\
z:\H20\
...などのように、一階層下のフォルダを指定して検索すれば良いだけのような？

この回答へのお礼

ご回答ありがとうございます。
複数の共有システムのファイルがあり、その中にそれぞれH18～H22のフォルダがあります。
そのネットワークドライブで作成されたフォルダの中から検索したいファイルを探し出すのもを作成したかったので、なるべくマクロで作成したいです。
もしお解りでしたら教えてください。

お礼日時：2011/01/12 21:36

No.2 回答者： end-u 回答日時： 2011/01/13 14:33

>複数の共有システムのファイルがあり、その中にそれぞれH18～H22のフォルダがあります。

依然として状況が判り難いです。
『..ファイルに..フォルダがある』とは、どういう意味ですか？
一般的にはそういう表現は使いません。
百歩譲って『複数の共有システムのファイルにそれぞれH18～H22のフォルダの場所（フルパス）が書いてあります。』なら有り得ます。
もうちょっと理解できるように説明してもらえませんか。

例えば
共有のファイルサーバ『server1』があり、サーバにはフォルダ『H18』『H19』..等あります。
各フォルダごとに共有名をつけてネットワークドライブに割り当てています。
『H18』フォルダは共有名『H18』
『H19』フォルダは共有名『H19』..など。

この場合、各フォルダ（共有名）をネットワークドライブに割り当てるサンプルは既に#1に書いてます。
Sub test　が貴方が言うところの『マクロ』です。



ただ、繰り返しになりますが、
>共有のファイルサーバ『server1』があり、サーバにはフォルダ『H18』『H19』..等あります。
>各フォルダごとに共有名をつけてネットワークドライブに割り当てています。
という状況ではなくて、『H22・H21・H20・H19・H18』の各フォルダの親フォルダが一緒なら
その親フォルダをzに割り当てておけばいいんじゃないでしょうか？
例えば共有ファイルサーバのフォルダ構成が
\\server1\shared\data\H18\
\\server1\shared\data\H19\
..などの場合は親フォルダの\\server1\shared\data\を共有設定するわけにはいかないのでしょうか？
という意味です。

この回答へのお礼

ありがとうございます。
遅れてすいません。
ファイルとフォルダを打ち間違えてますね。
前回の回答から試行錯誤でやっていったらできました。

お礼日時：2011/01/23 14:28