Microsoft® Visual Basic® Scripting Edition Name ŒÙÐÔ |
ÕZÑÔ…¢¿¼ °æ±¾ 3 |
ÔOÖûò·µ»ØÖ¸¶¨µÄÎļþ»òÎļþŠAµÄÃû·Q¡£¿É×xŒ‘¡£
object.Name [= newname]Name ŒÙÐÔµÄÕZ·¨ÓÐÒÔϲ¿·Ö£º
²¿·Ö ÃèÊö object ±Øßx¡£‘ªžé File »ò Folder Œ¦ÏóµÄÃû·Q¡£ newname ¿Éßx¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„tÖ¸¶¨µÄ object Ãû·Q¸üОé newname¡£
ÒÔÏ´ú´aÅeÀýÕfÃ÷ÈçºÎʹÓà Name ŒÙÐÔ£ºSub ShowFileAccessInfo(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s = f.Name & " λÓÚòŒ(q¨±)„ÓÆ÷ " & UCase(f.Drive) & vbCrLf s = s & "„“(chu¨¤ng)½¨•rég£º " & f.DateCreated & vbCrLf s = s & "ÉÏ´ÎÔL†–•rég£º " & f.DateLastAccessed & vbCrLf s = s & "ÉÏ´ÎÐ޸ĕrég£º " & f.DateLastModified MsgBox s, 0, "ÎļþÔL†–ÐÅÏ¢" End Sub