---

Hej

Findes der et ASP script der kan tælle hvor mange filer der er i en
mappe og
undermapper ??

Jeg tænker på at bruge det til, at oplyse hvor mange filer der er til

rådighed på serveren
for download....
Så er det jo nemmere hvis man kan bruge et script til det....

mvh.
Lars

---

Lars skrev:

> Findes der et ASP script der kan tælle hvor mange filer der er
> i en mappe og undermapper ??

Du kan i hvert fald lave et.

Hvis du i første omgang glemmer undermapperne, kan du med FSO
(FileSystemObject) få fat i filerne i en mappe som følger:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("MAPPENAVN_HER"))
Set Filer = F.Files

Antallet af filer kan så findes ved at tjekke Ubound på Filer
(arrayet er 0-indekseret, så antallet vil være Ubound(filer) + 1)

Undermapperne får man fat i med følgende:

Set SubFolders = F.SubFolders

Her kan du så igen finde antallet med Ubound(SubFolders) + 1, og du
kan iterere gennem mapperne for at finde oplysninger om mapper og
undermapper i undermapperne.
--
Bolig søges. Andel eller leje i Emdrup, Nordvest, Nørrebro, Søborg
eller Brønshøj, max 6000 pr. måned.
Kontakt pr. mail - nospam(at)gyros.dk
Jens Gyldenkærne Clausen

---

Ok... Men, jeg er nok lidt for ny i det her...
Kan du ikke skrive den kode jeg skal bruge??

Jeg kan ikke helt se mig ud af det...

mvh Lars



>
> Du kan i hvert fald lave et.
>
> Hvis du i første omgang glemmer undermapperne, kan du med FSO
> (FileSystemObject) få fat i filerne i en mappe som følger:
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set F = FSO.GetFolder(Server.Mappath("MAPPENAVN_HER"))
> Set Filer = F.Files
>
> Antallet af filer kan så findes ved at tjekke Ubound på Filer
> (arrayet er 0-indekseret, så antallet vil være Ubound(filer) + 1)
>
> Undermapperne får man fat i med følgende:
>
> Set SubFolders = F.SubFolders
>
> Her kan du så igen finde antallet med Ubound(SubFolders) + 1, og du
> kan iterere gennem mapperne for at finde oplysninger om mapper og
> undermapper i undermapperne.


--------------------------------------------------------------------------------
Jeg beskyttes af den gratis SPAMfighter til privatbrugere.
Den har indtil videre sparet mig for at få 432 spam-mails
Betalende brugere får ikke denne besked i deres e-mails.
Hent en gratis SPAMfighter her.

---

L@rs skrev:

> Ok... Men, jeg er nok lidt for ny i det her...

Fair nok.

> Kan du ikke skrive den kode jeg skal bruge??

Niks. Hvis du selv vil forsøge, vil jeg gerne sparre undervejs
(prøv dig frem, og meld tilbage i gruppen når noget fejler) - men
hvis du helt på bar bund, er det for stor en opgave.

Du kan så enten:

- lede efter et færdigt script på nettet
- se om andre har lyst til at hjælpe
- betale dig fra en løsning


NB: Læs gerne min signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens GyldenkærneClausen wrote:
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set F = FSO.GetFolder(Server.Mappath("MAPPENAVN_HER"))
> Set Filer = F.Files
>
> Antallet af filer kan så findes ved at tjekke Ubound på Filer
> (arrayet er 0-indekseret, så antallet vil være Ubound(filer) + 1)

Nja, Filer vil være et collection objekt, og hvor mange objekter der
er i sådan en fætter finder man ved Filer.Count og ikke ved at bruge
UBound...

mvh Torben

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

---

Torben Brandt skrev:

> Nja, Filer vil være et collection objekt, og hvor mange
> objekter der er i sådan en fætter finder man ved Filer.Count
> og ikke ved at bruge UBound...

Argh - du har da ret. Beklager fejltagelsen. Det vil så også gælde
SubFolders.
--
Bolig søges. Andel eller leje i Emdrup, Nordvest, Nørrebro, Søborg
eller Brønshøj, max 6000 pr. måned.
Kontakt pr. mail - nospam(at)gyros.dk
Jens Gyldenkærne Clausen

---

ok, har fundet frem til den her kode... Den kan jeg godt arbejde med...

MEN...

Hvordan får jeg den til, at tage undermapper (subfolder) med ???

mvh
Lars
<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test\")for each x in fo.files
'Print the name of all files in the test folder
Response.write(x.Name & "<br />")
nextset fo=nothing
set fs=nothing
%>Output:

test_adv.txt
guestbook.txt
links.txt
links2.txt
textads.txt
textfile.txt


--------------------------------------------------------------------------------
Jeg beskyttes af den gratis SPAMfighter til privatbrugere.
Den har indtil videre sparet mig for at få 435 spam-mails
Betalende brugere får ikke denne besked i deres e-mails.
Hent en gratis SPAMfighter her.

---

"L@rs" <lkj002@hotmail.com> skrev i en meddelelse
news:Oy0dh.138$op4.74@news.get2net.dk...
>
> ok, har fundet frem til den her kode... Den kan jeg godt arbejde med...
>
> MEN...
>
> Hvordan får jeg den til, at tage undermapper (subfolder) med ???


Lars,

Prøv dette lille script !
Du vil måske kunne ændre det til at tælle filer, istedet for at vise dem !

<!-- Lavet 2005 af neuhafen.dk -->
<html>
<head>
<title>Vis Alle Filer i alle biblioteker !</title>
</head>
<body>

<%
'Først finder vi denne fil...
Dim DenneFil, DetteDir
DenneFil = Request.ServerVariables("Script_Name")

' Så finder vi stien til denne fil...

DetteDir = Server.MapPath(DenneFil)

' Vi skal nu oprette et objekter

Dim ObjFSO, ObjFile, ObjFileItem, ObjFolder, ObjFolderContents,
ObjSubFolders
Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Set ObjFile = ObjFSO.GetFile(DetteDir)
Set ObjFolder = ObjFile.ParentFolder
Set ObjFolderContents = ObjFolder.Files

RodKatalog = ObjFolder

' Alle Objekter er oprettet

Sub VisSti(objFolder)

Response.Write "<br><strong>" & objFolder & "</strong><br><br>"
Set Filer = objFolder.Files
For each Fil in Filer
Sti = Replace(objFolder, RodKatalog, "")
%>
<a href="<%Response.Write Sti & "\" & Fil.name%>">Vis</a>
<%
Response.Write objFolder & "\" & Fil.name & "<br>"
Next
Flag = False
For each SubFolder in objFolder.SubFolders
Set AntalSubFolders = SubFolder.SubFolders
Antallet = AntalSubFolders.Count
If Antallet>0 then
Flag = True
Set SubSubFolders = SubFolder
VisSti(SubSubFolders)
End if

If Flag = False then
Response.Write "<br><strong>" & SubFolder & "</strong><br><br>"
Set Filer=SubFolder.Files
For each Fil in Filer
Sti = Replace(SubFolder, RodKatalog, "")
%>
<a href="<%Response.Write Sti & "\" & Fil.name%>">Vis</a>
<%
Response.Write SubFolder & "\" & Fil.name & "<br>"
Next
End If

Next

End Sub

Response.Write "Viser alle filer i dette bibliotek og alle under biblioteker
!!!<br><br>"
VisSti (objFolder)


%>

</body>
</html>



Neuhafen