Pl review following code-
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
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 -
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....