ファイル一括削除時にエラーが出る。

Question

###前提・実現したいこと
vb.netにて対象のUSB(Mドライブ)内のファイルを全て削除する処理の実装を考えております。
実装後、テストをしている段階で削除できるものとエラーが出るデバイスがあり困っております。

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

"パス 'M:\FileInfo2.dat' へのアクセスが拒否されました。"
上記の文面のエラーが出るのですが、実際のデバイスには該当のファイルが存在しません。(隠しファイルでもなかった。)

###該当のソースコード

Directory.EnumerateFiles("M:\").ToList().ForEach(AddressOf File.Delete)

###試したこと
Try CatchでSystem.UnauthorizedAccessException例外を無視も考えましたが、その場合その他ファイルも削除されず当方の理想としている処理が行えません。
可能であれば一行、ループをまわさずアクセス許可されたもののみ削除できたらと考えております。

###補足情報(言語/FW/ツール等のバージョンなど)
.net4.0 VB14

Answer 1

対症療法的な記述になってしまうので、個人的にも「とりあえず例外をcatchして無視」というのは好きではないですが、

Try
    Directory.EnumerateFiles("M:\").ToList().ForEach(AddressOf File.Delete)
Catch (e As UnauthorizedAccessException)
End Try

ではなく

For Each file In Directory.EnumerateFiles("M:\")
    Try
        File.Delete(file)
    Catch (e As UnauthorizedAccessException) : End Try
Next

とすれば動かすだけなら大丈夫だと思います。
コードを拝見すると、M:ルート直下のファイルだけを削除、という感じですかね？

もしもドライブのファイルをすべて削除するのが目的なら、クイックフォーマットの方が素早く確実かな、という気もします。
C#でディスクフォーマット - TUYSラボ

参考URLはC#なのでVB.NETとして読み直すとこんな感じでしょうか。

<DllImport("fmifs.dll", CharSet:=CharSet.Auto, EntryPoint:="FormatEx")>
Private Shared Sub FormatEx(
    driveLetter As String, mediaFlag As Integer,
    fsType As String, label As String, quickFormat As Integer,
    clusterSize As Integer, callBackDelegate As FormatCallBackDelegate)
End Sub

Private Delegate Function FormatCallBackDelegate(
    callBackCommand As CallbackCommand,
    subActionCommand As Integer, action As IntPtr) As Integer

Private Enum CallbackCommand
     PROGRESS
     DONEWITHSTRUCTURE
     UNKNOWN2
     UNKNOWN3
     UNKNOWN4
     UNKNOWN5
     INSUFFICIENTRIGHTS
     UNKNOWN7
     DISKLOCKEDFORACCESS 'UNKNOWN8
     UNKNOWN9
     UNKNOWNA
     DONE
     UNKNOWNC
     UNKNOWND
     OUTPUT
     STRUCTUREPROGRESS
End Enum

Comments

[yuki00079]

返信ありがとうございます。エラーの原因が判明し、Directory.EnumerateFilesの際に隠しファイル、またはシステムファイルをリスト化し削除しようとしたのが原因のようです。いただいた回答で実装できましたがせっかくなのでLinqにての実装を目指しているのですがうまく実装できません。Linqでの実装パターンはどのようなものがございますでしょうか。

[htsign]

.ForEach(AddressOf File.Delete)
の箇所を
.ForEach(Sub(f)
Try
File.Delete(f)
Catch (e As UnauthorizedAccessException) : End Try
End Sub)
とすることでLinqとなります。
ただ、インデントが深くなって見づらくなると思いますよ。

[yuki00079]

現在下記のコードでトライしているのですが実装にはいたっておりません。
Directory.EnumerateFiles("M:\").
Where(Function(f) 'Notファイル属性が隠しまたはシステムファイル).ToList().ForEach(AddressOf File.Delete)
↑これだとtry Catchを消せそうなのですが。

[htsign]

そうですね。
仰る通り、例外となるパターンを事前に排除すれば簡潔に書ける可能性があります。
その代わりWhereに渡す Func(Of String, Boolean) がやたら長くなるかもしれません（＾＾；

[yuki00079]

特定のファイル属性を無視することで解決いたしました。
ご助言いただきありがとうございます。