![[单项选择题] 有如下程序： Sub Filelnfo(file1)Dim f1,{f,sSet f1＝CreateObject("Scripting.FileSystemObject&q](http://www.mshxw.com/aiimages/31/256037.png "[单项选择题] 有如下程序： Sub Filelnfo(file1)Dim f1,{f,sSet f1＝CreateObject(\"Scripting.FileSystemObject&q")
[单项选择题] 有如下程序： Sub Filelnfo(file1)Dim f1,{f,sSet f1＝CreateObject("scripting.FileSystemObject")Set f＝f1.GetFile(file1)s＝f.DateCreatedMsgBox s End Sub 这个子程序的作用是
A．创建一个新文件file1
B．在消息对话框中显示文件file1的内容
C．在消息对话框中显示文件的所有信息
D．在消息对话框中显示文件的创建日期
参考答案：
D问题解析:
本题主要考查了Cre ateObject(创建对象)、GetFile(获取文件)、 DateCreated(创建日期)和消息对话框Msg Box四个函数。题中执行语句s＝f.DateCre ated后，s就保存了文件{的创建日期。最后执行语句MsgBox s在消息对话框中显示文件的创建日期。
