title: Create a general path for shared file
body: <p>I'm trying to use file dialogue to pick a file and save it to a folder but I can't figure out how to code a folder path and keep getting "Path not found error"
  I'm not at all a coder, so please explain in plain English:)</p>
  
  <p>Below is the piece of code I tried to use but didn't work.</p>
  
  <pre><code>ArchiveFolderPath = Environ("UserDomain") &amp; "\" &amp; Environ("username") &amp; "\Desktop"
  </code></pre>
  
  <p>Full sub code from comment below:</p>
  
  <pre><code>Sub CreateCopyFile(FilePathToCopy As String)
      Dim fso As Scripting.FileSystemObject
      Dim FileToCopy As Scripting.File
      Dim ArchiveFolderPath As String
  
      'Create a new folder path
      Set fso = New Scripting.FileSystemObject
      ArchiveFolderPath = Environ("UserProfile") &amp; "\Desktop\Archive"
  
      'Create a new folder
      If Not fso.FolderExists(ArchiveFolderPath) Then
          fso.CreateFolder ArchiveFolderPath
      End If
  
      Set FileToCopy = fso.GetFile(FilePathToCopy)
      FileToCopy.Copy ArchiveFolderPath &amp; "\" &amp; FileToCopy.name
      Set fso = Nothing
  End Sub
  </code></pre>