VBAでFileSystemObjectオブジェクトで不明アドレスが出てくる

Question

FileSystemObjectオブジェクトでフォルダ内ファイルを全て巡回するfor文で
不明なファイルが出てきます。ファイルが開かない実行時エラー1004が出るので
debug.printしてみると所在のないファイルが書かれていました。

Sub 不明なアドレス()

    Dim folderPath As Variant
    Dim obj As Object
    
    
    
    folderPath = "C:\Users\Masas\ドキュメント-ローカル\folder"
   
    With CreateObject("Scripting.FileSystemObject")

       For Each obj In .getfolder(folderPath).Files    
            Debug.Print (obj)
       Next obj

    End With
    
End Sub

結果

C:\Users\Masas\ドキュメント-ローカル\folder\~$file1.xlsx
C:\Users\Masas\ドキュメント-ローカル\folder\file1.xlsx
C:\Users\Masas\ドキュメント-ローカル\folder\file2.xlsx
C:\Users\Masas\ドキュメント-ローカル\folder\file3.xlsx
以下略

最初のファイルは所在しないのに開こうとしてエラーとなります。

なにか手掛かりがありましたら宜しくお願いします。

Answer 1

最初のファイルは所在しないのに開こうとしてエラーとなります。

Filesでリストアップされたと言うことは、存在していると言うことです。

おそらくあなたがExplorerのフォルダーオプションの設定で、「隠しファイル、隠しフォルダ、または隠しドライブを表示しない」というデフォルト設定のままにしているから、Explorerに表示されてないのでしょう。

各種設定をプログラマー向けに変更しましょう。

Comments

[otn]

ファイル名で判断して除外するか、隠し属性をチェックするかですね。

[hokosugi]

ご回答ありがとうございます。
エクスプローラーで隠しファイルにチェックを入れましたが表示されず、やむなく正規表現で
スキップしました。当座は凌げそうですが他のコードも追加していくのは面倒なので隠しファイルを
表示できるように今から調べます。
ありがとうございました。

[YT0014]

「保護されたオペレーティングシステムファイルを表示しない(推奨)」のチェックを外してみてください。
件のファイルは、そちらの扱いです。

Answer 2

~$file1.xlsxは、file1.xlsxを開いている最中にのみ発生する、ワークファイルです。
実際のプログラムでは、xlsxファイルを開いて利用されていると思いますので、タイミング次第では、件のファイルが一覧に取得されることがあるでしょう。

ファイル名の先頭が「~$」に固定されていますので、ファイル名で判定を行って、開かないようにすれば良いのではないでしょうか。

Comments

[hokosugi]

ご回答ありがとうございます。
回答の通り正規表現でスキップしましたが、他にも隠しファイルがあるかもしれずイチイチコードに追加するのもなんですので根本的に解決したかったのですが、当座は凌げそうです。
ありがとうございました。