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
