For Each file As ListViewItem In ListView1.Items
Dim filePath As String = file.SubItems(0).Text + "\" + file.Text
You take each filename and append it a path separator plus the filename again. This leads to an inexistent file.
Put a breakpoint on the
For Each
line, press F5, and start a debug session. Watch carefully for the value of the
filePath
variable and you will understand the issue.