質問

EXCEL VBAのDir関数について

質問者：Fat01ton
投稿日時：2002/08/26 12:13

ファイルサーバー上にあるEXCELファイルのVBAで
新規にファイルを作成する際にDIR関数で
同名ファイルの有無チェックを作成したいと考えています。
しかし以下のような処理で行うとチェックするフォルダが
My documentsになってしまいファイルの有無チェックが
うまくいきません。どのように書けば良いのでしょうか？
ご教授ください。よろしくお願いします。
（情報不足でしたらご指摘ください。補足いたします）

ChDir "\\サーバー\フォルダ\サブフォルダ"
If(""=Dir(ファイル名))then　'同名ファイル無
ファイルを保存する処理
Else
msgbox　"同名ファイルがあります"
Endif

環境：
サーバー　　：WinNT4.0
クライアント：Win98SE or　WinNT4.0
EXCEL2000
LAN接続（同一ドメイン）

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー20pt

回答者：maruru01
回答日時：2002/08/26 12:46

こんにちは。maruru01です。

チェックするフォルダも込みのフルパスで指定する方がいいと思いますよ。
チェックするフォルダは、常に同じなら定数化しておき、変更の可能性があるなら変数に代入して使用すればいいでしょう。
変数（または定数）は標準モジュールにでも宣言しておけばいいでしょう。

*****標準モジュール*****
Public FolderName As String

*****実際の処理*****
FolderName = "\\サーバー\フォルダ\サブフォルダ\"
If Dir(FolderName & "ファイル名") = "" Then　'同名ファイル無
　　'ファイルを保存する処理
Else
　　MsgBox　"同名ファイルがあります"
End If