单项选择题

有如下程序:
Sub Filelnfo(file1)
Dim f1,f,s
Set f1=CreateObject("Scripting.FileSystemObject")
Set f=f1.GetFile(file1)
s=f.DateCreated
MsgBox s
End Sub
这个子程序的作用是

A.创建一个新文件file1
B.在消息对话框中显示文件file1的内容
C.在消息对话框中显示文件的所有信息
D.在消息对话框中显示文件的创建日期