質問: vba ファイルチェックについて vbaにてフォルダ内のファイルチェックをして複数あれば処理を終了。 1つなら実行する。という使用に指定のですがなかなかうまくいきません。 どなたかご教示いただけないでしょうか? 下記記述だとファイルが1つでもチェックが入ってしまいます。 以上、宜しくお願いします。 if dir(thisworkbook.path & "\" & "*.csv*") <> "" then msgbox "ファイル名 :【 *.csv* file 】が複数存在しています。" & chr(13) & chr(13) & _ "フォルダ内から不要なcsvファイルを [削除] して下さい。" exit sub end if
回答: if dir(thisworkbook.path & "\" & "*.csv*") <> "" then if dir() <> "" then msgbox "ファイル名 :【 *.csv* file 】が複数存在しています。" & vbcr & vbcr _ & "フォルダ内から不要なcsvファイルを [削除] して下さい。" exit sub end if ' 1つなら実行する end if