Avatar billede alleslev Nybegynder
18. september 2003 - 22:35 Der er 13 kommentarer og
1 løsning

Oprette fil med FSO

hej

Jeg har denne kode som skulle kunne oprette en text fil men den virker ikke og der kommer inge fejlmelleing andet end at siden kan ikke vises:

Set fs = Server.CreateObject("Scripting.FileSystemObject")
sti = request.querystring("sti")
folder = server.mappath("sti")

fil = folder & request.form("filename")

Set fil = fs.CreateTextFile("fil", true, -0)
response.write fil & "<br>Filen er lavet"

set fs = nothing
set fil = nothing
Avatar billede medions Nybegynder
18. september 2003 - 22:37 #1
Hvis du har Norton Antivirus installeret så prøv at slå Scriptblokking fra!

//>Rune
Avatar billede erikjacobsen Ekspert
18. september 2003 - 22:37 #2
Måske
Set fil = fs.CreateTextFile(fil, true, -0)
Avatar billede eagleeye Praktikant
18. september 2003 - 22:39 #3
Som erik skriver, samt du mangler nok et \ imellem folder og filnanvet, jeg mener nemlig ikke Server.Mappath tilføjer et \ som sidste karakter:

fil = folder & "\" & request.form("filename")

prøv evt at udskrive fil, og tjek den uderksriver rigtig sti og filnavn:
response.write  fil
Avatar billede eagleeye Praktikant
18. september 2003 - 22:40 #4
Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"
Avatar billede alleslev Nybegynder
18. september 2003 - 23:17 #5
elseif request.querystring("action") = "create" then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
sti = request.querystring("sti")
folder = server.mappath(request.querystring("sti"))

fil = folder & "\" & request.form("filename")

Set fil = fs.CreateTextFile(fil, true, -0)
response.write fil & "<br>Filen er lavet"
response.redirect "filer.asp?showsub=" & sti

set fs = nothing
set fil = nothing
Avatar billede alleslev Nybegynder
18. september 2003 - 23:18 #6
koden der virker men ikke regl mææsigt det vil sige at når jeg køre den kommer der en fejl, men trykker jeg en gang tilbage og trykker opdater ja så er filen faktisk blevet lavet men vhorfor der kommer en "siden kan ikke vises" ved jeg ikke og det skla siges at jeg nromatl for melloinger og script`s fejl
Avatar billede alleslev Nybegynder
18. september 2003 - 23:19 #7
Og undskyld alle mine tastefejl:)
Avatar billede erikjacobsen Ekspert
18. september 2003 - 23:19 #8
Hvad siger den hvis du ændrer
Set fil = fs.CreateTextFile(fil, true, -0)
til
Set filxxx = fs.CreateTextFile(fil, true, -0)
Avatar billede erikjacobsen Ekspert
18. september 2003 - 23:21 #9
Ok - den bliver oprettet, så glem mit spørgsmål. Men det med "siden kan ikke
vises" kan jeg ikke gøre med ved uden at se din kode eller få et link.
Avatar billede alleslev Nybegynder
18. september 2003 - 23:26 #10
jep så virker det næsten men det har ikke noget med det at gøre, men er der en nem måde at fjeren det første tegn i en stren på? håber i lige gider at hjælpemed det også:)
Avatar billede eagleeye Praktikant
18. september 2003 - 23:27 #11
Jo.
str = "abc"
str = mid(str,2)
Avatar billede alleslev Nybegynder
18. september 2003 - 23:28 #12
har helt styr på det skla bare lige have fjerent en \ før jeg kan redirecte den tilbage ellers går det kludder i det men ellers mange tak for hjælpen
Avatar billede eagleeye Praktikant
18. september 2003 - 23:42 #13
Ok ;) skal vi så svare??
Avatar billede alleslev Nybegynder
19. september 2003 - 10:29 #14
Jep tak for hjælpen alle sammen der!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester