---

Hej NG

Jeg skal lave et delete script, som hver dag kl. 2400 tømer indholdet af en
mappe.
Jeg står lidt på bar bund da jeg aldrig har rodet med scheduele scripts....
Kan man gøre det i ASP eller skal man igang med perl eller noget andet.
Jeg ville blive meget glad for evt. henvisninger på subject.

PÅ forhånd tak

Otto Meurer

---

Otto Meurer <webmaster@gugzel.dk> skrev i news:9lemc9$254$1@sunsite.dk
> Hej NG
>
> Jeg skal lave et delete script, som hver dag kl. 2400 tømer indholdet af
en
> mappe.
> Jeg står lidt på bar bund da jeg aldrig har rodet med scheduele
scripts....
> Kan man gøre det i ASP eller skal man igang med perl eller noget andet.
> Jeg ville blive meget glad for evt. henvisninger på subject.

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("c:\windows\temp\*.*")
MyFile.Delete

Har ikke testet det, men jeg tror det er det du er på utskikk etter ...

> PÅ forhånd tak

VBScript 5.5 Documentation. Søk på "Delete", umulig å ta feil ... ;)

Der finner du en masse som kan hjelpe ...

Lykke til med scriptingen ... ;)

> Otto Meurer

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/

---

"Erlend Klakegg Bergheim" <erlendkb@c2i.net>

> Dim fso, MyFile
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set MyFile = fso.GetFile("c:\windows\temp\*.*")
> MyFile.Delete
>
> Har ikke testet det, men jeg tror det er det du er på utskikk etter ...

Tak for det, det var også noget i den stil jeg havde forestillet mig, men
hvad så med tidspunktet? Jeg vil jo gerne have at det sker kl 2400 hver dag
(automatisk), kan man putte noget i global.asa så det er muligt eller skal
man fysisk ind og eksekvere det dagligt, hvilket jeg jo helst ikke vil.

Otto Meurer

---

"Otto Meurer" <webmaster@gugzel.dk> wrote

> Tak for det, det var også noget i den stil jeg havde forestillet mig, men
> hvad så med tidspunktet? Jeg vil jo gerne have at det sker kl 2400 hver dag
> (automatisk), kan man putte noget i global.asa så det er muligt eller skal
> man fysisk ind og eksekvere det dagligt, hvilket jeg jo helst ikke vil.

Jeg kan desværre ikke give løsningen, udover jeg mener der har været
en tråd med et svar fra Lauritz Jensen. Så hvis du laver en søgning
i denne gruppe med L.J.´s navn her: http://groups.google.com/advanced_group_search
er der måske noget at hente.
Claus

---

Claus O <ClausOlsen@NOSPAMhotmail.com> skrev i
news:3b7be8d5$0$42361$edfadb0f@dspool01.news.tele.dk
> "Otto Meurer" <webmaster@gugzel.dk> wrote
>
> > Tak for det, det var også noget i den stil jeg havde forestillet mig,
men
> > hvad så med tidspunktet? Jeg vil jo gerne have at det sker kl 2400 hver
dag
> > (automatisk), kan man putte noget i global.asa så det er muligt eller
skal
> > man fysisk ind og eksekvere det dagligt, hvilket jeg jo helst ikke vil.
>
> Jeg kan desværre ikke give løsningen, udover jeg mener der har været
> en tråd med et svar fra Lauritz Jensen. Så hvis du laver en søgning
> i denne gruppe med L.J.´s navn her:
http://groups.google.com/advanced_group_search
> er der måske noget at hente.

http://groups.google.com/groups?q=author:Lauritz+author:Jensen&start=260&num
=20&hl=no&safe=off&scoring=d&rnum=274&selm=3A6C7656.A258A9A5%40hotmail.com

Og fy F så mange innlegg han har, og hittil har jeg ikke sett at _han_ spør
om noe, han bare svarer ............

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/

---

"Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote

> Og fy F så mange innlegg han har, og hittil har jeg ikke sett at _han_ spør
> om noe, han bare svarer ............

Hvorfor skulle Lauritz da også stille _et_ spørgsmål om ASP,
jeg spørger bare?
Claus

---

Claus O <ClausOlsen@NOSPAMhotmail.com> skrev i
news:3b7c17aa$0$97098$edfadb0f@dspool01.news.tele.dk
> "Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote
>
> > Og fy F så mange innlegg han har, og hittil har jeg ikke sett at _han_
spør
> > om noe, han bare svarer ............
>
> Hvorfor skulle Lauritz da også stille _et_ spørgsmål om ASP,
> jeg spørger bare?

