你的問題
1.不會開 txt 檔
2.不會重覆執行
3.不會刪檔
4.不會結束
可以明確指出嗎?
http://blog.xuite.net/hwtang/notes/23618734
https://tw.answers.yahoo.com/question/index?qid=20100705000015KK09370

不好意思表達不清楚，我要用一個檔案清單txt檔，利用迴圈去讀取每一行的檔案位置，在從硬碟中尋找，並刪除，一直到最後一個要刪的檔案刪除結束；如果檔案清單是空的則不用尋找刪除

瞭解了，

您會卡住的重要點我已經 在 #1 找給你了。
如何開文字檔、如何刪除檔案。

請你自己先依樣作一下，按1 2 3 4 來作

有問題再將您的程式PO出來，由我們協助。
要走資訊這條路，沒有捷徑。要會 GOOGLE

這題是簡單的 直接給你 範例是在害你。

執行後發現沒有刪除檔案
D.txt
"D:/HYMN/music/1.exe"and"D:/HYMN/music/25.exe"and"D:/HYMN/music/311.exe"
Dim content As String = My.Computer.FileSystem.ReadAllText("D:\HYMN\D.txt") If My.Computer.FileSystem.FileExists(content) Then My.Computer.FileSystem.DeleteFile(content) Else End If

1.動作對了 (否則就讀不進來了)
2. 重覆沒有作
3. 硬碟中沒沒有 D.txt 內的檔名所以不會刪成功
"D:/HYMN/music/1.exe"and"D:/HYMN/music/25.exe"and"D:/HYMN/music/311.exe"
您 D.txt 用記事本打開要如下
D:/HYMN/music/1.exe
D:/HYMN/music/25.exe
D:/HYMN/music/311.exe
---------------------------------------
動作要改成
1.讀 D.txt
2.分割檔案 (用Split 函數)
3.重覆刪檔的動作 用 for each 指令
My.Computer.FileSystem.DeleteFile(content)