投稿時間：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
|