oprette/læse/slette tekst filer fra server

prøv at søg på \" filesystemobject \" her på eksperten!!

her der er en funktion til at læse en txt fil.

function funcGetDBparameters(strTxtFileUrl, blnAdmin)

    dim objFSO, TextStream, strText, strParameters
   
    set objFSO = server.CreateObject(\"Scripting.FileSystemObject\")
   
    set TextStream = objFSO.OpenTextFile(strTxtFileUrl)


    Do While Not TextStream.AtEndOfStream
   
        strText = TextStream.ReadLine
       
        \'## GET PUBLIC CONNECTION STRING
        if blnAdmin = false then
           
            if instr(strText,\"Admin:\") then                       
                exit do
            end if
           
       
            if instr(1,lcase(strText),\"public\") = 1 then
                strParameters = mid(strText,instrrev(strText,\":\")+1)
            end if
           
        \'## GET ADMIN CONNECTION STRING
        else
       
            if instr(1,lcase(strText),\"admin\") = 1 then
                strParameters = mid(strText,instrrev(strText,\":\")+1)
            end if
       
        end if
   
    Loop
   
    TextStream.close
    set TextStream = nothing
    set objFSO = nothing
   
    funcGetDBparameters = trim(strParameters)

end function

http://msdn.microsoft.com/library/default.asp?URL=/library/devprods/vs6/vbasic/vbenlr98/dt_vaprofilesystemc.htm
http://msdn.microsoft.com/library/devprods/vs6/vbasic/vbenlr98/dt_vamthOpenTextFileC.htm