VBScript - Удалить содержимое папки и поместить файл

Question

Любая помощь будет оценена. Я хотел бы удалить содержимое папки и поместить файл на основе критериев (Set Name и date date - today). Я попытался собрать что-то вместе ... но даже я вижу, что логика становится скорчивой, когда я преследую свой собственный хвост. Любая помощь будет оценена по достоинству.

Answer 1

У вас есть несколько вопросов здесь и там. Попробуйте ниже (непроверено) и понимайте его течение:

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