单项选择题

有如下程序: 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.在消息对话框中显示文件的创建日期