Never mind. I found this solution
SaveSetting App.Title, "Default Settings", "CompareXML", Dir1.Path
SaveSetting App.Title, "Default Settings", "CompareEXCEL", Dir2.Path
Dir1.Path = GetSetting(App.Title, "Default Settings", "CompareXML")
Dir2.Path = GetSetting(App.Title, "Default Settings", "CompareEXCEL")