REGISTRI - ScriviRegINIGlobale

Public Sub ScriviRegINIGlobale()
Dim I As Long
TypeConn.MyDirPath = My.Application.Info.DirectoryPath
I = InStr(TypeConn.MyDirPath, "\bin\Debug")
If I > 0 Then
TypeConn.MyDirPath = Mid(TypeConn.MyDirPath, 1, I - 1)
End If

FileOpen(1, TypeConn.MyDirPath & "\INI\Registry.ini", OpenMode.Output)

If Len(GestioneRete.TextBox2.Text) <> 0 And Len(TypeConn.NomeDatabase) = 0 Then
TypeConn.NomeDatabase = GestioneRete.TextBox2.Text
End If


PrintLine(1, "NomeDatabase=" & TypeConn.NomeDatabase)
PrintLine(1, "PathDataBase=" & TypeConn.PathDataBase)
PrintLine(1, "MyDirPath=" & TypeConn.MyDirPath)
PrintLine(1, "Autenticazione=1")
PrintLine(1, "PathDataBase=" & TypeConn.PathDataBase)
PrintLine(1, "NomeServer=1")
PrintLine(1, "User=1") ' login
PrintLine(1, "PassWord=2")
PrintLine(1, "DNS=1")
PrintLine(1, "TipoConnessione=[Gestione database Aziendale]")
PrintLine(1, "Trasparenze=True")
PrintLine(1, "DimensionaForm=True")
PrintLine(1, "Rete=True")
PrintLine(1, "Schermo=True")
PrintLine(1, "Backup=False")
PrintLine(1, "BackupArch=True")
PrintLine(1, "ConnectionString=")
PrintLine(1, "DelPdf=True")
PrintLine(1, "NCry=1")
PrintLine(1, "FatturaCartaIntestata=False")
PrintLine(1, "MForzaPDFPrinter=True")

FileClose(1)


End Sub