dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\sourcefolder\anyfile.html") Then
   filesys.MoveFile "c:\sourcefolder\anyfile.html", "c:\destfolder\"
End If
 

Private Function FileDateTime(byVal pathname)
    Dim objFSO, objFile
    On Error Resume Next
    Set objFSO    = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile    = objFSO.GetFile(pathname)
    If Err Then
        FileDateTime    = Null
    Else
        FileDateTime    = CDate( objFile.DateLastModified )
    End If
    Set objFile    = Nothing
    Set objFSO    = Nothing
    On Error GoTo 0
End Function
 
or 
 
'http://www.devguru.com/technologies/vbscript/quickref/file.html
Dim filesys, fileinfo, createdate
Set filesys = CreateObject("Scripting.FileSystemObject")
Set fileinfo = filesys.GetFile(filename)
createdate = fileinfo.DateCreated