| |
初めてお世話になります。
タイトルの通り、SetCurrentDirectoryでネットワーク上のディレクトリをカレントリにしたいと思っています。
APIを使用しているのですが、ネットワークの"ある階層"にまでしか辿り着けません。
パケットキャプチャしてみた所、IPアドレスが、"ある階層"から先で変わってしまっています。
調べてみたところではサーバのクラスタリングというものが行われているようなのですが、こういったサーバ構成の場合
SetCurrentDirectoryではカレントの変更はできないのでしょうか。
変更出来るギリギリの所をカレントにしておいてGetOpenfilenameのダイアログで自分で階層を進んでいけばファイル
を選択することは出来るのですが、階層が深かったりディレクトリが沢山あったりして誰にでも目的のファイルがすぐに
開けるとは言い難いので、出来るだけ目的のファイルがあるディレクトリをカレントにしておきたいのです。
解決方法がありましたらご教示下さい。よろしくお願い致します。
ソースを書いておきます。
Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Option Explicit
Sub LifeTime_FilePath()
Dim Fpath As String
Dim myFile As Variant
'Fpath = "\\xx.○○○.co.jp\fss2-g$\01037\vlyk\Process\" '←本当はここをカレントにしたい
Fpath = "\\xx.○○○.co.jp\fss2-g$\" '←ここまでなら開ける
'ファイル選択ダイアログ
SetCurrentDirectory (Fpath)
myFile = Application.GetOpenFilename(FileFilter:="エクセルファイル, *.xls", MultiSelect:=True)
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
