指定したディレクトリから、特定の拡張子を持つファイルを一括して削除する | |
' rDir ディレクトリ ' Ty 拡張子 Private sub DelAll( rDir as string, Ty as string) Try For Each FileName As String In System.IO.Directory.GetFiles(rDir, "*." & Ty) My.Computer.FileSystem.DeleteFile(FileName, FileIO.UIOption.OnlyErrorDialogs, _ FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing) Next Catch ex As Exception End Try End Sub 削除オプションに関してはMSDNをご覧ください。 |
コメント