FileAttr Function
āĻāĻĒā§āĻ¨ āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻā§āĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§ āĻā§āĻ˛āĻž āĻāĻāĻāĻŋ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻĒā§āĻ°ā§ā§āĻāĻ¨ āĻŽā§āĻĄ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāĻ˛ āĻĒā§āĻ°ā§ā§āĻ āĻā§āĻ°āĻŽ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻĢāĻžāĻāĻ˛ āĻĒā§āĻ°ā§ā§āĻ āĻā§āĻ°āĻŽāĻāĻŋ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽā§āĻ° āĻāĻĒāĻ° āĻ¨āĻŋāĻ°ā§āĻāĻ°āĻļā§āĻ˛ (OSH = Operating System Handle)āĨ¤
āĻāĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ ā§Šā§¨ āĻŦāĻŋāĻ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§āĻļ āĻā§āĻ°āĻŽ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻ¤ā§ FileAttr āĻĢāĻžāĻāĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°āĻŦā§āĻ¨ āĻ¨āĻžāĨ¤
āĻāĻ°āĻ āĻĻā§āĻā§āĻ¨: āĻā§āĻ˛ā§āĻ¨
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
FileAttr (FileNumber As Integer, Attribute As Integer)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
Integer
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
FileNumber: āĻĢāĻžāĻāĻ˛ā§āĻ° āĻā§āĻ°āĻŽ āĻ¯āĻž āĻāĻāĻāĻŋ āĻā§āĻ˛āĻž āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻā§āĻ° āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ā§ āĻā§āĻ˛āĻž āĻšā§ā§āĻāĻŋāĻ˛āĨ¤
āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯: āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¤āĻĨā§āĻ¯ āĻ¸āĻŽā§āĻĒāĻ°ā§āĻāĻŋāĻ¤ āĻāĻžāĻāĻĒ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻāĻĒāĻ¨āĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤ āĻ¸āĻŽā§āĻāĻžāĻŦā§āĻ¯ āĻŽāĻžāĻ¨āĻ¸āĻŽā§āĻš āĻ¨āĻŋāĻā§ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°āĻž āĻšāĻ˛ā§:
1: FileAttr-āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻāĻāĻāĻŋ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¤āĻĨā§āĻ¯ āĻ¨āĻŋāĻŦā§āĻļā§āĻ° āĻŽā§āĻĄ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļ āĻāĻ°ā§āĨ¤
2: FileAttr-āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽā§āĻ° āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§āĻļ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻāĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ āĻŽāĻžāĻ¨ ā§§ āĻ¸āĻšāĻāĻžāĻ°ā§ āĻāĻāĻāĻŋ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°ā§āĻ° āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°ā§āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§ āĻ¨āĻŋāĻā§āĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨ āĻĒā§āĻ°ā§ā§āĻ āĻšā§:
1 - INPUT (āĻāĻ¨āĻĒā§āĻā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻā§āĻ˛āĻž)
2 - OUTPUT (āĻāĻāĻāĻĒā§āĻā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻā§āĻ˛āĻž)
4 - RANDOM (āĻ°âā§āĻ¯āĻžāĻ¨ā§āĻĄāĻŽ āĻĒā§āĻ°ā§ā§āĻā§āĻ° āĻāĻ¨ā§āĻ¯ āĻĢāĻžāĻāĻ˛ āĻāĻ¨ā§āĻŽā§āĻā§āĻ¤)
8 - APPEND (āĻĒāĻ°āĻŋāĻļā§āĻˇā§ āĻ¯ā§āĻ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻā§āĻ˛āĻž)
32 - BINARY (āĻŦāĻžāĻāĻ¨āĻžāĻ°ā§ āĻŽā§āĻĄā§ āĻĢāĻžāĻāĻ˛āĻāĻŋ āĻā§āĻ˛āĻž)āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
Sub ExampleFileAttr
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "This is a line of text"
MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"
MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"
Close #iNumber
End Sub