|
È¡µÃµµ°¸ÈÕÆÚÏà¹ØÊôÐÔ
Function FileDate(filespec, datetype)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
Select Case datetype
Case 1: FileDate = f.DateCreated µµ°¸½¨Á¢ÈÕÆÚ
Case 2: FileDate = f.DateLastAccessed ´æÈ¡ÈÕÆÚ
Case 3: FileDate = f.DateLastModified ÐÞ¸ÄÈÕÆÚ
End Select
End Function
ʹÓ÷¶Àý --ÔÚ¹¤×÷ÊäÈë =FILEDATE("d:\temp\1115p.zip",2)µÃµ½Ö¸¶¨µµ°¸µÄ×îáá´æȡʱ¼ä, ´úÂë¿ÉÈÝÐí 1, 2, 3ʹÓøú¯ÊýµÄ´¢´æ¸ñÒªÉè³ÉÈÕÆÚʱ¼ä¸ñʽ.
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ
|
|
|
|
