欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Microsoft® Visual Basic® Scripting Edition
Name ŒÙÐÔ
 ÕZÑÔ…¢¿¼  
°æ±¾ 3  

Õˆ…¢é†                   ‘ªÓÃÓÚ


ÃèÊö
ÔOÖûò·µ»ØÖ¸¶¨µÄÎļþ»òÎļþŠAµÄÃû·Q¡£¿É×xŒ‘¡£
ÕZ·¨
object.Name [= newname]

Name ŒÙÐÔµÄÕZ·¨ÓÐÒÔϲ¿·Ö£º

²¿·Ö ÃèÊö
object ±Øßx¡£‘ªžé File »ò Folder Œ¦ÏóµÄÃû·Q¡£
newname ¿Éßx¡£Èç¹ûÌṩ´Ë…¢”µ(sh¨´)£¬„tÖ¸¶¨µÄ object Ãû·Q¸üОé newname¡£

ÕfÃ÷
ÒÔÏ´ú´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