| 投稿日 | ： 2003/09/18(Thu) 16:20 |
| 投稿者 | ： takada |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 「ファイル名またはファイル番号が不正です。(Error 52)」のエラー |
フォルダ内にあるTXTファイルの
存在チェックをするプログラムを書いています。
Dim TargetFile AS String
Dim InFilePath AS String
'//サーバーマシンのパス取得
InFilePath=GetPath()
↑
UNCパス(\\server\share...)を取得しています。
TargetFile = Dir(InFilePath & "*.TXT") ・・・①
If TargetFile = "" Then
Msgbox "ディレクトリにｔｘｔファイルなし"
End
End If
上記のように指定したディレクトリでTXTファイルの有無を調べ
たいのですが、
①のところで、
「ファイル名またはファイル番号が不正です。(Error 52)」
のエラーがおこります。
ちなみにXPのPCでこれを実行したら、問題なく実行されました。
2000の場合はなにか必要なのでしょうか？
どなたかご教授のほど宜しくお願いいたします。
開発環境 VB6.0SP5 Win2000