Error Creating TXT File

[ruca]

Private Sub find_file(ByVal strFile)
Dim Path As String
Dim NewFile As StreamWriter

strFile = "Extern\" & strFile
Path = Server.MapPath(strFile)
If Not File.Exists(Path ) Then
NewFile = File.CreateText(Path )
NewFile .Close()
End If
End Sub


I have this to find (and create, if not found) a file. The problem is that
it's not working.
It gives me an error like this:
Access to the path "c:\(all path)\Extern\novo.txt" is denied

I think that I have to set permissions, but where??? I already put the Read
an Write Permissions for that application in IIS, and in the right path too.

How can I set this up?
It's missing anything?

 

[Martin Dechev]

Hi, ruca,

You should allow Modify and Write rights to the local ASPNET account for
that folder. In the Windows Explorer right-click and choose Properties and
then choose the tab Security. If you don't see the ASPNET account in the
list add it.

Hope this helps
Martin

 

[ruca]

Ok, it works!!!
Now I have another thing.... It's to Read each line of that TXT file. For
that I have this:

Function ReadTXT()
Dim stmReader As StreamReader
Dim Path As String

Path = Server.MapPath("Extern\novo.txt")

VerUser = File.OpenText(LerPath)
While Not VerUser.ReadToEnd()
txtLine = VerUser.ReadLine()
'then I have code here but it's only to format the sesult line
End While
End Function

txtLine result is always Nothing and because of that the While instruction
don't end.
Can you help me?

 

[Martin Dechev]

Hi, ruca,

The MSDN documentation is full of examples, just browse around the classes
you use.

Anyway, try adapting this example for your needs:

http://msdn.microsoft.com/library/en-us/cpguide/html/cpconreadingtextfromfile.asp

Hope this helps
Martin