Jeg bare nevner noe jeg la merke til når jeg så igjennom hundrevis av titler
....

---

Er det kun mig, eller er der andre der syntes det er fedt når en af de
rigtig dygtige gider at komme herind og hjælpe os med mindre erfaring ?
Jeg syntes dit indlæg er mærkeligt, tag da at værdsætte når folk gider at
hjælpe...Men det er måske svært for dig at accepterer at andre er dygtigerer
til noget end dig ?
Jeg håber da Lauritz gider blive ved med at komme med hans, mange gange,
meget gode svar.
Bare min mavesurer mening som du må undskylde hvis jeg har misforstået
dit indlæg.
Hilsen
Janus
"Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote in message
news:13Ue7.547$1b2.5035@news1.oke.nextra.no...
> Og fy F så mange innlegg han har, og hittil har jeg ikke sett at _han_
spør
> om noe, han bare svarer ............

---

"Janus Klok Lauritsen" <janus@mcb.dk> wrote in
news:3b7c3368$0$31244$ba624c82@nntp01.dk.telia.net:

> Er det kun mig, eller er der andre der syntes det er fedt når en af de
> rigtig dygtige gider at komme herind og hjælpe os med mindre erfaring ?
> Jeg syntes dit indlæg er mærkeligt, tag da at værdsætte når folk gider
> at hjælpe...Men det er måske svært for dig at accepterer at andre er
> dygtigerer til noget end dig ?
> Jeg håber da Lauritz gider blive ved med at komme med hans, mange
> gange, meget gode svar.
> Bare min mavesurer mening som du må undskylde hvis jeg har
> misforstået dit indlæg.

måske ... :) ... jeg opfatter det i hvert fald ikke som du tilsyneladende
gør.

:)

--
Jesper Stocholm
http://stocholm.dk
ICQ: 13214885
MSN Messenger: jesperstocholm at hotmail dot com

---

"Janus Klok Lauritsen" <janus@mcb.dk> wrote in message
news:3b7c3368$0$31244$ba624c82@nntp01.dk.telia.net...

> "Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote in message
> news:13Ue7.547$1b2.5035@news1.oke.nextra.no...
> > Og fy F så mange innlegg han har, og hittil har jeg ikke sett at _han_
> spør
> > om noe, han bare svarer ............
>
> Jeg syntes dit indlæg er mærkeligt, tag da at værdsætte når folk gider at
> hjælpe...Men det er måske svært for dig at accepterer at andre er
dygtigerer
> til noget end dig ?

Hej Janus - Du må snart til at lære lidt om de nordiske sprogs finurligheder
Du må også samtidig meget gerne læse lidt om debatteknik i
http://www.usenet.dk/netikette/debatteknik.html samt citeringsteknikker i
http://www.usenet.dk/netikette/quote.html

Vis de forslåede sider fanger din interesse så kan du evt pløje denne liste
igennem
http://www.usenet.dk/netikette/

mvh/Peter Lykkegaard

---

"Claus O" <ClausOlsen@NOSPAMhotmail.com>

> Jeg kan desværre ikke give løsningen, udover jeg mener der har været
> en tråd med et svar fra Lauritz Jensen. Så hvis du laver en søgning
> i denne gruppe med L.J.´s navn her:
http://groups.google.com/advanced_group_search
> er der måske noget at hente.
> Claus


Tak for det, men som i selv skriver så svarer han på indlæg, men jeg kunne
godt bruge noget source kode..... Men det er åbenbart ikke lige til at
finde, jeg har forsøgt mig med forskellige løsninger, men jeg ka sku' ik'
gennemskue det. øv.....

Jeg venter og ser hvad jeg kan finde andre steder, men tak for jeres svar.

Otto Meurer

---

"Otto Meurer" <webmaster@gugzel.dk> wrote in
news:9lh82i$phd$1@sunsite.dk:

>
> "Claus O" <ClausOlsen@NOSPAMhotmail.com>
>
>> Jeg kan desværre ikke give løsningen, udover jeg mener der har været
>> en tråd med et svar fra Lauritz Jensen. Så hvis du laver en søgning i
>> denne gruppe med L.J.´s navn her:
>> http://groups.google.com/advanced_group_search er der måske noget at
>> hente. Claus
>
>
> Tak for det, men som i selv skriver så svarer han på indlæg, men jeg
> kunne godt bruge noget source kode..... Men det er åbenbart ikke lige
> til at finde, jeg har forsøgt mig med forskellige løsninger, men jeg ka
> sku' ik' gennemskue det. øv.....
>
> Jeg venter og ser hvad jeg kan finde andre steder, men tak for jeres
> svar.
>

