【单选题】

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