GetAttr Beskrivelse
Returnerer et heltall som representerer attributtene til en fil, mappe eller katalog.
Enkle GetAttr -eksempler
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Dette vil returnere et helt tall i henhold til innstillingene for filen/mappen/stasjonen.
Hvis banenavnet ikke eksisterer, vil det oppstå en kjøretidsfeil '53': Filen ble ikke funnet.
GetAttr -syntaks
I VBA Editor kan du skrive "GetAttr (" for å se syntaksen for GetAttr -funksjonen:
GetAttr -funksjonen inneholder et argument:
Banenavn: Et strenguttrykk som representerer en fil/mappe/stasjon.
Returner verdier
Verdien returnert avGetAttr er summen av følgende attributtverdier:
Konstant | Verdi | Beskrivelse |
---|---|---|
vbNormal | 0 | Vanlig. |
vbReadOnly | 1 | Skrivebeskyttet. |
vbHidden | 2 | Skjult. |
vbSystem | 4 | Systemfil. Ikke tilgjengelig på Macintosh. |
vbDirectory | 16 | Katalog eller mappe. |
vbArkiv | 32 | Filen er endret siden siste sikkerhetskopiering. Ikke tilgjengelig på Macintosh. |
vbAlias | 64 | Spesifisert filnavn er et alias. Bare tilgjengelig på Macintosh. |
Eksempler på Excel VBA GetAttr -funksjon
1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
1 | MsgBox GetAttr ("C: \") |
Mens du tester med forskjellige mapper/filer/stasjoner, vil den returnere forskjellige tall som 1, 2, 5, 22 og så videre.
For eksempel, i tilfelle 22 betyr det vbDirectory (16) + vbSystem (4) + vbHidden (2).
For å få attributtinnstillingene som tilsvarer hvert nummer, kan du bruke følgende funksjon.
12345678910111213 | Funksjon GetAttributeSettings (attr As VbFileAttribute) As StringDim strSettings As StringstrSettings = ""If (attr And vbDirectory) = vbDirectory Then strSettings = strSettings & "& Directory"If (attr And vbVolume) = vbVolume Then strSettings = strSettings & "& Volumn"If (attr And vbAlias) = vbAlias Then strSettings = strSettings & "& Alias"If (attr And vbArchive) = vbArchive Then strSettings = strSettings & "& Archive"If (attr And vbHidden) = vbHidden Then strSettings = strSettings & "& Hidden"If (attr And vbReadOnly) = vbReadOnly Then strSettings = strSettings & "& ReadOnly"If (attr And vbSystem) = vbSystem Then strSettings = strSettings & "& System"GetAttributeSettings = Midt (strSettings, 2)Sluttfunksjon |
1 | MsgBox GetAttributeSettings (22) |
Resultat: "Katalog og skjult og system"