Change drives and change directories

[Patricia0923]

Hi,
I need to write code such that when the workbook is opened at any location (can be up to 14,000 stores) I can open a directory on a virtual drive R (which is localized to that location) to access folders located there and pull data.

Currently, I inherited a file that says this, but I don't understand what it does or why it was written that way. Can anyone help, please. Thanks.

LOG_Dir = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) -5) & "\logs\"
ChDrive Left(ThisWorkbook.Path, InStr(1, ThisWorkbook.Path,":"))
ChDir ThisWorkbook.Path
ChDir "..\..\data"
DATA_DIR = CurDir()

 

[Tinbendr]

Without any cell data to go by, I'll take a stab in the dark.
This is probably the name of the subdirectory, plus the subdir Logs. A text string.

LOG_Dir = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) -5) & "\logs\"

This will change to the drive letter the Left generates.

ChDrive Left(ThisWorkbook.Path, InStr(1, ThisWorkbook.Path,":"))

Action to change to the subdirectory.

ChDir ThisWorkbook.Path

Another change directory.

ChDir "..\..\data"

This is a built in function that returns the current active subdirectory. E.g. When you type CMD.exe from the run box, and the DOS box opens, it typically defaults to C:\Windows\ depending on the OS. This is the CurDir If you navigate to another subdirectory, then that becomes the current subdir.

DATA_DIR = CurDir()

 

[Patricia0923]

Without any cell data to go by, I'll take a stab in the dark.
This is probably the name of the subdirectory, plus the subdir Logs. A text string.

This will change to the drive letter the Left generates.

Action to change to the subdirectory.

Another change directory.
This is a built in function that returns the current active subdirectory. E.g. When you type CMD.exe from the run box, and the DOS box opens, it typically defaults to C:\Windows\ depending on the OS. This is the CurDir If you navigate to another subdirectory, then that becomes the current subdir.

Thank you, this does help somewhat!

I appreciate it.