プロが教える店舗&オフィスのセキュリティ対策術

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

gooドクター

A 回答 (2件)

『マクロ』というより、『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\
...などのように、一階層下のフォルダを指定して検索すれば良いだけのような?
    • good
    • 0
この回答へのお礼

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

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

>複数の共有システムのファイルがあり、その中にそれぞれ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\を共有設定するわけにはいかないのでしょうか?
という意味です。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

人気Q&Aランキング