DimoutputAsString'Old Delete BlockIfFile.Exists(fileName)=TrueThenFile.Delete(fileName)Debug.WriteLine("file deleted ")EndIf'Using fs As FileStream = File.Create(fileName)' For Each t In coastalTowns' output = New UTF8Encoding(True).GetBytes(String.Format(myFormat, t.name, t.county, t.population, t.area))' fs.Write(output, 0, output.Length)' Next'End UsingFileOpen(2,fileName,OpenMode.Random,,,43)Debug.WriteLine(Len(town))WhileEOF(2)ForEachTIncoastalTownsIfNotT.name=""Thenoutput=(String.Format(myFormat,T.name,T.county,T.population,T.area))FilePut(2,output)EndIfNextEndWhile
My god, yes I do. FilePut(), FileOpen() and FileClose() are bring back horrid memories from my A Level coursework hahahaha. One of the reasons I'm very glad my VB days are behind me.
For further actions, you may consider blocking this person and/or reporting abuse
We're a place where coders share, stay up-to-date and grow their careers.
Henry remember this.
The obsolete code we had to use. haha
My god, yes I do. FilePut(), FileOpen() and FileClose() are bring back horrid memories from my A Level coursework hahahaha. One of the reasons I'm very glad my VB days are behind me.