Ｐａｇｅ 123 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ChDirでネットワーク上の共有フォルダに変更したいのですが haru 02/9/19(木) 13:47 ┗Re:ChDirでネットワーク上の共有フォルダに変更したいのですが 通りすがりのななし 02/9/19(木) 14:13 ┗Re:ChDirでネットワーク上の共有フォルダに変更したいのですが haru 02/9/19(木) 14:48 ┗別解です ichinose 02/9/19(木) 22:57 ┗Re:別解です haru 02/9/20(金) 9:57 ┗Re:別解です こうちゃん 02/9/20(金) 15:10 ┗Re:別解です ichinose 02/9/20(金) 17:03 ┗Re:別解です haru 02/9/21(土) 16:20 ┗Re:別解です ichinose 02/9/24(火) 10:36 ┗Re:別解です haru 02/9/24(火) 11:19 ─────────────────────────────────────── ■題名 ： ChDirでネットワーク上の共有フォルダに変更したいのですが ■名前 ： haru ■日付 ： 02/9/19(木) 13:47 -------------------------------------------------------------------------
| ChDirでネットワーク上の共有フォルダに変更したいのですが、 マクロの記録では ChDir "\\aa\My Documents\bbbbb" となりました。 これを実行時、curdirをワォッチすると、変わっていません。 ヘルプを見ると、ドライブも変更しなければ駄目みたいなことが 書いてあるんですが、どう変更すれば良いですか？ よろしくお願いします。 |
| ▼haru さん： > ChDirでネットワーク上の共有フォルダに変更したいのですが、 確かAPIを使わないとダメだったと Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" ( _ ByVal CurrentDir As String) As Long Private Sub SetCurDir() ' カレントディレクトリの変更 SetCurrentDirectory ("\\aa\My Documents\bbbbb") MsgBox CurDir End Sub |
| ▼通りすがりのななし さん： こんにちは。 >> ChDirでネットワーク上の共有フォルダに変更したいのですが、 >確かAPIを使わないとダメだったと ありがとうございます。うまくいきました。 |
| ▼haru さん： ▼通りすがりのななし さん： こんばんは。 こんな方法はどうでしょう？ Windows Script Hostを使いました。 '======================================================== Sub test() Dim WshShell MsgBox CurDir Set WshShell = CreateObject("WScript.Shell") WshShell.CurrentDirectory = "\\aa\My Documents\bbbbb" MsgBox CurDir End Sub Windows Script Hostの詳細は､ http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsorigettingstarted.asp この辺を・・・。 |
| ▼ichinose さん： こんにちは。 > WshShell.CurrentDirectory = で、 「オブジェクトは、このプロパティまたはメソッドをサポートし ていません。(Error 438)」というメッセージが表示されます。 win95、エクセル97ですが、できるんでしょうか？ |
| みなさん、こんにちは Windows Scripting Hostは残念ながらWin98以降のテクノロジーです。 95で使用するには、こちらの http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsconwhatiswsh.asp 「WSH を使用するには」をご覧いただき、リンクをたどってWindowsScriptHost5.6をダウンロードしてください。 ＃横レスゴメン^^; |
| ▼こうちゃん さん： こんにちは。 >Windows Scripting Hostは残念ながらWin98以降のテクノロジーです。 > >95で使用するには、こちらの > >http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsconwhatiswsh.asp > >「WSH を使用するには」をご覧いただき、リンクをたどってWindowsScriptHost5.6をダウンロードしてください。 > >＃横レスゴメン^^; フォローありがとうございます。 ひょっとして、前回のFile system objectもここですかね、原因は。 エクスプローラーのダウンロードが必要なのかもしれません。 |
| ▼ichinose さん： ▼こうちゃん さん： こんにちは。 >>Windows Scripting Hostは残念ながらWin98以降のテクノロジーです。 >>95で使用するには、こちらの >>http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsconwhatiswsh.asp >>「WSH を使用するには」をご覧いただき、リンクをたどってWindowsScriptHost5.6をダウンロードしてください。 http://www.microsoft.com/downloads/release.asp?ReleaseID=33248にある scd56jp.exe - 1,719 Kb scr56jp.exe - 724 Kb scriptjp.exe - 729 Kb をダウンロードしました。 scriptjp.exeを実行中、「INFのインストールエラーです。原因： 無効なINFファイルです。」となってしまいました。 再起動したら、途中で「RUNDLL32 不正な処理を行ったので強制 終了します。」となります。 続行すると、win95は立ち上がって、別解を実行すると、うまく行 くんですが、RUNDLL32のエラー表示を出さないようにするにはどう すれば良いですか？ よろしくお願いします。 |
| ▼haru さん： こんにちは。 >>>Windows Scripting Hostは残念ながらWin98以降のテクノロジーです。 >>>95で使用するには、こちらの >>>http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsconwhatiswsh.asp >>>「WSH を使用するには」をご覧いただき、リンクをたどってWindowsScriptHost5.6をダウンロードしてください。 > > http://www.microsoft.com/downloads/release.asp?ReleaseID=33248にある > scd56jp.exe - 1,719 Kb > scr56jp.exe - 724 Kb > scriptjp.exe - 729 Kb > > をダウンロードしました。 > scriptjp.exeを実行中、「INFのインストールエラーです。原因： >無効なINFファイルです。」となってしまいました。 > 再起動したら、途中で「RUNDLL32 不正な処理を行ったので強制 >終了します。」となります。 Win95の環境がないので、解決策はわかりませんが、 scriptjp.exe - 729 Kb は、Win2000用ではありませんか？ 再インストールなんてことにならなければいいのですが・・。 |
| ▼ichinose さん： こんにちは。 >Win95の環境がないので、解決策はわかりませんが、 >scriptjp.exe - 729 Kb は、Win2000用ではありませんか？ そうなんですか？うっかりインストールしてしまいました。 >再インストールなんてことにならなければいいのですが・・。 今は、起動時にメッセージが出るだけで、一旦立ち上がってしま えば、普通に使えています。 何かの折りにWinfaq等で聞いてみたいと思います。 ありがとうございます。 |