---

Hejsa...

Jeg har lavet et asp-script der lister foldere op fra min harddisk.
Det fungerer ganske fint - men nu vil jeg gerne have at de foldere som har
attributen 'hidden' ikke skal vises.
Det kan jeg ikke umiddelbart få den til.

Jeg har læst mig frem til at jeg kan få returneret et 'integer' indeholdende
alle attributer lagt sammen fra mit filesystem-object.
.... men hvordan checker jeg om folderen er 'hidden' når denne værdi er '2'

Det er sikkert meget enkelt, men jeg har stirret mig blind på det - håber at
få lidt hjælp her...

Her er et uddrag af koden:

Sub skrivSubFolder()
const hidden = 2
const archive = 32
i = 0
Response.Write "<table border=0 cellpadding=5><tr><td valign=top>"
For Each f1 in fc
if i mod 10 = 0 then
s = s & "</td><td valign=top>"
end If
i = i + 1
s = s & "<a href=""FileBrowser.asp?sti=" & sti & "\" & f1.name & """><IMG
SRC=""folder_closed.gif"" border=0 align=absmiddle vspace=3>" & f1.name &
"</a>"
s = s & "<BR>"
Next
i = i - 1
while not i mod 10 = 0
s = s & "</TD><td></td>"
i = i + 1
wend
s = s & "</TR></TABLE>"
Response.write s
End Sub

Jeg kan se at det der skal checke om folderen er 'hidden' skal indsættes
mellem linie 6 og 7 - men hvordan ?

På forhånd tak...

Brian

---

> Jeg har lavet et asp-script der lister foldere op fra min harddisk.
> Det fungerer ganske fint - men nu vil jeg gerne have at de foldere som har
> attributen 'hidden' ikke skal vises.
> Det kan jeg ikke umiddelbart få den til.
>
> Jeg har læst mig frem til at jeg kan få returneret et 'integer'
indeholdende
> alle attributer lagt sammen fra mit filesystem-object.
> ... men hvordan checker jeg om folderen er 'hidden' når denne værdi er '2'
>
> Det er sikkert meget enkelt, men jeg har stirret mig blind på det - håber
at
> få lidt hjælp her...

Ja, det er faktisk ikke så svært, når man lige ved hvordan det skal gøres.
Det er rigtig nok at du skal bruge Attributes Property og få den til at
retunere en værdi og derefter tjekke hvad den værdi er, men det er kun ved
filer at den retunere værdien 2 hvis filen er skjult, ved mapper retuneres
andre værdier afhænig af hvilke attributter mappen har.

Jeg har fundet en funktion som kan retunere værdierne for de forskellige
mapper, her er den:

Function ShowFolderAttribs(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
ShowFolderAttribs = f.attributes
End Function

Du kan altså tilføje følgende (mellem linie 6 og 7) for at tjekke om mappen
er skjult:

v = ShowFolderAttribs("stien-til-mappen\" & f1.name)
if v <> 51 and v and 50 and v <> 18 and v <> 19 then
'"Vis mappen (mappen er ikke skjult/hidden)"
else
'"Vis ikke mappen (mappen er skjult/hidden)"
end if

Her har du de værdier den retunere ved attributterne for mapper:

a (Archive)
h (Hidden)
r (ReadOnly)

51 ahr
50 ah
18 h
19 hr
49 ar
48 a
17 r
16 no attributes

Jeg har selv lavet et script som kan vise hvilke attributter en mappe har,
du kan du scourcekoden på følgende side:
http://hjem.get2net.dk/thyge/scource/get-folder-attributes.asp

Du kan selvfølgelig nemt ændre funktionen så den tjekker attributterne for
filer i stedet for mapper, så skal du bare ændre alle de steder hvor der
står Folder til File og så skal du lige finde ud af hvilke værdier den så
vil returnere.

Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk

---

Hurra - det var lige det der skulle til - tusind tak for hjælpen...

Brian

"Thygesen" <thyge@get2net.dk> wrote in message
news:3ad88fcd@news.carlbro.dk...
> > Jeg har lavet et asp-script der lister foldere op fra min harddisk.
> > Det fungerer ganske fint - men nu vil jeg gerne have at de foldere som
har
> > attributen 'hidden' ikke skal vises.
> > Det kan jeg ikke umiddelbart få den til.
> >
> > Jeg har læst mig frem til at jeg kan få returneret et 'integer'
> indeholdende
> > alle attributer lagt sammen fra mit filesystem-object.
> > ... men hvordan checker jeg om folderen er 'hidden' når denne værdi er
'2'
> >
> > Det er sikkert meget enkelt, men jeg har stirret mig blind på det -
håber
> at
> > få lidt hjælp her...
>
> Ja, det er faktisk ikke så svært, når man lige ved hvordan det skal gøres.
> Det er rigtig nok at du skal bruge Attributes Property og få den til at
> retunere en værdi og derefter tjekke hvad den værdi er, men det er kun ved
> filer at den retunere værdien 2 hvis filen er skjult, ved mapper retuneres
> andre værdier afhænig af hvilke attributter mappen har.
>
> Jeg har fundet en funktion som kan retunere værdierne for de forskellige
> mapper, her er den:
>
> Function ShowFolderAttribs(filespec)
> Dim fso, f
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(filespec)
> ShowFolderAttribs = f.attributes
> End Function
>
> Du kan altså tilføje følgende (mellem linie 6 og 7) for at tjekke om
mappen
> er skjult:
>
> v = ShowFolderAttribs("stien-til-mappen\" & f1.name)
> if v <> 51 and v and 50 and v <> 18 and v <> 19 then
> '"Vis mappen (mappen er ikke skjult/hidden)"
> else
> '"Vis ikke mappen (mappen er skjult/hidden)"
> end if
>
> Her har du de værdier den retunere ved attributterne for mapper:
>
> a (Archive)
> h (Hidden)
> r (ReadOnly)
>
> 51 ahr
> 50 ah
> 18 h
> 19 hr
> 49 ar
> 48 a
> 17 r
> 16 no attributes
>
> Jeg har selv lavet et script som kan vise hvilke attributter en mappe har,
> du kan du scourcekoden på følgende side:
> http://hjem.get2net.dk/thyge/scource/get-folder-attributes.asp
>
> Du kan selvfølgelig nemt ændre funktionen så den tjekker attributterne for
> filer i stedet for mapper, så skal du bare ændre alle de steder hvor der
> står Folder til File og så skal du lige finde ud af hvilke værdier den så
> vil returnere.
>
> Mvh. Christoffer Thygesen
>
> homepage: http://cht.dk
> e-mail: cht@cht.dk
>
>
>
>
>
>