---

Denne kode (som jeg ikke forstår meget af) sletter en fil med betegnelsen
"filnavn" i mappen "images":

--------------------
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub

Dim filnavn
filnavn = Session("var_Filename")

DeleteAFile server.mappath("/artcom4/images/" & filnavn)
----------------------------------------------------'

Koden anvender en Sub, og det ved jeg ikke hvad skal bruges til? Hvis nogen
kan forklare det vil jeg gerne høre.

Desuden vil jeg være glad, hvis nogen kan hjælpe mig med den korteste og
mest enkle kode, som kan anvendes, hvis man ønsker at slette ALLE filer i en
given mappe.


v.h.

Jakob Munck

---

Jakob Munck wrote:
>
> Koden anvender en Sub, og det ved jeg ikke hvad skal bruges til?
> Hvis nogen kan forklare det vil jeg gerne høre.

En Sub er blot en funktion, der ikke retunerer nogen værdi.

> Desuden vil jeg være glad, hvis nogen kan hjælpe mig med den
> korteste og mest enkle kode, som kan anvendes, hvis man ønsker
> at slette ALLE filer i en given mappe.

microsoft.com er nede lige i øjeblikket, men du kan bruge methoden
GetFolder på filesystem objectet til at hente folderen, hente filerne i
folderen via Files, løbe igennem filerne via en for-each-løkke og så
slette dem. Du kan finde eksempler to msdn.
http://msdn.microsoft.com/scripting/

--
Lauritz

---

> slette dem. Du kan finde eksempler to msdn.
> http://msdn.microsoft.com/scripting/
>
> --
> Lauritz


Den her liggende manual til VBScript er jeg bekendt med, men den er - for
mig - en uforståelig jungle af ubekendte begreber og udtryk, så den har jeg
ikke megen gavn af. Det er derfor, at jeg spørger her i nyhedsgruppen.

Jeg vil altså bede om hjælp fra én person, der kan give mig et konkret
eksempel på det stykke VBScript, der kan slette alle filer (v.hj.a.
wildcard) i en mappe.

På forhånd tak

v.h.

Jakob Munck

---

Jakob Munck wrote:
> > slette dem. Du kan finde eksempler to msdn.
> > http://msdn.microsoft.com/scripting/
>
> Den her liggende manual til VBScript er jeg bekendt med, men den er
> - for mig - en uforståelig jungle af ubekendte begreber og udtryk,
> så den har jeg ikke megen gavn af. Det er derfor, at jeg spørger her
> i nyhedsgruppen.

Hvad så med at stille et konkret sprøgsmål til netop det du ikke
forstår? Forstå mig ret: Der ville ikke være noget nemmere for mig en at
lave dit script for dig. Men det får du jo ikke noget ud af. Det script
du havde klippet ind og som du angiveligt ikke forstod meget af, var
*meget simpelt* (8 linier uden noget "sort magi") og min tanke er, at
hvis du ikke forstår det (og åbenbart ikke gider at bruge en par
minutter i manualen og slå hver komando, som du ikke forstår, op og ikke
gider at sprøge om hvad de er) så vil der være maget du ikke forstår og
da burde du ikke lægge filerne på din server (de kunne jo indeholde
kode, som sletter alle dinne andre filer!).

--
Lauritz

---

"Jakob Munck" <jakob.munck@email.dk> wrote in message
news:9fo22t$1hkv$1@news.cybercity.dk...
> Koden anvender en Sub, og det ved jeg ikke hvad skal bruges til? Hvis
nogen
> kan forklare det vil jeg gerne høre.

En Sub er bare en funktion der ikke returnerer noget....

> Desuden vil jeg være glad, hvis nogen kan hjælpe mig med den korteste og
> mest enkle kode, som kan anvendes, hvis man ønsker at slette ALLE filer i
en
> given mappe.

Du ønsker altså at slette alle filer i en mappe uden at slette mapen? Hvis
dette er tilfældet så er her noget jeg ikke har testet men blot strikket
sammen på hukommelsen.

<%
Dim objFS, objFol, objFil, collFiles, sti,foldersti
foldersti = "drev:\mappe\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFol = objFS.GetFolder(foldersti)
Set collFiles= objFol.Files

For Each objFil in collFiles
sti = foldersti & objFil.name
objFS.DeleteFile sti
Next

Set objFol = Nothing
Set CollFiles = Nothing
Set objFS = Nothing
%>

Du kan evt. smide det i en sub.

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

Det virker. Mange tak !

jm