Fix directory names

MultiTool.Shared/Winline/WebService.vb

@@ -16,12 +16,14 @@ Namespace Winline
         Private ReadOnly Serializer As Serializer
         Private ReadOnly Mapper As AutoMapper.Mapper
         Private ReadOnly FileEx As File
+        Private ReadOnly AppDataPath As String
 
-        Public Sub New(pLogConfig As LogConfig, pConfig As Config)
+        Public Sub New(pLogConfig As LogConfig, pConfig As Config, pAppDataPath As String)
             MyBase.New(pLogConfig, pLogConfig.GetLogger())
             FileEx = New File(pLogConfig)
             Serializer = New Serializer(pLogConfig)
             Config = pConfig
+            AppDataPath = pAppDataPath
             'Mapper = MapperFactory.GetMapper()
         End Sub
 
@@ -226,7 +228,7 @@ Namespace Winline
         'End Function
 
         Private Function GetBaseWebServicePath() As String
-            Return IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
+            Return IO.Path.Combine(AppDataPath, "WebService")
         End Function
 
         Private Function GetBaseFilenameForRequest() As String