Here's an example. Let me know if you have any questions. KJ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strDir As String
Dim strFile As String
strDir = "C:\Temp"
strFile = "C:\Temp\Config.ini"
Dim di As DirectoryInfo = New DirectoryInfo(strDir)
Dim fin As FileInfo = New FileInfo(strFile)
Dim fs As FileStream
Dim sw As StreamWriter
Dim sr As StreamReader
Dim str1 As String
Dim str2 As String
'Create folder if it does not exist
If di.Exists = False Then
di.Create()
End If
'Create file if it does not exist
If fin.Exists = False Then
fs = New FileStream(strFile, FileMode.Create, FileAccess.Write)
sw = New StreamWriter(fs)
sw.WriteLine("1"

sw.WriteLine("2"

sw.Flush()
fs.Flush()
sw.Close()
fs.Close()
End If
fs = New FileStream(strFile, FileMode.Open, FileAccess.Read)
sr = New StreamReader(fs)
str1 = sr.ReadLine
str2 = sr.ReadLine
fs.Flush()
fs.Close()
sr.Close()
End Sub