1. Hvis du har adgang til serveren via andet end ASP (dvs typisk at du har
fysisk adgang til serveren), så vil jeg som Lauritz foreslå, at du bruger AT
til at køre et script der sletter filerne [1]).

Da jeg kan ikke forestille mig, at sletning af en masse filer i en mappe
vil koste særligt mange resurser på din server, så du kunne overveje at
implementere et simpelt admin-interface som du kan logge ind på og slette
filerne ved klik på en knap. Du kan også lægge logikken ind i global.asa i
On_session_start() og så holde styr på, om scriptet er blevet kørt
tidligere.

.... tja der er mange muligheder. Hvis du har specifikke spg til
implementering af en af ovenstående, så spørg blot her igen.

[1] Jeg har ved at lede lidt fundet ud af, at der i Windows 2000 ikke findes
noget som fx WinAT. Der skal man i stedet bruge Task Scheduler. Hvis du har
mulighed for at anvende den - evt igennem din webhost - så kan det du ønsker
her kodes i VBS på omkring 6 linier ... mere kræver det ikke.

--
Er du også irriteret over, at din lokale grønthandler ikke slår dine varer
ind på kasseapperatet - og dermed undrager sig moms ? Så bed om en bon.

- Jesper Stocholm - http://stocholm.dk

---

Tak for dit fine svar Jesper, du er en guttermand =))

Det er ofte det mest simple der er svært....
Jeg vil afprøve diverse løsninger i løbet af næste uge og vender sikkert
tilbage med masser af spm.

Du har ret jeg kan sagtens lave noget hvor jeg logger mig ind og sletter
filerne selv, men det er jo ligesom ikke det jeg ønsker. Jeg vil netop gerne
undgå at jeg skal være online hver nat kl. 24.00 for at slette filer, derfor
ville jeg gerne have et slette script til at køre automatisk hver aften kl.
24.00.

Global.asa løsningen vil nok være den jeg må forsøge mig med da jeg ikke har
adgang til WinAt ej heller Task Scheduler på serveren.

Er det man koder i VBS ala ASP, læs kan man oversætte det direkte, kan man
eks. bruge FileSystemObject's ligesom i ASP?

Endnu engang tak for dit svar.

Med venlig hilsen

Otto Meurer

---

"Otto Meurer" <webmaster@gugzel.dk> wrote in
news:9lhisi$mkj$1@sunsite.dk:

>
> Tak for dit fine svar Jesper, du er en guttermand =))
>

rolig nu ... :)

> Det er ofte det mest simple der er svært....
> Jeg vil afprøve diverse løsninger i løbet af næste uge og vender
> sikkert tilbage med masser af spm.
>
> Du har ret jeg kan sagtens lave noget hvor jeg logger mig ind og
> sletter filerne selv, men det er jo ligesom ikke det jeg ønsker. Jeg
> vil netop gerne undgå at jeg skal være online hver nat kl. 24.00 for at
> slette filer, derfor ville jeg gerne have et slette script til at køre
> automatisk hver aften kl. 24.00.
>

Som sagt var jeg usikker på, om midnat var et guds givet tidspunkt - eller
om det kunne klares ved at slette filerne et tilfældigt tidspunkt på døgnet.

> Er det man koder i VBS ala ASP, læs kan man oversætte det direkte, kan
> man eks. bruge FileSystemObject's ligesom i ASP?
>

i 99% af tilfældende kan man tage ASP-kode og bruge den direkte i et VBS-
script. Der er ikke noget interface til brugeren i VBS som i ASP (html)
udover MSGboxe, så din ASP må ikke udspytte noget tekst andet end fx "Er du
sikker på, at du vil slette disse filer?" Den kode jeg har lavet til dig i
det andet indlæg er VBS-kode, og den kan tages direkte og bruges i et VBS-
script (hvilket jeg også gjorde for at teste det).

I den forbindelse bør du lige være sikker på dine hænder inden du begynder
at lege med VBS-scriptet. Jeg var åbenbart ikke her kl. 7 om morgenen, da
jeg ved en fejl kom til at eksekvere scriptet inden det var helt færdigt.
Prøv at forestille dig konsekvenserne af, at linien

Set ofile = filesys.GetFolder("D:\Documents and settings\...\testvbs
\delete")

ikke var skrevet helt færdig og kun hed

Set ofile = filesys.GetFolder("D:\documents and settings")

:)



