VBA ネットワークドライブにドライブ名を割り当てないで移動する。

Question

VBA、VBScriptでも構わないのですが、ドライブ名を入力しないでネットワークドライブに移動したり、移動先にファイルを生成したりすることは可能なのでしょうか。

できるのであれば、やり方をご教授いただきたい所存です。よろしくお願いします。

Comments

[ttyp03]

「移動」とは何を移動するのでしょうか？ファイル？カレントディレクトリ？主語を書きましょう。
あと、×教授 ○教示

[ponyo_]

指摘ありがとうございます。カレントディレクトリの移動ができるのがベストですが、どこまでできるのか分からなかったのでこのような書き方になってしまいました。情報不足で申し訳ございません。

Answer 1

下記が参考サイトです。
参考

Declare Function SetCurrentDirectory Lib "kernel32" Alias _
                            "SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Sub Sample1()
    Dim ret As Long
    ret = SetCurrentDirectory("\NotePC\E\Work\")
    MsgBox ret
    MsgBox CurDir
End Sub

エラーの時、０が返ります。
成功時、０以外が返ります。

Answer 2

ネットワークドライブにChDriveする
http://officetanaka.net/other/extra/tips15.htm

Answer 3

出来ます。
\サーバー名\共有名\フォルダー名とかで指定します。
認証が通っていることが前提です。

Comments

[ponyo_]

回答ありがとうございます。
やり方なのですが、ChDriveの後とかに入れれば移動できるということですか？
それともオブジェクトを作ってファイル生成とかするのは知っているのですが、そこで指定する時だけできるということなのでしょうか。

認証は通っております、ドライブ名割り当ては禁じられてますが、特定のユーザーであればパス無しで接続できる仕組みだったと思います。

よろしくお願いします。

[otn]

ChDriveは駄目でしょう。ドライブじゃないので。

filecopy "D:\temp\test.txt", "\svr\foo\bar\test.txt"
とか。

[otn]

chdirはエラーにはならないけど、chdriveが使えないのでだめか。