本帖最后由 pcl_test 于 2016-7-15 23:00 编辑
- fd = "D:\指定文件夹"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set file = fso.OpenTextFile("ls.txt", 1)
- Do While file.AtEndOfStream <> true
- i=i+1
- f = file.ReadLine
- If i = 2 Then Exit Do
- Loop
- msgbox "要删除的文件为 "&fd&"\"&f '测试无误自行屏蔽该行
- If fso.FileExists(fd&"\"&f) Then fso.DeleteFile fd&"\"&f
复制代码
|