Fil navne og størrelser i Access database...

<%
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
set folder = fso.Getfolder(Server.Mappath(\".\"))
set files = folder.files
Response.Write \"<table border=\"\"1\"\">\"
for each f in files
        temp = instr(f.name,\".\")
        filnavn1 = left(f.name,temp)
        filnavn2 = mid(f.name,temp)
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & f.name & \"</td>\"
        Response.Write \"<td>\" & filnavn1 & \"</td>\"
        Response.Write \"<td>\" & filnavn2 & \"</td>\"
        Response.Write \"<td>\" & f.size & \" kb</td>\"
        Response.Write \"</tr>\"
next
Response.Write \"</table>\"
set files = nothing
set fso = nothing
%>

der skal du ud og bruge noget der hedder FSO (File Scripting Object)

Du kan finde en kort introduktion på www.zoidberg.dk samt den fulde referenceliste på http://www.netcoders.dk/docs.asp?mode=view_doc&id=1

Med denne her bliver der lige fjernet .´et i kolonne 2

<%
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
set folder = fso.Getfolder(Server.Mappath(\".\"))
set files = folder.files
Response.Write \"<table border=\"\"1\"\">\"
for each f in files
        temp = instr(f.name,\".\")
        filnavn1 = left(f.name,temp-1)
        filnavn2 = mid(f.name,temp)
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & f.name & \"</td>\"
        Response.Write \"<td>\" & filnavn1 & \"</td>\"
        Response.Write \"<td>\" & filnavn2 & \"</td>\"
        Response.Write \"<td>\" & f.size & \" kb</td>\"
        Response.Write \"</tr>\"
next
Response.Write \"</table>\"
set files = nothing
set fso = nothing
%>

Det ved jeg godt... Keysersoze

Den bjarke-b har lavet er fin, men kan en eller anden ikke lige lave så den skrive kb i stedet for byte, og at man kan unfylde en variabel med dir\'et den skal kigge i? og evt. også det der Access database sjov.. Det er jo 300 point der er tale om her??

u2u > Du skriver \"Det er jo 300 point der er tale om her??\" Ja, og hvad så ? Du har lige oprettet en bruger og fyrer alle point af nu, så du har højst sandsynligt en anden bruger.

Tro hvad du vil... Det er sådan set fordi at jeg skal bruge det her og nu...

<%
\'Skriv her dir, f.eks:
\'dir = \"../lort\"

\'Vi bruger nu det dir vi står i
dir = \".\"

Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
set folder = fso.Getfolder(Server.Mappath(dir))
set files = folder.files
Response.Write \"<table border=\"\"1\"\">\"
for each f in files
        temp = instr(f.name,\".\")
        filnavn1 = left(f.name,temp)
        filnavn2 = mid(f.name,temp)
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & f.name & \"</td>\"
        Response.Write \"<td>\" & filnavn1 & \"</td>\"
        Response.Write \"<td>\" & filnavn2 & \"</td>\"
        Response.Write \"<td>\" & int(f.size/100) & \" kb</td>\"
        Response.Write \"</tr>\"
next
Response.Write \"</table>\"
set files = nothing
set fso = nothing
%>

u2u > Ja, du skal bruge det her og nu, og din anden bruger havde ikke flere point så du opretter bare en ny, hvor dumme tror du vi er ?

Idiot... Prøv dog at tag dig sammen... Hvor gammel er du entenlig??? Hvis jeg skal være helt ærlig kom jeg til at skrive 300 og ikke 30. Men en programmør gennem 6 år, kan jo ikke rigtig sige at han ikke kan remme den rigtigt tast...

u2u > Hmmm, du opretter spm´et og sætter 300 point af, det var så en fejl den kan accepteres. Du skriver så en kommentar hvor der står \"Det er jo 300 point der er tale om her??\" Hmmm stavefejl igen, kan du ikke styre din 0 tast eller hvad ?

Jaja, du er sikkert programmør gennem 6 år, det er vældig flot og jeg er brandmand på 22 år.

og jeg er brandmand på 22 år.
skulle være
og jeg er brandmand på 22´ende år.

bjarke-b... Skal vi ikke stoppe denne latterlige \"samtale\" nu...

Kan du lave det så det bliver skrevet ind i en database eller ej?

Kan jeg godt, gidder jeg bare ikke nu

u2u -> hvis du vil have uddelt 30 point, så er der en predefineret radiobutton som man kan bruge... *lol*

Okay... Ha det pænt

hvad er der nu i vejen med FSO?

Hvad mener du?

du afviser vores svar og lukker dette spm - vil du have det i en database eller hvad præcis vil du så?

u2u > Det svar jeg gav dig kunne det du bad om.

I beskrivelsen af spm´et står intet med at det skal i en access database!

Okay... sorry... Jeg laver et nyt, et til jer hver... 150 point til hver... Men det bliver først imorgen... men lav et svar her, og i for jeres point! Wallah!

selvfølgelig vil vi gerne have point - men det er kun for noget brugtbart... vi giver begge en løsning eller stor hjælp til det - og pludselig vil du have noget anden og så lukker du...

så grunden til at jeg spørger er kun for at få at vide hvad du i det hele taget vil have...

Nu for jeg ligepludeselig denne fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01B6)
Objektet understøtter ikke denne egenskab eller metode: \'fso.Getfolder\'
/frafilertildatabase.asp, line 10

hvordan ser DIN kode ud nu?

Sådan her...:



<%
\'Skriv her dir, f.eks:
dir = \".\"

\'Vi bruger nu det dir vi står i
\'dir = \".\"

Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
set folder = fso.Getfolder(Server.Mappath(dir))
set files = folder.files
Response.Write \"<table border=\"\"1\"\">\"
for each f in files
        temp = instr(f.name,\".\")
        filnavn1 = left(f.name,temp)
        filnavn2 = mid(f.name,temp)
        Response.Write \"<tr>\"
        Response.Write \"<td>\" & f.name & \"</td>\"
        Response.Write \"<td>\" & filnavn1 & \"</td>\"
        Response.Write \"<td>\" & filnavn2 & \"</td>\"
        Response.Write \"<td>\" & int(f.size/100) & \" kb</td>\"
        Response.Write \"</tr>\"
s = s + int(f.size)
next
Response.Write \"</table>\"
set files = nothing
set fso = nothing
response.write s
%>

dir henviser jo til din mappe... altså skal du skrive navnet (og evt stien) på den mappe du vil vise i forhold til hvor du er...

fx

set folder = fso.Getfolder(Server.Mappath(../billder))

dog kan jeg ikke lige huske om det skal i \"\" - altså

set folder = fso.Getfolder(Server.Mappath(\"../billder\"))

Hmm det virker stadivæk ikke... den skriver det samme... Det kunne godt tyde at FSO ikke er slået til, eller sådan noget...

skal du liste fra samme mappe som dette script er i eller en anden mappe?

http://www.soze.dk/test2.asp

det virker fint hos mig...

jeg har ingen umiddelbar løsning så, men prøv med

set folder = fso.Getfolder(Server.Mappath(\".\"))

og virker det heller ikke er jeg lost :o/

Så må det næsten være min IIS installation den er gal med... Jeg har godt nok flyttet wwwroot dir\'et til en anden harddisk... Kan det være det?

jeg skal ikke kunne sige det - men prøv at test det der hvor det skal køre på dit webhotel...

Det skal køre hos mig selv...

jeg har heller ingen problemer lokalt... det er også win2k/iis

hmm, kan det være fordi at jeg har flyttet wwwrot dir\'et?

jeg skal ikke kunne sige det... der hvor der er testet på min er i en mappe på et d-drev, i en mappe jeg selv har oprettet der hedder \"test\" - så det _burde_ altså virke generelt...

Hmmm... Måske skulle jeg installere IIS\'en igen... ;(

Men, anyway... Tak for hjælpen!