Så er du sikker på en advarsel.

--
Jesper Stocholm
http://stocholm.dk
ICQ: 13214885
MSN Messenger: jesperstocholm at hotmail dot com

---

"Jesper Stocholm" <spam@stocholm.dk> skrev

> I den forbindelse bør du lige være sikker på dine hænder inden du begynder
> at lege med VBS-scriptet. Jeg var åbenbart ikke her kl. 7 om morgenen, da
> jeg ved en fejl kom til at eksekvere scriptet inden det var helt færdigt.
> Prøv at forestille dig konsekvenserne af, at linien
>
> Set ofile = filesys.GetFolder("D:\Documents and settings\...\testvbs
> \delete")
>
> ikke var skrevet helt færdig og kun hed
>
> Set ofile = filesys.GetFolder("D:\documents and settings")

Ok det ville da være rigtig skidt =)))

Tak for det lille script i den anden besked, jeg skal lige tale med min host
om skrive og slette adgang til biblioteket.

Otto Meurer

---

Otto Meurer wrote in dk.edb.internet.webdesign.serverside.asp:
> "Jesper Stocholm" <spam@stocholm.dk> skrev
>
> Tak for det lille script i den anden besked, jeg skal lige tale med min host
> om skrive og slette adgang til biblioteket.
>

Du må ALDRIG sætte skriveadgang til et bibliotek, som kan nåes fra en browser.
Hvis du vil lave et ASP-script, der sletter filer i et bib ved load af en side,
så skal bibbet være udenfor "webscope" - dvs fx i et niveau under wwwRoot. I
Windows 2000 kan man lave webfoldere, der peger på websites, og hvis du giver
skriveadgang til et bib på et sådan site, så vil onde mennnesker kunne slette
dine filer i biblioteket. Når du så har lavet sådan et bib, så skal
IUSR_<MACHINENAME> have skriveadgang til det - men KUN i dette bib.

Jesper Stocholm
http://stocholm.dk

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jesper Stocholm <spam@stocholm.dk> wrote in news:9limu4$6e4$1@sunsite.dk:

> Otto Meurer wrote in dk.edb.internet.webdesign.serverside.asp:
>> "Jesper Stocholm" <spam@stocholm.dk> skrev
>>
>> Tak for det lille script i den anden besked, jeg skal lige tale med
>> min host om skrive og slette adgang til biblioteket.
>>
>
> Du må ALDRIG sætte skriveadgang til et bibliotek, som kan nåes fra en
> browser. Hvis du vil lave et ASP-script, der sletter filer i et bib ved
> load af en side, så skal bibbet være udenfor "webscope" - dvs fx i et
> niveau under wwwRoot. I Windows 2000 kan man lave webfoldere, der peger
> på websites, og hvis du giver skriveadgang til et bib på et sådan site,
> så vil onde mennnesker kunne slette dine filer i biblioteket. Når du så
> har lavet sådan et bib, så skal IUSR_<MACHINENAME> have skriveadgang
> til det - men KUN i dette bib.
>

Jeg sidder lige og kommer til at læse det jeg skrev om placeringen af bibbet
med skriverettigheder - og jeg blev lidt i tvivl om, hvad jeg mente.

måske kan dette klargøre det:

Biblioteksstrukturen på serveren bør de nogenlunde således ud:

d:\inetpub\wwwroot\subdir1\
d:\inetpub\write_bib

.... eller tilsvarende :)

Bibbet med skriveadgang skal altså være på samme niveau som wwwroot og ikke
en subfolder i det.
--
Jesper Stocholm
http://stocholm.dk
ICQ: 13214885
MSN Messenger: jesperstocholm at hotmail dot com

---

"Jesper Stocholm" <spam@stocholm.dk> skrev

> Biblioteksstrukturen på serveren bør de nogenlunde således ud:
>
> d:\inetpub\wwwroot\subdir1\
> d:\inetpub\write_bib
>
> ... eller tilsvarende :)


Tak Jesper

Jeg ligger i forhandlinger med min udbyder om at få lov til at bruge AT
kommandoer en gang i døgnet, men tak igen for al din hjælp.

Otto Meurer

---

Hej NG

Ville man kunne bruge følgende kode! Hvis ja så er det vel "bare" at lave et
script i global.asa som executer filen kl. 2400???

