filesystemobjectでフォルダ内のファイル一覧を表示すると隠しファイルも拾ってしまう。

Question

指定のフォルダ内のファイルのみを抽出し、フォルダを開きたいのですが、「~$ファイル名.xlsx」というファイルも拾ってしまい、フォルダが開けずエラーになってしまいます。
（タイトルに「隠しファイル」と書きましたが間違えていましたら申し訳ありません。）

以下がそのコードです。（関係有りそうな一部を抜粋しました。）

Set fso = CreateObject("Scripting.filesystemobject")
Set EX = fso.Getfolder(path & "\" & cate & "\" & zyan)
  For Each E In EX.Files
   Writ = E.Name'''''ここで「~$ファイル名.xlsx」を拾ってしまいます。
   Call 書き込み.入力(path & "\" & cate & "\" & zyan & "\", Writ, cate, zyan, path)
  Next E

~$の様な「開けないﾌｧｲﾙ」を拾わない様にするにはどのようにすればよろしいでしょうか。
よろしくお願いします。

Answer 1

こんな感じで読み飛ばす？

If Not E.Attributes And Hidden Then

Comments

[ice930]

If Not E.Attributes And Hidden Then
Call 書き込み.入力(path & "\" & cate & "\" & zyan & "\", Writ, cate, zyan, path)
End If
という形で実行したのですが、すべてのファイルを飛ばす様になってしまいました。
初めて見るコードでしたので調べましたが、「Eが隠しファイルで無い場合」となるので問題ない様に思うのですが・・・。
上記に記載しましたコードから、私が勘違いしている部分が在りましたらご指摘いただけると幸いです。
よろしくお願いします。

[jinoji]

あれ？ If Not (E.Attributes And Hidden) Then かな？
ちょっと自信がないので、
Debug.Print E.Attributes とかして確かめてみてください。

[ice930]

If Not (E.Attributes And Hidden) Thenだと全て通ってしまいました。
そもそも「~$」で始まるファイルは隠しファイルなのでしょうか。
何のファイルなのでしょうか・・・。ちなみにフォルダを開いても表示されません。
心辺り在りましたらよろしくお願いします。

[jinoji]

~$ で始まるファイルは、Excelファイルを開いているときに裏側で一時的に出来る隠しファイルのはず。
あまり難しく考えず、
If Left(Writ, 2) <> "~$" Then
とするのも一手だと思います。

[ice930]

If Left(Writ, 2) <> "~$" Thenで行けました！
「隠しファイル」に拘っていました。
ありがとうございます！！

Answer 2

Excelファイルだけをターゲットにする場合、
以下の判定で回避できます。

If Left(E.Name, 2) <> "~$" Then
   '処理を行う
End If

＜追記＞
jinojiさんのコメントと被ってしまいました。

Comments

[ice930]

ご回答ありがとうございました！