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。你好DanL

Vbscript删除多个文件不起作用

1 个答案: