Vbscript刪除多個文件不起作用

Question

我需要在2個不同的文件夾中創建2個txt文件。然後我需要刪除這兩個文件，但該腳本只會刪除第一個文件夾中的第一個文件。

有我的VBScript代碼

strFile = "\timestamp.txt" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 


       Set objFile = objFSO.CreateTextFile(source & strFile) 
       Set objFile = objFSO.CreateTextFile(destination & strFile) 

       Set src = objFSO.GetFolder(source) 
       Set dst = objFSO.GetFolder(destination) 

       for each f in src.Files 
        On Error Resume Next 
         name = f.name 
         If name = "timestamp.txt" Then 
          f.Delete True 
         End If 
        On Error GoTo 0 
       Next 
       for each f in dst.Files 
        On Error Resume Next 
         name = f.name 
         If name = "timestamp.txt" Then 
          f.Delete True 
         End If 
        On Error GoTo 0 
       Next 

Answer 1

我解決這個問題。我需要在創建文件後關閉objFile。 Thx you DanL