diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb
index 5467bd1..e165419 100644
--- a/Wardrobe/GUI.vb
+++ b/Wardrobe/GUI.vb
@@ -1,8 +1,10 @@
 Imports XCCLibrary
 
 Public Class GUI
-    Dim filesFolder As String = "C:\Users\Anton\Documents\Exjobb"       ' Hämta från settings
-    Dim HLCtFolder As String = "C:\Users\Anton\Documents\Exjobb\X2021"  ' Hämta från settings
+    'Public Shared filepath As String = "C:\Users\Anton\Documents\Exjobb"
+    Public Shared filepath As String = "C:\Users\xperd\OneDrive\Dokument\Exjobb"
+    Dim filesFolder As String = filepath      ' Hämta från settings
+    Dim HLCtFolder As String = filepath & "\X2021"  ' Hämta från settings
 
     Dim containerPanel As Panel
 
diff --git a/Wardrobe/Program.vb b/Wardrobe/Program.vb
index e0a1fce..41eb648 100644
--- a/Wardrobe/Program.vb
+++ b/Wardrobe/Program.vb
@@ -103,7 +103,7 @@ Public Class Program
         Dim iPart As PartDoc
         iPart = swApp.ActiveDoc
         Dim newName As String
-        newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTPART" & 1 & ".SLDPRT"
+        newName = GUI.filepath & "\Temp" & "\TESTPART" & 1 & ".SLDPRT"
         longstatus = iPart.SaveAs3(newName, 0, 0)
 
         Model.ClearSelection2(True)
@@ -132,7 +132,7 @@ Public Class Program
         swSheet.ReloadTemplate(True)
 
         Dim myView As View
-        myView = iDrawing.CreateDrawViewFromModelView3("C:\Users\Anton\Documents\Exjobb\Temp\TESTPART1.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
+        myView = iDrawing.CreateDrawViewFromModelView3(GUI.filepath & "\Temp\TESTPART1.SLDPRT", "*Front", swSheetWidth / 2, swSheetHeight / 2, 0)
 
         Dim swExtensions As SldWorks.ModelDocExtension
         swExtensions = iDrawing.Extension
@@ -166,9 +166,12 @@ Public Class Program
             dimension.SetPrecision3(0, 0, 0, 0)
         Next
 
+        Dim myView2 As View
+        myView2 = iDrawing.CreateDrawViewFromModelView3(GUI.filepath & "\Temp\TESTPART1.SLDPRT", "*Top", swSheetWidth / 2, OutLine(3) + 0.03, 0)
+
         Dim longstatus As Integer
         Dim newName As String
-        newName = "C:\Users\Anton\Documents\Exjobb\Temp" & "\TESTDRAWING" & 1 & ".SLDDRW"
+        newName = GUI.filepath & "\Temp" & "\TESTDRAWING" & 1 & ".SLDDRW"
         longstatus = iDrawing.SaveAs3(newName, 0, 0)
     End Sub