VB.net system.io.file.existsでファイルが検出できない

Question

前提・実現したいこと

VB.net system.io.file.existsでファイルが検出できない

発生している問題・エラーメッセージ

VB.netでタイマーでsystem.io.file.existsを使い監視しファイルがあれば処理をするといったプログラムを作成しています。

If System.IO.File.Exists("A.txt") Then
    '処理  
Else
    
End If

プログラムを起動後に　A.txt　を配置した場合、ファイルが存在するにもかかわらずfalseが返ってきます。

プログラムを起動後に作成されたA.txtの存在を検知するにはどのようよすればよいでしょうか？

ちなみに、プログラムを再起動すると True が返ってきてねらい通りの処理が行えます。

該当のソースコード

If System.IO.File.Exists("A.txt") Then
    '処理  
Else
    
End If

試したこと

System.IO.File.ExistsのかわりにSystem.IO.FileInfoを使っても結果は同じでした。

補足情報（FW/ツールのバージョンなど）

ツールバージョン　Visual Studio Express 2013 for Windows Desktop
フレームワークバージョン　.NET Framework4.5

Comments

[退会済みユーザー]

質問者さん、無言ですが、回答がいくつか出ているのでそれらに対するフィードバックを書こう。役に立った、立たなかったぐらいはすぐ返せるのでは？ 役に立たなかったならどこがダメだったのかを書くとより期待する回答に近いものが出てくるかも。とにかく無言は NG です。

Answer 1

質問に提示してるコードだけでは現象は確認出来ません。

If System.IO.File.Exists("A.txt") Then
    '処理  
Else

ここでどういった処理を行っているかは知りませんが、カレントディレクトリが変更されていたりはしませんか？ファイルを相対パスで指定してるなら、カレントディレクトリ内のファイルを判定する事になります。System.IO.File.ExistsがFalseになっている時のカレントディレクトリを、Directory.GetCurrentDirectory()で確認してみてください。

例えば、下記のようなコードを書くとEXEと同じフォルダにA.txtを置いていてもButton1をクリックした後はFile.Existsの結果はFalseになります。

Imports System.IO

Public Class Form1
    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)

        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Debug.WriteLine($"{Now} {File.Exists("A.txt")}")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Debug.WriteLine("Button1 Clicked")
        '一個上にカレントディレクトリを移動
        Directory.SetCurrentDirectory("..")
    End Sub
End Class

(出力結果)
2021/08/14 11:18:17 True
2021/08/14 11:18:18 True
2021/08/14 11:18:19 True
Button1 Clicked
2021/08/14 11:18:20 False
2021/08/14 11:18:21 False
2021/08/14 11:18:22 False

Comments

[mizu_guchi]

まだ理由まではわかりませんがカレントディレクトリが変わっているようでした。
フルパスを指定するように変更したところ、正常に動作いたしました。
ご回答ありがとうございました。

Answer 2

コードが足りないのでそのタイマーの処理がミスってる可能性が大いにありそうだなぁ、ぐらいの感想だけど、そもそも、そういう事したいならFileSystemWatcher クラスを使った方が良いんじゃないかと思う。

Comments

[Zuishin]

パフォーマンスを考えると、タイマーで逐次チェックするより FileSystemWatcher が良いですね。

[mizu_guchi]

ご回答ありがとうございました。
カレントディレクトリが変更されており、フルパスを指定するを指定することで解決いたしました。
FileSystemWatcherについてご教授頂きありがとうございます。
こちらも検討したいと思います。

Answer 3

その"A.txt"ってのをフルパスで記述してみては。

＃そのファイルってどこにあります？

Comments

[gentaro]

> ちなみに、プログラムを再起動すると True が返ってきてねらい通りの処理が行えます。

と書かれているためパスの問題じゃないでしょう。

[Zuishin]

再起動の方法によってカレントディレクトリが変わるかもしれないので、ないとは言い切れないと思います。

フルパスのハードコーディングだと環境の変化に対応できないのでアンチパターンだと思いますが、A.txt をマイドキュメントなどの特殊フォルダ以下のサブフォルダに置いて Environment.GetSpecialFolder などで特定するか、ダイアログでユーザーにファイルを選択させて Settings などに保存する方法で解決する可能性はありますね。

そもそもタイマー処理がブロックされている可能性もあるので、これだけのコードでは何とも言えませんが。

[mizu_guchi]

ご回答ありがとうございました。
何らかの理由でカレントディレクトリが変更されており、おっしゃるとおりフルパスを指定するすることで解決いたしました。
ありがとうございます。

Answer 4

皆様、ご回答いただきありがとうございました。

ご指摘の通り、プログラム起動後にカレントディレクトリが変更されておりました。

途中で、他のプログラムを実行する処理があり、それを実行するとカレントディレクトリが変わっておりました。

プログラム起動時に　System.IO.Directory.GetCurrentDirectory()　でカレントディレクトリを取得しておき、フルパスを指定することで解決いたしました。

ありがとうございました。

Answer 5

プログラムを起動後に　A.txt　を配置した場合、ファイルが存在するにもかかわらずfalseが返ってきます。

自分の環境（Windows 10, VS2019, .NET Framework 4.7.2 の Windows Forms アプリ）で試した限りではそういうことは無かったです。やり方・調べ方の問題ではないかと思います。

ちなみにどのように試したかと言うと、

(1) 以下の Windows Forms アプリで、実行する exe ファイルのあるフォルダに A.txt ファイルを作成し、それを削除してから Visual Studio からアプリを実行します。

(2) 実行後 TimerStart ボタンをクリックして TimerStart_Click イベントハンドラで Timer を Start します。そうすると 1 秒のインターバルで A.txt ファイルの有無をチェックしますが、ファイルは存在しないので System.IO.File.Exists("A.txt") は false のままとなります。

(3) 上記 (1) で削除した A.txt はゴミ箱にあるので、exe の実行中にそれを元の場所に戻してやります。

(4) そうすると次の Timer.Tick で System.IO.File.Exists("A.txt") は ture になり、Label に以下のように表示されます。

やってみてください。「プログラムを起動後に　A.txt　を配置した場合、ファイルが存在するにもかかわらずfalseが返ってきます」ということはないはずです。

Comments

[mizu_guchi]

ご回答ありがとうございました。
確認したところカレントディレクトリが変更されており、フルパスを指定することで解決いたしました。
ありがとうございました。