Excel VBA質問箱 IV

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

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


8833 / 13646 ツリー ←次へ | 前へ→

【30796】UNCパス じゅん 05/11/4(金) 20:45 質問[未読]
【30797】Re:UNCパス ichinose 05/11/4(金) 20:59 発言[未読]
【30918】Re:UNCパス じゅん 05/11/7(月) 11:15 お礼[未読]
【30919】Re:UNCパス じゅん 05/11/7(月) 11:17 お礼[未読]

【30796】UNCパス
質問  じゅん  - 05/11/4(金) 20:45 -

引用なし
パスワード
   いつもお世話になっております。

今回は、UNCパスについてご質問させて
いただきたい事がございます。

ファイルを開く/保存などの際に、
カレントフォルダを変更するのに
UNCパスを使用したいのですが、
どうにも分かりませんでした・・・

ネットワークドライブを使用してなら出来ますが、
これって各個人が同じ設定にしないとダメですよね?
(Zドライブなら、Zドライブにするなど)

どうにか、UNCパスを指定した場合に、それが
カレントになる方法をご存知の方いらっしゃいましたら、
ぜひぜひご教授下さい!
お願いしますm(_ _*)m

【30797】Re:UNCパス
発言  ichinose  - 05/11/4(金) 20:59 -

引用なし
パスワード
   ▼じゅん さん:
こんばんは。
>いつもお世話になっております。
>
>今回は、UNCパスについてご質問させて
>いただきたい事がございます。
>
>ファイルを開く/保存などの際に、
>カレントフォルダを変更するのに
>UNCパスを使用したいのですが、
>どうにも分かりませんでした・・・
>
>ネットワークドライブを使用してなら出来ますが、
>これって各個人が同じ設定にしないとダメですよね?
>(Zドライブなら、Zドライブにするなど)
>
>どうにか、UNCパスを指定した場合に、それが
>カレントになる方法をご存知の方いらっしゃいましたら、
>ぜひぜひご教授下さい!
>お願いしますm(_ _*)m

'========================================
Sub test()
 Dim WshShell
 MsgBox CurDir
 Set WshShell = CreateObject("WScript.Shell")
 WshShell.CurrentDirectory = "\\mypc\d" '←UNCパス
 MsgBox CurDir
End Sub

で確認してみてください。

【30918】Re:UNCパス
お礼  じゅん  - 05/11/7(月) 11:15 -

引用なし
パスワード
   ichinoseさん
 ご教示いただいたプログラムを
 追加しましたところ、UNCパスを
 認識してくれました!
 本当にどうもありがとうございました!!

【30919】Re:UNCパス
お礼  じゅん  - 05/11/7(月) 11:17 -

引用なし
パスワード
   P.S.
 すぐお答えをいただいたのに、
 お礼が遅くなってしまい申し訳ありませんでした。
 平日のみ、会社で閲覧しているものですから・・・

8833 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free