ReadFile.Initialize(File.OpenInput(File.DirRootExternal & "/TentataVendita/Configurazione","Parameter.ini"))
credential.Domain = ReadFile.ReadLine
credential.Username = ReadFile.ReadLine
credential.Password = ReadFile.ReadLine
credential.Share = "smb://" & credential.Domain & "/" & ReadFile.ReadLine
ReadFile.Close
tipotrasferimento="scarico"
SMBInit(credential)
Sub SMBInit(cred As SMBCred)
smbClient.Initialize("SMBClient",cred.Domain,cred.Username,cred.Password,cred.Share)
End Sub