<% Dim path
path = Server.MapPath( "\log\" )

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder( path )

Dim fsoNew, f
Set fsoNew = CreateObject("Scripting.FileSystemObject")
Set f = fsoNew.CreateFolder( path )
CreateFolder = f.Path
'Response.Write (path)
%>

Ideen er at slette mappen log (indholdet slettes sålede også eller?) for
herefter at oprette den igen?

Hvis jeg kører den på min server får jeg dog følgende fejl, men det skyldes
vel at jeg ikke har tilladelser til at skrive og slette til biblioteket
eller?

Microsoft VBScript runtime error '800a0046'
Permission denied

/slet.asp, line 12 ( som er denne linie: fso.DeleteFolder( path ) )



Otto Meurer

---

"Otto Meurer" <webmaster@gugzel.dk> wrote in
news:9lhl08$s3c$1@sunsite.dk:

> Hej NG
>
> Ville man kunne bruge følgende kode! Hvis ja så er det vel "bare" at
> lave et script i global.asa som executer filen kl. 2400???
>
> <% Dim path
> path = Server.MapPath( "\log\" )
>
> Dim fso
> Set fso = CreateObject("Scripting.FileSystemObject")
> fso.DeleteFolder( path )
>
> Dim fsoNew, f
> Set fsoNew = CreateObject("Scripting.FileSystemObject")
> Set f = fsoNew.CreateFolder( path )
> CreateFolder = f.Path
> 'Response.Write (path)
> %>
>
> Ideen er at slette mappen log (indholdet slettes sålede også eller?)
> for herefter at oprette den igen?
>

det er da lidt tosset :) ... hvorfor ikke blot slette filerne ?

Jeg ville foretrække at bruge kode som denne:

<%
Dim filesys,ofile,filecoll,fil
Set filesys = CreateObject("Scripting.FileSystemObject")
Set ofile = filesys.GetFolder("<sti til folder>")
Set filecoll = ofile.Files
For Each fil in filecoll
fil.Delete
Next
%>

> Hvis jeg kører den på min server får jeg dog følgende fejl, men det
> skyldes vel at jeg ikke har tilladelser til at skrive og slette til
> biblioteket eller?
>

Ja ...

Vær også opmærksom på, at du ikke blot kan teste på, om klokken er 24 i
global.asa - og så slette. For hvis der ikke er nogen, der loader dine filer
kl. 24, så eksekveres dit script ikke. Jeg vil derfor foreslå dig, at du
laver et "vindue" på fx en time, og i denne time holder du styr på, om
scriptet er blevet kørt tidligere - evt med en indgang i en database-tabel.

Er der nogen grund til, at det absolut skal være kl. 24 - eller er det blot
fordi det er bekvemt ?

Jeg ser pludselig, at der er logfiler du vil slette ... men er det IIS-
loggen du vil slette ... eller en log du selv vedligeholder ?

--
Jesper Stocholm
http://stocholm.dk
ICQ: 13214885
MSN Messenger: jesperstocholm at hotmail dot com

---

"Jesper Stocholm" <spam@stocholm.dk>

> det er da lidt tosset :) ... hvorfor ikke blot slette filerne ?
>
> Jeg ville foretrække at bruge kode som denne:
>
> <%
> Dim filesys,ofile,filecoll,fil
> Set filesys = CreateObject("Scripting.FileSystemObject")
> Set ofile = filesys.GetFolder("<sti til folder>")
> Set filecoll = ofile.Files
> For Each fil in filecoll
> fil.Delete
> Next
> %>

> Er der nogen grund til, at det absolut skal være kl. 24 - eller er det
blot
> fordi det er bekvemt ?

Det er da fordi der starter der en ny dag og vel egentlig fordi det er
bekvemt og nemt (troede jeg). Men ikke desto mindre så skal de slettes hver
dag kl. 24.00.

> Jeg ser pludselig, at der er logfiler du vil slette ... men er det IIS-
> loggen du vil slette ... eller en log du selv vedligeholder ?

Rolig Jesper =)) det er ikke IISloggen, men egne filer som genereres i løbet
af dagen.

Jeg må indrømme at jeg troede at man i global.asa kunne lave et script der
kørte uafhængigt af et side kald, men det kan jeg da godt se nu du siger
det. Så det er her WinAT kunne være lækker at have adgang til, hmmmmm måske
jeg skulle tale med min host.......

Nå jeg vil ind og teste lidt igen, jeg er ikke sikker på jeg når at melde
tilbage før næste uge, da jeg skal på mini ferie over weekenden og tager af
sted om 3 timer.

Jeg vender helt sikkert tilbage med flere spørgsmål.

God weekend =))

Otto Meurer