работа с датой создания файла

[Hugo121]

vbs должен быть таким

Dim res

On Error Resume Next: Err.Clear

folder = "c:\test00\"

With CreateObject("Scripting.FileSystemObject")

    res = .GetFile(folder & "1.txt").DateLastModified < .GetFile(folder & "4.txt").DateLastModified
    If Err = 0 Then

        .createfolder ("c:\test01\")

        If res Then
            ' если 1.txt создан раньше чем 4.txt
            .CopyFile folder & "1.txt", "c:\test01\IN.txt"    ' создаем файл
        Else
            ' если 4.txt создан раньше чем 1.txt
            .CopyFile folder & "1.txt", "c:\test01\OUT.txt"    ' создаем файл
        End If

        .DeleteFile (folder & "*")   ' удаляем все файлы из папки

    End If
End With

Никаких типов и субов.
Вернее суб может быть - но тогда его нужно вызвать извне:

mySub
sub mySub()
'///
end sub