Imports System.IO

Public Class modIni

#Region " Dichiarazione API "

    Private Declare Auto Function GetPrivateProfileString Lib "kernel32.dll" _
            (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
            ByVal lpDefault As String, ByVal lpReturnedString As String, _
            ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Private Declare Auto Function WritePrivateProfileString Lib "kernel32.dll" _
            (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
            ByVal lpString As String, ByVal lpFileName As String) As Integer

#End Region

    Friend Shared Sub CreaFile(ByVal FileName As String)
        If Not (File.Exists(FileName)) Then File.Create(FileName)
    End Sub

    Friend Shared Function Leggi(ByVal FileName As String, ByVal Section As String, ByVal Key As String)
        Dim Result As String
        Dim RetVal As String = New String(" ", 255)
        Dim LenResult As Integer

        LenResult = GetPrivateProfileString(Section, Key, "", RetVal, RetVal.Length, FileName)

        If LenResult = 0 Then
            Dim ErrString As String

            'Qui vengono incapsulati gli errori
            If Not (File.Exists(FileName)) Then
                ErrString = "Impossibile trovare il file " & FileName & "."
            Else
                ErrString = "Impossibile eseguire l'operazione: sezione o chiave errate oppure accesso al file non consentito."
            End If
        End If

        Result = RetVal.Substring(0, LenResult)
        Return Result
    End Function

    Friend Shared Sub Scrivi(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
        Dim LenResult As Integer

        LenResult = WritePrivateProfileString(Section, Key, Value, FileName)

        If LenResult = 0 Then
            Dim ErrString As String

            'Qui vengono incapsulati gli errori
            If Not (File.Exists(FileName)) Then
                ErrString = "Impossibile trovare il file " & FileName & "."
            Else
                ErrString = "Impossibile eseguire l'operazione: accesso al file non consentito."
            End If
        End If
    End Sub

End Class