Avatar billede morpheus73 Nybegynder
05. september 2001 - 22:28 Der er 1 kommentar

Hjælp - FSO/writefile probs

Jeg er ved at blive sinds....

jeg er ved at lave et system, som kopierer et databaserelateret forum ti en brugers folder på rooten

for at brugeren kan bruge sit forum, skal config.asp filen rettes til med brugerens DB. filen henter variablen strDBNTUserName fra config´en øverst i filen og det fungerer fint ... den opretter brugerens folder og kopierer filerne tip top.

problemet er min opdatering af config.asp filen i brugerens folder...hvad går der galt? ... hjælp mig....jeg skal på arbejde imorgen og helmer ikke før lortet virker!

<%
Set fso = CreateObject(\"Scripting.FileSystemObject\")
foldername = \"e:\\inetpub\\wwwroot\\\" & strDBNTUserName & \"\\\"
foldernameorig = \"e:\\inetpub\\wwwroot\\\" & strDBNTUserName & \"\\config.asp\"
foldernametmp = \"e:\\inetpub\\wwwroot\\\" & strDBNTUserName & \"\\config.tmp\"
%>
<%
If Request(\"Submit\") <> \"\" Then
    strValue = Request.Querystring(\"Template\")
    select case strValue
        case 1
        Response.Write \"Template 1 Selected\"
        If not fso.FolderExists(foldername) then fso.CreateFolder(foldername)

        fso.CopyFile \"e:\\inetpub\\wwwroot\\Template\\*.*\", foldername, True
   
-------herunder går det galt ------------

    Set FileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
    TestFile = foldernameorig
    TempFil = foldernametmp
    FileObject.CopyFile TestFil,TempFil
    Set Output= FileObject.CreateTextFile (TestFil, True, false)
    OutputString = \"<detvirker\"
    Output.WriteLine OutputString
    Output.Close
    Set Input = FileObject.OpenTextFile (TempFil)
    Set Output= FileObject.OpenTextFile (TestFil, 8, True)
    While Not Input.AtEndOfStream
        Output.WriteLine(Input.ReadLine)
    Wend
    Input.Close
    Output.Close
    FileObject.DeleteFile TempFil
        case 2 
        Response.Write \"Template 2 Selected\"
        case 3       
        Response.Write \"Template 3 Selected\"
        case else
        Response.Write \"Somethings Gone Wrong Grim\"
    end select
End If
%>



kan det være fordi systemet ikke når at kopiere config filen før scriptet forsøger at åbne den eller er det bare mig der er dum?

mph73
Avatar billede nordclc Nybegynder
05. september 2001 - 23:00 #1
Skal \"TestFile = foldernameorig\" ikke rettes til \"TestFil = foldernameorig\"?

//Claus
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