Avatar billede bojohansen Nybegynder
06. marts 2001 - 22:24 Der er 10 kommentarer og
1 løsning

Querystring ind i FileSystemObject!!!

Jeg sidder lige og fumler med et lille bitte FileSystemObject som jeg bare ikke kan få til at funge.

Jeg vil lave en mappe på baggrund af en værdi defineret i querystringen \"Id\" men jeg syntes at jeg har prøvet at skrive alt i linien .....CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\ID Skal komme her

Understøttes det ikke??

<%
Dim FileSystemFolder, Mappe\', FileSystemFileContext, FileSystemfile

\'Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\(\'Request.QueryString(\'Id\')\"


\'Set FileSystemFile = CreateObject(\"Scripting.FileSystemObject\")
\'FileSystemFile.CreateTextFile \"c:\\inetpub\\wwwroot\\variabler\\default.asp\",8 , True

\'Set FileSystemFileContext = CreateObject(\"Scripting.FileSystemObject\")
\'FileSystemFileContext.WriteLine (\"bare en lille test\")
\'FileSystemFileContext.Close


%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
Det virker sgu :-))
\'<%= Request.QueryString(\"Id\") %>
</body>
</html>
Avatar billede netsrac Praktikant
06. marts 2001 - 22:26 #1
\'Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe


Avatar billede netsrac Praktikant
06. marts 2001 - 22:27 #2
Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe


Avatar billede bjarke-b Nybegynder
06. marts 2001 - 22:27 #3
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & Request.Querystring(\"id\") & \"\"


Avatar billede tdaugaard Nybegynder
06. marts 2001 - 22:27 #4
prøv lige selv at se her:

FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\(\'Request.QueryString(\'Id\')\"

skulle nok være:

FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & Request.QueryString(\"Id\")
Avatar billede tdaugaard Nybegynder
06. marts 2001 - 22:28 #5
nåå ja .. nu skal vi da ikke råbe i munden på hinanden .. *lol*
Avatar billede tpiil Nybegynder
06. marts 2001 - 22:29 #6
<%
Dim FileSystemFolder, Mappe, FileSystemFileContext, FileSystemfile

Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe


\'Set FileSystemFile = CreateObject(\"Scripting.FileSystemObject\")
\'FileSystemFile.CreateTextFile \"c:\\inetpub\\wwwroot\\variabler\\default.asp\",8 , True

\'Set FileSystemFileContext = CreateObject(\"Scripting.FileSystemObject\")
\'FileSystemFileContext.WriteLine (\"bare en lille test\")
\'FileSystemFileContext.Close


%>
Avatar billede bojohansen Nybegynder
06. marts 2001 - 22:30 #7
For S....

Det var sgu schnell :-)) nu jeg sidder og ser på vidste jeg det jo egentligt godt....................kørt fast i alt andet....:-(

netsrac var først så værsgod :-)
Avatar billede netsrac Praktikant
06. marts 2001 - 22:34 #8
Takker :-)
Avatar billede bojohansen Nybegynder
06. marts 2001 - 22:48 #9
Hmmmmmmm det kører bare slet ikke lige nu :-((((

Hvordan får jeg så lige gjort det sådant at den endvider laver scriptet færdigt så den også opretter en default.asp i den nye mappe og endvider giver mig tilladelse til at skrive i den nye fil ???

Skal nok oprette nyt spørgsmål med samme antal point

Avatar billede netsrac Praktikant
06. marts 2001 - 22:54 #10
<%
Dim FileSystemFolder, Mappe, FileSystemFileContext, FileSystemfile

Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe
file = c:\\inetpub\\wwwroot\\variabler\\\" & mappe & \"\\default.asp\"
Set MyFile = FileSystemFolder.CreateTextFile(file, True)
MyFile.WriteLine(\"This is a test.\")


%> 
Avatar billede bojohansen Nybegynder
07. marts 2001 - 13:32 #11
Takker netsrac :-)) men den kom dog til at se sådant ud

<%
Dim FileSystemFolder, FileSystemFileContext, FileSystemfile, Filesystem, Mappe
Mappe = Request.QueryString(\"Id\")

Set FileSystemFolder = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFolder.CreateFolder \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe

Set FileSystemFile = CreateObject(\"Scripting.FileSystemObject\")
FileSystemFile.CreateTextFile \"c:\\inetpub\\wwwroot\\variabler\\\" & mappe & \"\\default.asp\"

Set Filesystem = CreateObject(\"Scripting.FileSystemObject\")
Set FilesystemFileContext = Filesystem.OpenTextFile(\"c:\\Inetpub\\wwwroot\\variabler\\\" & mappe &\"\\default.asp\", 8, true)
FilesystemFileContext.WriteLine (\"bla\")
FilesystemFileContext.Close
%>
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