Class ASP Need Urgent Help

Question

0.00/5 (No votes)

See more:

Pl review following code-

VB

Function FileProperties( sFileName, sLength, sDateTime, sAttr)
    dim oFS, oFile
    Set oFS = Server.CreateObject("Scripting.FileSystemObject")

    if ( oFS.FileExists( sFileName ) ) then
        set oFile = oFS.GetFile( sFileName )
        sLength = oFile.size
        sDateTime = oFile.DateLastModified
        sAttr = oFile.Attributes

        set oFile = Nothing
        FileProperties = true
    else
        ' might be a folder
        if ( oFS.FolderExists( sFileName ) ) then
            set oFile = oFS.GetFolder( sFileName )

            sLength =  oFile.size 
            sDateTime = oFile.DateLastModified
            sAttr = oFile.Attributes

            set oFile = Nothing
            FileProperties = true
        else
            FileProperties = false
        end if
    end if

    set oFS = Nothing
end Function

Function FileReadLine( oFile, sLineOfFile )
    if not oFile.AtEndOfStream then
        sLineOfFile = oFile.ReadLine()
        FileReadLine = true
    else
        FileReadLine = false
    end if

end Function

Using above to two function, I want to read content from file,
so I wrote following script -

VB

Dim fs1, fs2, fs3

sFileName = server.mappath("/db/remoteinfo.txt")
call FileProperties( sFileName, sLength, sDateTime, sAttr)

response.write "Length -  " & sLength 

call FileReadLine(oFile, sLineOfFile)

Here I get error message :
Microsoft VBScript runtime error '800a01a8'

Object required: 'oFile'

Please help me as it is very urgent.

Thanks in advance....

Posted 31-Jul-12 20:35pm

nitintfs

Updated 31-Jul-12 21:02pm

Sandeep Mewara

v2

Add a Solution

Comments

Christian Graus 1-Aug-12 2:37am

Don't tell us it's urgent. We are not being paid and won't answer quicker because you told us to.

nitintfs 1-Aug-12 2:42am

Sorry and understand, will keep your suggestion in mind while posting next future questions..

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Christian Graus · Answer 1 · 2012-07-31T20:37:00

Solution 1

You have not posted anywhere that you call FileReadLine, but I am guessing that you didn't pass it in, or it's Nothing.

ASP is a nightmare, I would run from this project as fast as you can.

Posted 31-Jul-12 20:37pm

Christian Graus

Comments

nitintfs 1-Aug-12 2:40am

Thanks for immediate response, but I have used FileReadLine function -

Dim fs1, fs2, fs3

sFileName = server.mappath("/db/remoteinfo.txt")
call FileProperties( sFileName, sLength, sDateTime, sAttr)

call FileReadLine(oFile, sLineOfFile)

Christian Graus 1-Aug-12 2:41am

OK - as you posted that out of all context, I can't see what oFile would be at that point in time, but your error makes me think it is 'nothing'. If you were using a real web development platform, you could debug it. As it stands, I'd add code to do a response.write to tell you the state of the object.

nitintfs 1-Aug-12 2:49am

Thanks again!

oFile is declared in FileProperties, and I expect it be passed as reference in FileReadLine function as it is.

Because if I use following statement, it works
response.write " Length - " & sLength & ", Attribute - " & sAttr & ", Date - " & sDateTime

But when oFile return "NULL"

nitintfs 1-Aug-12 2:56am

Can you suggest any sort of clue to debug this code ?

Christian Graus 1-Aug-12 3:43am

I reiterate, asp is a nightmare. But, you can write code that uses response.write to emit text based on things like the state of oFile, to tell you what is going wrong.