Leggere un file e crearlo se non esiste

[tony83]

Public Class funzioni_db
Private pr_fileStream As FileStream
Private pr_streamReader As StreamReader
' apertura file
pr_fileStream = New FileStream(Application.StartupPath & "\config.ini", FileMode.Open, FileAccess.Read, FileShare.Read)
' Leggo l'output con la classe stream reader
pr_streamReader = New StreamReader(pr_fileStream)
' Visualizzo il contenuto del file
MessageBox.Show(pr_streamReader.ReadToEnd)
end class

scusate in questo codice leggo un file, dovrei fare una semplice aggiunta: se il file non esiste, crealo..

Come si fa?

[raffaeu]

Uella ...
Allora per fare cio' si usa la Classe FileInfo()

e una volta dichiarata, la usi cosi'

Dim f as FileInfo("percorso")
If Not f.Exist Then
     f.Create()
EndIf

[tony83]

Originariamente inviato da raffaeu
Uella ...
Allora per fare cio' si usa la Classe FileInfo()

e una volta dichiarata, la usi cosi'

Dim f as FileInfo("percorso")
If Not f.Exist Then
     f.Create()
EndIf

a buono... va bè ormai ho fatto cosi:

        Try
            ' apertura file
              pr_fileStream = New FileStream(Application.StartupPath & "\config.ini", FileMode.Open, FileAccess.Read, FileShare.Read)
             Leggo l'output con la classe stream reader 
               pr_streamReader = New StreamReader(pr_fileStream)
            Catch ex As System.IO.IOException
            ' se il file non esiste
               If File.Exists(Application.StartupPath & "\config.ini") = False Then
            Dim sw As StreamWriter 
             sw = File.CreateText(Application.StartupPath & "\config.ini")
             sw.WriteLine("\agenda.mdb")
              sw.Flush()
               sw.Close()
            ' apertura file
                pr_fileStream = New FileStream(Application.StartupPath & "\config.ini", FileMode.Open, FileAccess.Read, FileShare.Read)
             Leggo l'output con la classe stream reader 
                 pr_streamReader = New StreamReader(pr_fileStream)
              End If
            End Try

alla prossima grazie ciao