AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 08:29:57 +02:00
parent b0a74d2e94
commit 034718d22e
37 changed files with 4334 additions and 1746 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Global_Indexer/ClassLayout.vb
View File

@@ -10,7 +10,11 @@ Public Class ClassWindowLocation
_pathold = _path.Replace("frm", "frmfrm")
If File.Exists(_pathold) Then
Dim newfilename = Path.GetFileName(_path)
My.Computer.FileSystem.RenameFile(_pathold, newfilename)
Try
My.Computer.FileSystem.RenameFile(_pathold, newfilename)
Catch ex As Exception
My.Computer.FileSystem.DeleteFile(_pathold)
End Try
_path = Path.Combine(Application.UserAppDataPath(), form.Name & "-Layout.xml")
End If
Dim layout As ClassLayout = New ClassLayout(_path)