| |
Access2003のVBAからエクスプローラーを起動し、指定したフォルダーへ移動する
機能を実現するため、以下のようなロジックを組みました。
Dim stIDFolder As String 'ﾌｫﾙﾀﾞ (1)
rtn = Shell("Explorer", vbNormalFocus) 'ｴｸｽﾌﾟﾛｰﾗｰ起動 (2)
SendKeys "%D" + "C:\KUNIWORK" + "{ENTER}", True '指定したﾌｫﾙﾀﾞへ (3)
エクスプローラーは起動出来たのですが、指定したフォルダーへ移動できません。
上記の(2)は正常に実行されているのですが、
上記の(3)は正常に実行されていないようです。
※1.SendKeysで指定している"C:\KUNIWORK"というフォルダは、存在するフォルダ
です。
2.Access2003
ＯＳはWindows VISTA を使用しています。
SendKeysの使用方法については特に間違っていないと思うのですが、何故
フォルダーへ移動出来ないかが判りません。
どなたか詳しい方の連絡をお願いします。
※別に、Shell/SendKeysに固執しているわけではありません。
同等の機能を満たせば、他の方法でも構いません。
他の方法で何か良い案があれば、それでも構いませんので、ご教授願えません
でしょうか？
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 09/9/29(火) 20:02 -
