---

(ASP/VBScript)

Hei.



Jeg har laget det til sånn at følgende kommer opp vha en ASP-side:

file1.ext 52379857
file2.ext 323216
file3.ext 32196332
file4.ext 3218
file5.ext 32897
file6.ext 372983
file7.ext 1239864
file8.ext 42174271
file9.ext 43



Koden ser noelunde sånn ut:

Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFolder(Server.MapPath(".\files"))
ReDim fileNames(F.files.count)
ReDim fileSize(F.files.count)
i = 0
For Each fldr in f.files
fileNames(i) = fldr.name
fileSize(i) = fldr.size
i = i + 1
Next

For i = f.files.count - 1 to 0 step -1
%>
<tr valign="top">
<td><a href="files/<%= fileNames(i) %>"><%= fileNames(i) %></a></td>
<td width="40"></td>
<td align="right"><%= fileSize(i) %></td>
</tr>

<%
Next
%>

Dette er filer som jeg vil ha vist i en gitt katalog. Men så er spørsmålet
hvordan jeg får vekk .ext og hvordan jeg kan omgjøre bytes til noe annet
(runde av til kb, mb, etc.). Noen som har idéer? Det har nok vært gjort før
;)

Mvh,
Peter H

---

On Sun, 1 Jul 2001 23:32:19 +0200, "Jan" <liker@ikkespam.no> wrote:

Hej Peter,

>Jeg har laget det til sånn at følgende kommer opp vha en ASP-side:
>
>file1.ext 52379857
>file2.ext 323216
>file9.ext 43

<SNIP>

> fileNames(i) = fldr.name

Hvis "filex" altid er 5 bogstaver, kan du blot skrive:
fileNames(i) = Left(fldr.name, 5)

Hvis ikke, men hvis 'ext' altid består af 3 bogstaver, kan du skrive:
fileNames(i) = Left(fldr.name, Len(fldr.name) - 4)

Hvis det hele varierer, kan du skrive:
fileNames(i) = Left(fldr.name, InStr(fldr.name, ".") - 1)

> fileSize(i) = fldr.size

kB:
fileSize(i) = "" & fldr.size/1024 & " kB"
MB:
fileSize(i) = "" & fldr.size/1024/1024 & " MB"

Og hvis du vil have "klippet" decimalerne:
kB:
fileSize(i) = "" & Int(fldr.size/1024) & " kB"
MB:
fileSize(i) = "" & Int(fldr.size/1024/1024) & " MB"

- skal de rundes af, bruger du CInt i stedet for Int

<SNIP>
>hvordan jeg får vekk .ext og hvordan jeg kan omgjøre bytes til noe annet
>(runde av til kb, mb, etc.).

Good luck,
Jørn

--
Jørn Andersen
Brønshøj

---

Alt fungerer helt fint her nå. Tusen, tusen takk for hjelpen!

Mvh,
Peter H



"Jørn Andersen" <jorn.a@email.dk> wrote in message
news:fk9vjtk19noe54mhf1f9sqmiuknjr01m13@4ax.com...
> On Sun, 1 Jul 2001 23:32:19 +0200, "Jan" <liker@ikkespam.no> wrote:
>
> Hej Peter,
>
> >Jeg har laget det til sånn at følgende kommer opp vha en ASP-side:
> >
> >file1.ext 52379857
> >file2.ext 323216
> >file9.ext 43
>
> <SNIP>
>
> > fileNames(i) = fldr.name
>
> Hvis "filex" altid er 5 bogstaver, kan du blot skrive:
> fileNames(i) = Left(fldr.name, 5)
>
> Hvis ikke, men hvis 'ext' altid består af 3 bogstaver, kan du skrive:
> fileNames(i) = Left(fldr.name, Len(fldr.name) - 4)
>
> Hvis det hele varierer, kan du skrive:
> fileNames(i) = Left(fldr.name, InStr(fldr.name, ".") - 1)
>
> > fileSize(i) = fldr.size
>
> kB:
> fileSize(i) = "" & fldr.size/1024 & " kB"
> MB:
> fileSize(i) = "" & fldr.size/1024/1024 & " MB"
>
> Og hvis du vil have "klippet" decimalerne:
> kB:
> fileSize(i) = "" & Int(fldr.size/1024) & " kB"
> MB:
> fileSize(i) = "" & Int(fldr.size/1024/1024) & " MB"
>
> - skal de rundes af, bruger du CInt i stedet for Int
>
> <SNIP>
> >hvordan jeg får vekk .ext og hvordan jeg kan omgjøre bytes til noe annet
> >(runde av til kb, mb, etc.).
>
> Good luck,
> Jørn
>
> --
> Jørn Andersen
> Brønshøj