Avatar billede ingeman Seniormester
23. oktober 2003 - 14:46 Der er 6 kommentarer og
1 løsning

FilesystemObject kan sætte egenskaber til hidden

Kan man oprette en fil med egenskaber "hidden"
for derefter at skrive i den - lav den tilbage
til egenskaber "normal" ?

Grund - jeg har et faxprogram som poller den folder som jeg skriver til - hvis jeg ikke er
færdig med at skrive når der polles - går faxprogrammet ned.
Avatar billede eagleeye Praktikant
23. oktober 2003 - 22:35 #1
Se omkring atributes her:
http://www.w3schools.com/asp/prop_attributes.asp

Og din kode bliver:

<%
set fso=Server.CreateObject("Scripting.FileSystemObject")
'Set den folder der skal gemmen
set f=fso.GetFolder("C:\Inetpub\wwwroot\faxinput\out")

'Set hidden på folderen
f.Attributes = (f.Attributes OR 2)

'Skriv til filen



'Fjern hidden fra folderen
f.Attributes = (f.Attributes AND 3125)

set f=nothing
set fso=nothing
%>
Avatar billede ingeman Seniormester
24. oktober 2003 - 21:05 #2
Du skriver folderen ? - det er den enkelte fil jeg vil gøre
hidden - ikke folderen.
Avatar billede eagleeye Praktikant
25. oktober 2003 - 00:32 #3
Når ok ;)

Så bare ret denne linje:

set f=fso.GetFolder("C:\Inetpub\wwwroot\faxinput\out")


Så den hendter den fil du ønsker at lave hidden, file obejectet har samme property attributes som folder objectet har, så reten af koden er den samme:

set f=fso.GetFile("C:\Inetpub\wwwroot\faxinput\out\NYFIL.TXT")
Avatar billede ingeman Seniormester
25. oktober 2003 - 09:13 #4
OK - hvor finder du værdien 3125 fra ?
Avatar billede eagleeye Praktikant
25. oktober 2003 - 11:55 #5
Ved at ligge alle disse sammen:
0 = Normal file
1 = Read-only file
2 = Hidden file
4 = System file
16 = Folder or directory
32 = File has changed since last backup
1024 = Link or shortcut
2048 = Compressed file

undtagen værdien for hidden. Når man så AND'er med taller fjernes kun hidden bitet fra Attributes.
Avatar billede ingeman Seniormester
25. oktober 2003 - 13:59 #6
Er det muligt at gøre i denne rækkefølge ?

' Lav ny fil til Faxindhold
    set tFolder=fso.GetFolder(FaxServer)

    set f=fso.Getfile(Filnavn)
    'Set hidden på filen
    f.Attributes=(f.Attributes OR 2)

    set tFile=tFolder.CreateTextFile(Filnavn)

    ' Skriv i faxfil
Avatar billede ingeman Seniormester
25. oktober 2003 - 17:55 #7
Jeg har fundet ud af det - tak for hjælpen.
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