Avatar billede ingeman Seniormester
18. september 2005 - 09:55 Der er 3 kommentarer og
1 løsning

Søg kun hidden files og ændre dem til status normal

Dim allfiles,File,nytnavn
    Set fso=server.createobject("scripting.filesystemobject")
    Set allfiles=fso.GetFolder(FaxServer)
    For each file in allfiles.files
          if fso.GetExtensionName(file.name)="ERR" then
            nytnavn = Left(file.name,len(file.name)-3) & "SUB"
            fso.MoveFile FaxServer & "\" & file.name, FaxServer & "\" & nytnavn
          end if 
    Next

Ovennævnete kode skal omskrives til at kun returner hidden files
for derefter at ændre deres status til normal.
Avatar billede softspot Forsker
19. september 2005 - 13:34 #1
Der findes på file-objektet en egenskab som hedder Attributes. Denne indeholder filens attributter med en bit for de forskellige værdier (se referencen her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsproattributes.asp?frame=true)

Du skal check om file.Attributes and 2 = 2 for at kontrollere om det er en skjult fil. "And" er dette tilfælde en binær "and" som giver 0 hvis det ikke er en skjult fil og 2 hvis det er en skjult fil.

Altså:

if (fso.GetExtensionName(file.name)="ERR") And (file.Attributes And 2=2) then
  '....
end if

du kan også sætte værdien igen og fjerne hidden-attributten ved at and'e med den negerede værdi af 2 (altså 65535-2), således:

file.Attributes = file.Attribute and 65533

hvilket vil nulstille hidden-attributten men bevare de andre bits intakt.
Avatar billede ingeman Seniormester
19. september 2005 - 18:58 #2
svar
Avatar billede softspot Forsker
19. september 2005 - 19:39 #3
Der... :)
Avatar billede softspot Forsker
19. september 2005 - 19:45 #4
Tak for point :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester