Admin at 21:28, 15 June 2015

2015-06-15T21:28:35Z

Admin: Created page with "= Action = Sets the file Attribute. =
2015-06-15T21:28:12Z

Created page with "= Action = Sets the file Attribute. = Action =

Sets the file Attribute.

 

 

= Syntax =

SETATTR [sFile ,]  bFileAttribute

 

 

= Remarks =
<div style="font-size: 13.3333330154419px; padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 150px; border: 1px solid rgb(0, 0, 0);" |
sFile

| valign="top" width="56%" style="width: 450px; border: 1px solid rgb(0, 0, 0);" |
The name of the file (no wildcard) which attribute need to be set.

You may also omit the name in which case the file will be used previous found by the DIR() function.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 150px; border: 1px solid rgb(0, 0, 0);" |
bFileAttribute

| valign="top" width="56%" style="width: 450px; border: 1px solid rgb(0, 0, 0);" |
Numeric variable holding the attribute bits to set.

|}
</div>
 

This statement sets the DOS file attributes. A file can have multiple attributes.

You should not use attributes 8(Volume) and 16(Sub Directory) on a normal file.

 

 
<div style="font-size: 13.3333330154419px; padding: 0px; margin: 0px 0px 0px 4px;">
{| width="214" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="59%" bgcolor="#ffff99" style="width: 122px; border: 1px solid rgb(0, 0, 0); background-color: rgb(255, 255, 153);" |
Return value

| valign="top" width="68%" bgcolor="#ffff99" style="width: 83px; border: 1px solid rgb(0, 0, 0); background-color: rgb(255, 255, 153);" |
DOS Attribute

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
1

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
Read Only

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
2

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
Hidden

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
4

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
System File

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
8

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
Volume Label

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
16

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
Sub Directory

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
32

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
Archive

|- style="vertical-align: top;"
| valign="top" width="59%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
64,128

| valign="top" width="68%" style="width: 83px; border: 1px solid rgb(0, 0, 0);" |
reserved

|}
</div>
 

A file can have multiple bits set like 3 (hidden + read only). So you can combine multiple bits to set multiple bits at once.

 

When you specify the filename, make sure it does not have a wildcard. SETATTR does not support wildcards.

When you omit the filename, the last found file from DIR() will be used for the operation.

 

In VB, SETATTR expect a new value for the attribute which replaces the old attribute byte.

In AVR-DOS you specify the bits to set. So old attributes are kept.

In AVR-DOS you can also reset the individual bits using the CLEARATTR statement.

= See also =

[[INITFILESYSTEM]] , [[OPEN]] , [[CLOSE]], [[FLUSH]] , [[PRINT]], [[LINE INPUT]], [[LOC]], [[LOF]] , [[EOF]] , [[FREEFILE]] , [[FILEATTR]] , [[SEEK]] , [[BSAVE]] ,[[BLOAD]] , [[KILL]] , [[DISKFREE]] , [[DISKSIZE]] , [[PUT]] , [[FILEDATE]] , [[FILETIME]] , [[FILEDATETIME]] , [[DIR]] , [[FILELEN]] , [[WRITE]] , [[INPUT]]

= Example =

<source lang="bascomavr">

'------------------------------------------------------------------------------
' simulate-AVR-DOS.bas
' simulate AVR-DOS using virtual XRAM drive
'
'------------------------------------------------------------------------------
$regfile = "M128def.dat"
$crystal = 16000000
' Adjust HW Stack, Soft-Stack and Frame size to 128 minimum each!!!
$hwstack=128 : $swstack=128 : $framesize=128
$xramsize = &H10000 'specify 64KB of XRAM for the file system
$sim 'for simulation only !
$baud = 19200

Config Clock = Soft
Enable Interrupts
Config Date = Mdy , Separator = dot

Dim Btemp1 As Byte ,battr1 as Byte, battr2 as Byte
$include "Config_XRAMDrive.bas" ' Does drive init too
$include "Config_AVR-DOS.BAS"

Print "Wait for Drive"
If Gbdriveerror = 0 Then
Print "Init File System ... ";
Btemp1 = Initfilesystem(1) ' Partition 1
' use 0 for drive without Master boot record
If Btemp1 <> 0 Then
Print "Error: " ; Btemp1 ; " at Init file system"
Else
Print " OK"
Print "Filesystem: " ; Gbfilesystem
Print "FAT Start Sector: " ; Glfatfirstsector
Print "Root Start Sector: " ; Glrootfirstsector
Print "Data First Sector: " ; Gldatafirstsector
Print "Max. Cluster Nummber: " ; Glmaxclusternumber
Print "Sectors per Cluster: " ; Gbsectorspercluster
Print "Root Entries: " ; Gwrootentries
Print "Sectors per FAT: " ; Glsectorsperfat
Print "Number of FATs: " ; Gbnumberoffats
End If
Else
Print "Error during Drive Init: " ; Gbdriveerror
End If

Dim strDummy as String * 12
Dim Datei As String * 12 , Attribut As Byte
Datei = "Test1.txt"

Open Datei For Output As #11
Print #11 , "Testzeile1"
Close #11

open "Test2.txt" For output as #11
Print #11, "Testzeile2"
close #11

open "Test3.txt" for output as #11
Print #11, "Testzeile3"
close #11

' Set readonly Bit in Test1.txt
Attribut = &B00000001
Setattr Datei , Attribut

' Reset Archib-Bit in test1.txt
Attribut = &B00100000
clearattr Datei , Attribut

' Check for Filename with wildcard, which is not supported
' Set readonly Bit in Test1.txt
Datei = "Test.txt"
Attribut = &B00000001
Setattr Datei , Attribut
Print gbDOSError

Datei = DIR("Test.txt")
Attribut = &B00000001
while Datei > ""
SetAttr Attribut
Datei = DIR()
wend

Datei = DIR("Test*.txt")
Attribut = &B00100000
While Datei > ""
battr1=Getattr()
clearattr Attribut
battr2=Getattr()
print datei ;" "; battr1;" " ; battr2
Datei = DIR()
wend

End
</source>

{{Languages}}

[[Category:Pages with broken file links]] [[Category:BASCOM Language Reference]]

← Older revision		Revision as of 21:28, 15 June 2015
Line 231:		Line 231:
	{{Languages}}		{{Languages}}

−	~~[[Category:Pages with broken file links]]<br/>~~[[Category:BASCOM Language Reference]]	+	[[Category:BASCOM Language Reference]]