" does not exist" End If Set FSO = nothing %> Method 2:Ĭhris is the Co-founder, Administrator, Architect, Chief Editor and Shameless Hack who wrote and runs CodeProject. Loop Response.Write " " Set TextStream = nothing Else Response.Write " File " & Filename &_ ' Read the file line by line Do While Not TextStream.AtEndOfStream Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault) " bytes)" Response.Write " " ' Open the file Dim TextStream Copy Code File: " & Filename & " (size " & FileSize &_
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |