anonymous
2008-02-19 20:11:04 UTC
can you have a look and see what ive done wrong in my code
Sub savefile()
savescreen()
If My.Computer.FileSystem.FileExists(filena... Then
My.Computer.FileSystem.DeleteFile(filena...
End If
For i As Integer = 0 To Counter
Dim recordcontact As String = record(i).Fname = recordcontact + fieldterminator + (i).Surname
recordcontact = recordcontact + Enviroment.Newline
My.Computer.FileSystem.WriteAllText(file... recordcontact
Next
updatescreen()
End Sub