Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOORCreator 2.1i1 :

Browse Source 
- modifica della funzione LockDir;
- tolta la ricerca del primo file disponibile nel progetto in modalità porta singola.
This commit is contained in:
Nicola Pievani
2019-09-25 13:13:00 +00:00
parent defebb6529
commit a041ffe3d6
4 changed files with 56 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ProjectManager/ProjectManagerVM.vb
+14 -15
View File
@@ -730,23 +730,22 @@ Public Class ProjectManagerVM
Local_Assembly.IsModified = False
CurrProject.AssemblyList.Add(Local_Assembly)
Else
' Aggiungo il primo nome all'elenco
Dim DDFFileArray() As String = Directory.GetFiles(CurrProject.Name)
Utility.OutLog("Cerco il primo file disponibile nel progetto : " & CurrProject.Name)
For DDFIndex = 0 To DDFFileArray.Count - 1
' verifico che il file sia un ddf e non sia in lettura - se il file che trovo è in lettura restituisce un messaggio !! da togliere !!
If Path.GetExtension(DDFFileArray(DDFIndex)).ToLower = ".ddf" And
Not Utility.VerifyFileLocked(Path.GetDirectoryName(DDFFileArray(DDFIndex)), Path.GetFileNameWithoutExtension(DDFFileArray(DDFIndex)), False) Then
OptionModule.m_sLastProject = DDFFileArray(DDFIndex)
Local_Assembly.Name = OptionModule.m_sLastProject
Local_Assembly.IsModified = False
CurrProject.AssemblyList.Add(Local_Assembly)
Exit For
End If
Next
'' Aggiungo il primo nome all'elenco
'Dim DDFFileArray() As String = Directory.GetFiles(CurrProject.Name)
'Utility.OutLog("Cerco il primo file disponibile nel progetto : " & CurrProject.Name)
'For DDFIndex = 0 To DDFFileArray.Count - 1
' ' verifico che il file sia un ddf e non sia in lettura - se il file che trovo è in lettura restituisce un messaggio !! da togliere !!
' If Path.GetExtension(DDFFileArray(DDFIndex)).ToLower = ".ddf" And
' Not Utility.VerifyFileLocked(Path.GetDirectoryName(DDFFileArray(DDFIndex)), Path.GetFileNameWithoutExtension(DDFFileArray(DDFIndex)), False) Then
' OptionModule.m_sLastProject = DDFFileArray(DDFIndex)
' Local_Assembly.Name = OptionModule.m_sLastProject
' Local_Assembly.IsModified = False
' CurrProject.AssemblyList.Add(Local_Assembly)
' Exit For
' End If
'Next
End If
Map.refAssemblyManagerVM.VisibilityDoorList = Visibility.Collapsed
Else
'-------------------------------------------------------------------------------------------------
' se esiste un file in lettura con questo nome allora blocco tutto