📄 vbs454.htm
字号:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>Attributes Property</TITLE>
<META NAME="CATEGORY" CONTENT="Language Reference">
<META NAME="MS.LOCALE" CONTENT="EN-US">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="Keywords" CONTENT="Attributes">
<META NAME="Description" CONTENT="Attributes Property">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<FONT FACE="Verdana, Arial, Helvetica" SIZE=2>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
<FONT SIZE=1 COLOR=#660033>Microsoft® Visual Basic® Scripting Edition</FONT><BR>
<FONT SIZE=5 COLOR=#660033><B>Attributes Property</B></FONT></TD>
<TD ALIGN=RIGHT>
<FONT SIZE=2> <A HREF="vbstoc.htm">Language Reference</A> <BR>
<A HREF="vbs16.htm">Version 3</A> <P></FONT>
</TD></TR>
</TABLE>
<FONT SIZE=2><p>
<A HREF="vbs456.htm">See Also</A> <A HREF="vbs455.htm">Applies To</A></FONT>
<HR noshade SIZE=1>
<H5>Description</H5>
<BLOCKQUOTE>Sets or returns the attributes of files or folders. Read/write or read-only, depending on the attribute.</BLOCKQUOTE>
<H5>Syntax</H5>
<BLOCKQUOTE><i>object</i>.<b>Attributes</b> [= <i>newattributes</i>]
<p>The <b>Attributes</b> property has these parts:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE=2><b>Part</b></FONT></TD>
<TD><FONT SIZE=2><b>Description</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE=2><i>object</i></FONT></TD>
<TD><FONT SIZE=2>Required. Always the name of a <b>File</b> or <b>Folder</b> object.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE=2><i>newattributes</i></FONT></TD>
<TD><FONT SIZE=2>Optional. If provided, <i>newattributes</i> is the new value for the attributes of the specified <i>object</i>.</FONT></TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>Settings</H5>
<BLOCKQUOTE>
The <i>newattributes</i> argument can have any of the following values or any logical combination of the following values:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD WIDTH=15%><FONT SIZE=2><b>Constant</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2><b>Value</b></FONT></TD>
<TD WIDTH="*"><FONT SIZE=2><b>Description</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Normal</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>0</FONT></TD>
<TD WIDTH= "*"><FONT SIZE=2>Normal file. No attributes are set.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>ReadOnly</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>1</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Read-only file. Attribute is read/write.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Hidden</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>2</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Hidden file. Attribute is read/write.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>System</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>4</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>System file. Attribute is read/write.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Volume</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>8</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Disk drive volume label. Attribute is read-only.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Directory</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>16</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Folder or directory. Attribute is read-only.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Archive</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>32</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>File has changed since last backup. Attribute is read/write.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Alias</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>64</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Link or shortcut. Attribute is read-only.</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE=2><B>Compressed</B></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE=2>128</FONT></TD>
<TD WIDTH="*"><FONT SIZE=2>Compressed file. Attribute is read-only.</FONT></TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>Remarks</H5>
<BLOCKQUOTE>
The following code illustrates the use of the <b>Attributes</b> property with a file:
<BLOCKQUOTE><pre><font face="Courier New" size=3>Sub SetClearArchiveBit(filespec)
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
If <font color="#FF0000">f.attributes</font> and 32 Then
r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
<font color="#FF0000">f.attributes</font> = <font color="#FF0000">f.attributes</font> - 32
MsgBox "Archive bit is cleared."
Else
MsgBox "Archive bit remains set."
End If
Else
r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
<font color="#FF0000">f.attributes</font> = <font color="#FF0000">f.attributes</font> + 32
MsgBox "Archive bit is set."
Else
MsgBox "Archive bit remains clear."
End If
End If
End Sub</font></pre></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>
<FONT SIZE=2>
<p align=center><em><a href="../../common/colegal.htm">© 1997 by Microsoft Corporation. All rights reserved.</a></em></p>
</FONT></FONT></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -