VBScript--删除文件夹内容并放置文件

任何帮助都将不胜感激。我想删除文件夹的内容，并根据条件（设置名称和可变日期——今天）放置文件。我试着拼凑一些东西……但就连我也发现，当我追逐自己的尾巴时，逻辑也变得扭曲了。任何帮助都将不胜感激

Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set folder = FSO1.GetFolder("C:Docs\Template")

for each f in folder.files
On Error Resume Next
name = f.name
f.Delete True
On error GoTo 0
Next

MyDate = Replace(Date,"/","-")
Const src = "C:\Docs\Blah"
Const dst = "C:\Docs\Template"
Set FSO = CreateObject("Scripting.FileSystemObject")

For each f In FSO.GetFolder(src).Files
If FSO.GetFileName(f.name) = "Bluhdeblah_" & Mydate & ".xlsm"
Then FSO.CopyFile src, "C:\Docs\Template", True

End If

Set FSO = Nothing
Set FSO1 = Nothing

---

你有一些问题。尝试以下内容（未经测试）并了解其流程：

Const src = "C:\Docs\Blah\" ' Note "\" is added here
Const dst = "C:\Docs\Template\"
UpdateFolder

Sub UpdateFolder()
    Dim oFSO, oFile, sFile
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    ' Delete Existing Files
    On Error Resume Next
    For Each oFile In oFSO.GetFolder(dst).Files
        oFile.Delete
    Next
    On Error GoTo 0
    ' Copy updated file if found in src to dst
    sFile = src & "Bluhdeblah_" & Format(Date, "dd-mm-yy") & ".xlsm"
    If oFSO.FileExists(sFile) Then oFSO.copyfile sFile, dst, True
    Set oFSO = Nothing
End Sub

---

上半场打得很好！下半场，没有那么多。请注意，包含今天日期的文件也是最近修改的，这会有帮助吗？非常感谢你的帮助！可以添加一行

Wscript.Echo“sFile:&sFile

，就在sFile被分配的下面，并比较输出是您拥有的文件吗？我有一种预感，日期格式（D/M/YYYY与M/D/YYYY）不同，因此找不到文件。实际的日期字段是mm/dd/yy，我认为这是问题所在。我已更新代码以使用

格式（）

。更改为您正在使用的任何格式，然后再试一次。