Revert "Autmatically move to Roaming profile"

This reverts commit 3592fbc418.
This commit is contained in:
Riley McArdle
2011-05-12 17:17:26 -05:00
parent 58757ff85f
commit 4a1ac9eded

View File

@@ -4,7 +4,6 @@ Imports Crownwood
Imports System.Threading
Imports System.Xml
Imports mRemoteNG.App.Native
Imports System.Environment
Namespace App
Public Class Runtime
@@ -790,22 +789,6 @@ Namespace App
End If
End If
' LocalApplicationData to ApplicationData move if needed
Dim oldPath As String = GetFolderPath(SpecialFolder.LocalApplicationData) & "\" & My.Application.Info.ProductName
Dim newPath As String = App.Info.Connections.DefaultConnectionsPath
Dim dirinfonew As IO.DirectoryInfo
dirinfonew = New IO.DirectoryInfo(newPath)
If (Not dirinfonew.Exists) Then
Dim dirinfoold As IO.DirectoryInfo
dirinfoold = New IO.DirectoryInfo(oldPath)
If (dirinfoold.Exists) Then
MkDir(dirinfonew.FullName)
For Each fileInfo As FileInfo In dirinfoold.GetFiles
File.Move(fileInfo.FullName, Path.Combine(newPath, fileInfo.Name))
Next
End If
End If
If File.Exists(conL.ConnectionFileName) = False Then
If WithDialog Then
mC.AddMessage(Messages.MessageClass.WarningMsg, String.Format(My.Resources.strConnectionsFileCouldNotBeLoaded, conL.ConnectionFileName))