Emmanuele Sassi
0532c0c486
- gestione ribs completata - nuove funzionalita' introdotte su tabella TFS - correzioni e migliorie varie
34 lines
1.2 KiB
VB.net
34 lines
1.2 KiB
VB.net
Imports System.IO
|
|
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
|
|
Public Class MyMachine
|
|
Inherits Machine
|
|
|
|
Sub New(sDirPath As String, sIniPath As String)
|
|
MyBase.New(sDirPath, sIniPath)
|
|
End Sub
|
|
|
|
Public Shared Shadows Function MachineListInit(sMachinesRootDir As String, MachineList As IList(Of Machine)) As Boolean
|
|
' Se direttorio base macchine non definito o non esiste, ritorno
|
|
If String.IsNullOrWhiteSpace(sMachinesRootDir) OrElse
|
|
Not Directory.Exists(sMachinesRootDir) Then
|
|
MachineList = Nothing
|
|
Return False
|
|
End If
|
|
' Cerco le macchine
|
|
Dim Machines As String() = Directory.GetDirectories(sMachinesRootDir)
|
|
For i As Integer = 0 To Machines.Count - 1
|
|
Dim PathIni As String = Machines(i) & "\" & Path.GetFileName(Machines(i)) & ".ini"
|
|
If File.Exists(PathIni) Then
|
|
Dim sMaterial As String = ""
|
|
GetPrivateProfileString(S_GENERAL, "Material", "", sMaterial, Machines(i) & "\" & Path.GetFileName(Machines(i)) & ".ini")
|
|
If sMaterial = "Additive" Then
|
|
MachineList.Add(New MyMachine(Machines(i), PathIni))
|
|
End If
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
End Class |