Changing Directories

xzmike · Mar 10th, 2002, 11:20 PM

I WANT THE CHECK TO SEE THAT MY PATH(THE PATH OF THE CURRENT FILE I'M IN) AND THE CURRENT DIRECTORY ARE THE SAME. IF NOT, I
WANT TO CHANGE THE CURRENT DIRECTORY TO MY PATH. THE CODE BELOW DOESN'T CHANGE "MY DOCUMENTS" TO THE FOLDER OF THE FILE I'M IN.

THANKS,
Mike

Dim strThispath As String
Dim strThisCurDir As String

strThispath = Application.ThisWorkbook.Path
strThisCurDir = CurDir

If strThisCurDir <> strThispath Then
ChDir strThispath
End If

Ivan F Moala · Mar 11th, 2002, 01:09 AM

Check what Drive you are in...if diff then
you'll have to change drive 1st.

eg ChDrive "D:"

Ivan

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 10th, 2002, 11:20 PM	#1
xzmike Board Regular Join Date: Feb 2002 Posts: 110	I WANT THE CHECK TO SEE THAT MY PATH(THE PATH OF THE CURRENT FILE I'M IN) AND THE CURRENT DIRECTORY ARE THE SAME. IF NOT, I WANT TO CHANGE THE CURRENT DIRECTORY TO MY PATH. THE CODE BELOW DOESN'T CHANGE "MY DOCUMENTS" TO THE FOLDER OF THE FILE I'M IN. THANKS, Mike Dim strThispath As String Dim strThisCurDir As String strThispath = Application.ThisWorkbook.Path strThisCurDir = CurDir If strThisCurDir <> strThispath Then ChDir strThispath End If

Mar 11th, 2002, 01:09 AM	#2
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	Check what Drive you are in...if diff then you'll have to change drive 1st. eg ChDrive "D:" Ivan