Stop file from going to OneDrive path and using different Environ("username")

grNadpa · #1 11-01-2022, 07:03 PM

I am trying to install a Word 2016 template I developed onto my wife's PC. I copy a file that the template references to her local "C:\Users\(username)\Documents" folder. But when I try to reference that file using that path

Code:

 strRosterPath = "C:\Users\" & Environ("username") & "\Documents\Roster.csv"

, it fails. Further investigation finds that the file is not on her local drive at all but on a OneDrive path and with a different Environ("username").

An internet search confirms that: "In Windows 10, OneDrive is the default save location for your files and documents." (Turn off, disable, or uninstall OneDrive - Knowledgebase - Pen Publishing Interactive, Inc.).

Yet on my PC running windows 10, my files stay where I put them (which is not on OneDrive).

Reconfiguring her machine is not an option. So I'm left with the smelly option of hard-coding that OneDrive path into my template after installing the word .dotm on her machine.

I've confirmed that option works. But isn't there an option that doesn't require hard-coding?

Wife is running Office 365, I'm running Office 2016.
Specifically, I'm running Microsoft Windows 10 Home Build 19044 on a Dell Inspiron 15-3567 using Microsoft Word 2016 MSO (Version 2209 Build 16.0.15629.20196) 32-bit.
Wife's machine running Microsoft Windows 10 Home Build 19043 on an Acer Aspire TC-885 using Microsoft Word 365 MSO (Version 2209 Build 16.0.15629.20200) 64-bit.

Guessed · #2 11-01-2022, 08:31 PM

I would recommend that you place the csv file in the same folder as the template since one is only useful with the other. Then you can use the location of the template to get the folder name.

Code:

ThisDocument.Path & Application.PathSeparator & "Roster.csv"

If you desperately want to store the csv in the Documents path and not relative to the template then you can try this method

Code:

  Dim wshShell As Object, sDocPath As String
  Set wshShell = CreateObject("WScript.Shell")
  sDocPath = wshShell.SpecialFolders("MyDocuments") & Application.PathSeparator & "Roster.csv"

grNadpa · #3 11-02-2022, 05:47 AM

Quote:

Originally Posted by Guessed

I would recommend that you place the csv file in the same folder as the template since one is only useful with the other. Then you can use the location of the template to get the folder name.

I erroneously assumed that templates must go to

Code:

 C:\Users\...\Documents\Custom Office Templates

and that ONLY templates could go there. Silly me.

I'll certainly go with your first suggestion. (Can hardly wait to find out what happens when I attempt updates to that csv file.) Hold good thoughts.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2003: VBA "Function" causes "#VALUE!" errors after running "insert/delete row" custom macro	Matt C	Excel Programming	2	01-08-2022 06:03 AM
Lost folders due to using "Root Folder Path"	Selien	Outlook	0	09-13-2018 03:30 PM
Error window: "Document name or path is not valid"	SKE	Word	1	01-28-2016 10:41 PM
Change "File As" and "Display As" format	davesp	Outlook	0	10-14-2014 12:10 PM
Adding additional "\" to directory path name	jmaxcy	Excel	1	10-15-2013 01:42 PM