I've created a file to which copy all files which is older than certain dates from FromPath to ToPath.but its working.can any one help me out in this code

Sub Copy_Files_Dates()

Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileInFromFolder As Object

FromPath = "C:\Temp\New folder" '<< Change
ToPath = "C:\Temp\Test\" '<< Change

FileExt = "*.pptx*"

If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If

If Right(ToPath, 1) <> "\" Then
ToPath = ToPath & "\"
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If

For Each FileInFromFolder In FSO.getfolder(FromPath).Files
Fdate = Int(FileInFromFolder.DateLastModified)
If Fdate >= Date - 30 Then
FileInFromFolder.Copy ToPath
End If
Next FileInFromFolder
MsgBox "You can find the files from " & FromPath & " in " & ToPath
End Sub